通过 Access VBA 运行时错误运行 Excel 宏 -2147417851

Question

我创建了将 RecordSet 复制到 Excel 的代码，并且我希望在 Excel 文件中运行一个宏。 该代码运行完美，直到它命中代码以运行宏。 我一定没有正确调用应用程序，但无法弄清楚！

Private Sub Command233_Click()
Dim objXLS As Object
 Dim wks As Object
 Dim rsc As Recordset
 Dim idx As Long
 Set rsc = Me.RecordsetClone
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox ("No Records To Export")
Else
 rsc.MoveLast
 rsc.MoveFirst
 Set objXLS = CreateObject("Excel.Application")
 objXLS.Workbooks.Open FileName:="C:\Comps Macro.xlsm", ReadOnly:=True
 Set wks = objXLS.Worksheets(1)
 For idx = 0 To rsc.Fields.Count - 1
   wks.Cells(1, idx + 1).Value = rsc.Fields(idx).Name
 Next
 wks.Range(wks.Cells(1, 1), wks.Cells(1, rsc.Fields.Count)).Font.Bold = True
 wks.Range("A2").CopyFromRecordset rsc, rsc.RecordCount, rsc.Fields.Count
 objXLS.Visible = True
 objXLS.Run ("Format")
End If

 Set objXLS = Nothing

End Sub

我收到的运行时错误是：运行时错误“-2147417851（80010105）”：对象“_Application”的方法“运行”失败

Answer 1

您必须正确引用 Sub 或 Function。 您的子命名Format是在工作簿级别还是工作表级别定义的？

如果在 Sheet 模块中定义（例如 Sheet1）：

objXLS.Run ("Sheet1.Format")

如果在工作簿级别：

objXLS.Run ("ThisWorkbook.Format")

希望这可以帮助