0

Excel 文件不会在 MS Access 中打开。

这段代码直到几天前才有效。现在它没有出错,也没有创建任何 Excel 对象。

Dim XL As Object
Set XL = New Excel.Application
XL.workbooks.Open(ourPath)

对象分配应该可以工作(路径是正确的,我已经检查了多次)。

4

2 回答 2

0

所以发生的事情是,excel 文件有阻止 excel 正确打开的加载项。一旦这些加载项被禁用,代码就会像魅力一样发挥作用。

于 2019-09-30T17:55:39.843 回答
0

由于您使用的是早期绑定,因此您可能缺少对 Microsoft Excel 对象库 ( Tools > References) 的引用,或者该库可能是MISSING由于在早期版本的 MS Access 中打开数据库而呈现的。

然而,为了避免完全依赖引用并将其排除为可能的原因,您可以尝试使用后期绑定,例如:

Dim XL As Object
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open(ourPath)
于 2019-06-12T18:55:55.040 回答