Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Как правильно написать макрос сохраняющий файл в Excel2007?

Автор SanSanych, 19.06.2012, 08:46

« назад - далее »

SanSanych

Добрейшего времени суток!

Как корректно написать макрос сохраняющий обновленную сводную таблицу в формате Excel2007?

Есть такой макрос:

Sub Auto_Open()

' Auto_Open Макрос
'
    Range("B9").Select
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotCache.Refresh
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "D:\FileName.xlsx", FileFormat _
    :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
    False, CreateBackup:=False
    ThisWorkbook.Close False
End Sub

Макрос  отрабатывает без ошибок, но при открытии сохраненного файла выдает ошибку: "Не удается открыть файл, так как формат или расширение этого файла являются недопустимыми. Убедитесь, что файл не поврежден ...."

FileFormat:=xlExcel8 - так же не помог. Та же ошибка.

Что не так?

ShAM

Может, сохранить как .xlsm, т.е. с поддержкой макросов.

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771