Код Excel VBA не поддерживает сохранение PPT в пользовательском месте с пользовательским именем

Question

В настоящее время я пытаюсь написать короткий код Excel VBA, который 1) создает, 2) редактирует 3) сохраняет и 4) закрывает презентацию PowerPoint.

Это можно сделать с помощью стандартного кода, который сохраняет файл в жестко заданном месте. Тем не менее, я пытаюсь написать код таким образом, чтобы во всплывающих окнах ввода отображалось 2) пользовательское имя файла и 2) пользовательское местоположение, в котором вы хотите сохранить файл.

Код, который я пытаюсь написать, не выдает никакого сообщения об ошибке, но также не сохраняет файл.

Sub Save_Presentation_at_custom_location()

Dim pPres As PowerPoint.Presentation
Set pApp = CreateObject("Powerpoint.Application")
pApp.Visible = True

Set pPres = pApp.Presentations.Add
pPres.Slides.Add 1, ppLayoutTitle

Filename = Application.InputBox("FileName") & ".PPTX"
Path = Application.InputBox("Path") & "\"

pPres.SaveAs Filename:="Path" & "FileName", FileFormat:=ppSaveAsDefault
pPres.Close

End Sub

Answer 1

Ваша проблема в том, что вы сохранили строки с ""

Изменение:

pPres.SaveAs Filename:="Path" & "FileName", FileFormat:=ppSaveAsDefault
pPres.Close

на

pPres.SaveAs Filename:=Path & FileName, FileFormat:=ppSaveAsDefault
pPres.Close

Также ваши размерыИмя файла, путь и pApp не объявлены в коде, который вы показали, но я думаю, вы сделали это в своем реальном коде