excel - 使用 VBA 将工作表添加到 Excel 时出现随机错误

Question

我在 MS-Access 数据库中有 VBA 代码，它创建一个 Excel 工作簿并用数据库中的数据填充它。它根据使用此代码的数据集将工作表添加到工作簿。

Set xlWS_cal = xlWB.Worksheets.Add(After:=Sheets(LastSheet))    

该代码在 50% 的情况下都可以正常工作，但否则我会收到此错误消息。

对象'_Global'的方法'Sheets'失败

这似乎是随机的。代码始终相同，我使用相同的数据集对其进行了测试。我尝试了以下建议

Excel VBA 运行时错误“1004”方法“范围”对象“_Global”失败

识别 Excel 实例如下，但我仍然得到随机错误。

Set xlWS_cal = xlApp.Workbooks(1).Worksheets.Add(After:=Sheets(LastSheet))

但是，如果我使用Set xlWS_cal = xlWB.Worksheets.Add或 Set xlWS_cal = xlWB.Worksheets.Add不使用工作表的位置，那么我不会收到错误，但这很不方便，因为我必须重新排列工作表。

我将不胜感激如何防止这种情况。

标签： excelvbams-access