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

Question

我希望能够在 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

代码给了我一个错误:

Run-time error '424': Object required

在以下代码段中:

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

请告知我如何解决这个问题。

Answer 1

objExcel.ActiveWorkbook.SaveAs 

不只是

ActiveWorkbook.SaveAs 

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