2015-09-25 7 views
1

Я пытаюсь открыть презентацию PowerPoint из файла Excel с помощью макроса. Я использую следующий код:Открытие PowerPoint из Excel

Private Sub testButton_Click() 
    Dim objPPT        As Object 
    Set objPPT = CreateObject("PowerPoint.application") 
    objPPT.Visible = True 
    objPPT.Activate 
    objPPT.Presentations.Open (CStr(ActiveWorkbook.Path) + "\DailyHealthCheck9_24_15.ppt") 
End Sub 

, но я получаю следующее сообщение об ошибке во время выполнения:

enter image description here

начинается PowerPoint, но это не будет открывать файл. Я проверил путь к файлу, и это правильно.

Может ли кто-нибудь объяснить, почему это происходит?

Возможно, это какой-то тип защиты в файле PowerPoint.

+1

Вы просто хотите, чтобы открыть файл, или вы хотите, чтобы иметь возможность работать с файлами из кода VBA? – MatthewD

+0

У меня есть две диаграммы Excel в PowerPoint Я хотел бы обновить данные из Excel, когда выполняется макрос. – user1951756

+0

Хорошо, я просто проверял, потому что если вы просто хотели открыть файл powerpoint, есть другой способ. – MatthewD

ответ

1

Ваш путь или имя файла должны быть неверными. Является ли файл ppt уверенным. Разве это не pptx?

Изменение открытой линии

objPPT.Presentations.Open ActiveWorkbook.Path & "\DailyHealthCheck9_24_15.pptx"