Excel 文件不会在 MS Access 中打开。
这段代码直到几天前才有效。现在它没有出错,也没有创建任何 Excel 对象。
Dim XL As Object
Set XL = New Excel.Application
XL.workbooks.Open(ourPath)
对象分配应该可以工作(路径是正确的,我已经检查了多次)。
Excel 文件不会在 MS Access 中打开。
这段代码直到几天前才有效。现在它没有出错,也没有创建任何 Excel 对象。
Dim XL As Object
Set XL = New Excel.Application
XL.workbooks.Open(ourPath)
对象分配应该可以工作(路径是正确的,我已经检查了多次)。
所以发生的事情是,excel 文件有阻止 excel 正确打开的加载项。一旦这些加载项被禁用,代码就会像魅力一样发挥作用。
由于您使用的是早期绑定,因此您可能缺少对 Microsoft Excel 对象库 ( Tools > References
) 的引用,或者该库可能是MISSING
由于在早期版本的 MS Access 中打开数据库而呈现的。
然而,为了避免完全依赖引用并将其排除为可能的原因,您可以尝试使用后期绑定,例如:
Dim XL As Object
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open(ourPath)