Создание книги Excel через PPT VBA

Question

Я могу открыть файл .xlsx с помощью CreateObject("Excel.Application").Workbooks.Open("path")

Что-то вроде этого не позволяет мне создавать новую книгу Excel через макрос PowerPoint.

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

Answer 1

пример кода, только что проверенный на PP 2016:
(не забудьте закрыть xlsApp, установить obj пустым и т. Д. c.)

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