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

编程问答 2022-04-23

问题描述

我有几台运行 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 方法。）

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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

automationexcelexcelms-access