Проблема с методом VBA SaveAs для файлов Powerpoint

Question

У меня проблема с моим скриптом VBA. Я делаю некоторые изменения в таблицах PPT.

В конце сценария я хочу сохранить изменения, и вот проблема.

Для сохранения я использую следующую команду для сохранения файла в определенной папке:

PptDoc.SaveAs (ActiveWorkbook.Path & Application.PathSeparator & "result" & Application.PathSeparator & sFilename

(PptDoc - презентация PowerPoint.)

Все отлично работает при исполнении. Файл правильно сохранен по правильному адресу. Затем, когда я хочу запустить ppt, файл поврежден, я не могу его открыть. Я не знаю, что делать, я ничего не нашел в Google.

Вот некоторые точности:

• Я работаю с Excel/PowerPoint 2011 для Mac;
• мой скрипт изменяет содержимое таблиц существующих файлов powerpoint (30);
• когда я сохраняю свою работу вручную, она работает, и нет ошибки позже

Answer 1

Я наконец нашел решение,

Правильная команда:

PptDoc.SaveAs (ActiveWorkbook.Path & Application.PathSeparator & "result" & Application.PathSeparator & sFilename, ppSaveAsOpenXMLPresentation

По умолчанию он выбирает формат, эквивалентный.ppt, но мой файл был.pptx. ppSaveAsOpenXMLPresentation означает.pptx, тогда как ppSaveAsDefault или ppSaveAsPresentation означает.ppt.

Надеюсь, что это поможет людям, имеющим ту же проблему

:)