通过PPT VBA创建Excel工作簿

我可以通过

CreateObject（“Excel.Application”）.Workbooks.open（“path”）打开.xlsx文件

类似的情况不允许我通过PowerPoint宏创建新的Excel工作簿

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



示例代码，刚刚在2016年第页检查：

（记住关闭xlsApp，将obj设置为nothing等）

Set wb=ExcelFile.Workbooks.Add
…然后
wb.SaveAs…
非常感谢！这是有效的。但是，我不想打开excel文件。我删除了行
xlsApp.Visible=True
，它显示文件已锁定以进行编辑。xlsApp.Close也给我带来了一个错误。另外，您将obj设置为nothing是什么意思？
xlsApp.Visible=True
->它不会打开excel，它只是在屏幕上显示“使用此行关闭工作簿”
xlsApp.Quit
“使用此行关闭excel应用程序”将变量设置为空
set wkbWorking=nothing
set xlsApp=nothing
为什么要将变量设置为空？这有什么作用。良好做法2。一般来说，它应该由垃圾收集器完成，但据说它很糟糕，所以手动完成3。清除内存，因此，如果您想从windows编辑文件，您的文件不会被“占用”。@KusaShaha-，或者也可以。
Public Sub StackOverflow()

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