Question

我目前正在尝试编写一个简短的Excel VBA代码，其中1）创建，2）编辑3）保存和4）关闭PowerPoint演示文稿。

这可以使用将文件保存在硬编码位置的标准代码来完成。但是，我试图以这种方式编写代码，它会弹出两个输入框，并要求你1）自定义文件名和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

您的尺寸Filename，Path和pApp也未在您展示的代码中声明，但我想您是在真实代码中完成的

Excel VBA代码不支持使用自定义名称在自定义位置保存PPT

1 个答案: