vba - 在Word中从VBA创建和保存Excel文档

我希望能够在Word文档中运行一个宏，该宏将创建一个Excel文档，然后将该电子表格保存在共享文件夹中。

这是我到目前为止的代码:

Public Sub Monthly_Commission_Extract()

Dim objExcel
Dim objDoc
Dim objSelection
Dim SaveAs1 As String
SaveAs1 = ("\\stnlinasshd01\P403759\Month End\Monthly Commission Extract\1st Save")

Set objExcel = CreateObject("Excel.Application")
Set objDoc = objExcel.Workbooks.Add

objExcel.Visible = True

Set objSelection = objExcel.Selection

ActiveWorkbook.SaveAs FileName:=SaveAs1, FileFormat:=-4158, CreateBackup:=False
Application.DisplayAlerts = True

End Sub

代码给我一个错误:

运行时错误“424”:必需对象

在下面的代码中:

ActiveWorkbook.SaveAs FileName:=SaveAs1, FileFormat:=xlText, CreateBackup:=False

请告知我该如何解决。

最佳答案

objExcel.ActiveWorkbook.SaveAs

不只是

ActiveWorkbook.SaveAs

“属于” Excel的任何内容都必须以objExcel应用程序引用作为前缀。