通过 PPT 创建 Excel 工作簿 VBA

Question

我可以通过 CreateObject("Excel.Application").Workbooks.Open("path")

打开 .xlsx 文件

这样的事情不允许我通过 PowerPoint 宏创建新的 Excel 工作簿。

Set ExcelFile = CreateObject("Excel.Application")
ExcelFile.Workbooks.Add
ExcelFile.ActiveWorkbook.SaveAs "path"

Answer 1

示例代码，刚刚在 PP 2016 上检查过：
（记得关闭 xlsApp，将 obj 设置为空等）

Public Sub Whosebug()

Dim xlsApp As Object
Dim wkbWorking As Object

Set xlsApp = CreateObject("Excel.Application")  'basically it opens excel application
Set wkbWorking = xlsApp.Workbooks.Add       'it creates new workbook in just opened excel

xlsApp.Visible = True           'makes excel visible
wkbWorking.SaveAs "C:\Temp\PesentationExcel.xlsx"

wkbWorking.Close   'closes workbook
xlsApp.Quit        'closes excel application

'sets variables to nothing
Set wkbWorking = Nothing
Set xlsApp = Nothing

End Sub

通过 PPT 创建 Excel 工作簿 VBA

Creating an Excel Workbook via PPT VBA

excel

powerpoint

vba