MS Access 2013 VBA 错误仅在某些机器上自动化 Excel

如何解决MS Access 2013 VBA 错误仅在某些机器上自动化 Excel

我有几台运行 MS Office 2013 和 Windows 10 的机器。在 Access 数据库中，有代码可以自动化 Excel 并在单个工作簿中创建多个工作表。这一直有效，直到最近，现在一些机器仍然可以工作，而另一些机器会抛出错误。 Access模块中的代码如下：

Dim objExcel As Excel.Application
Dim objReportDataWrkbk As Excel.Workbook

On Error Resume Next
' Try first to use an existing instance.
Set objExcel = Getobject(,"Excel.Application")
If Err Then
    Set objExcel = CreateObject("Excel.Application")
End If
On Error GoTo Err_ExportExternalReferralDataToExcel
objExcel.Visible = False

objExcel.Visible = False 行导致错误“错误 91 对象变量或未设置块变量”

如果我删除该行以使 Excel 不可见，则使用 objExcel 的下一行将抛出相同的错误。引用正确设置到 Excel 对象库。我在已经打开Excel并关闭Excel的情况下尝试过，问题机器上仍然出现错误。

我可以在有问题的机器上手动打开 Excel 并使用 DoCmd.OutputTo 将查询输出到 Excel。（我无法在遇到问题的场景中使用 DoCmd 方法。）

有没有其他人遇到过这个问题，非常感谢任何帮助。