ms-access - Access VBA Getobject()

Question

我正在尝试将已打开的 excel 实例设置为 access vba 中的对象，但它不起作用，并且当我运行代码时没有显示错误消息，但控制正在从 sub 中出来。

这是代码

  Dim appXL As Object
  Dim wb As Object
  Dim txtcatpath As String
  txtcatpath = "C:\sample.xlsm"
  Set appXL = GetObject(,txtcatpath)

如何将对象设置为对已打开的 excel 的引用？

Answer 1

将 .Application 属性包含在 GetObject 中。

这是在我的系统上测试的一个简单示例。

Dim appXL As Object
Dim txtcatpath As String
txtcatpath = "C:\Users\hans\Documents\compensation.xlsx"
Set appXL = GetObject(txtcatpath).Application
Debug.Print appXL.activeworkbook.Name

在该工作簿已在 Excel 中打开的情况下，运行代码会在“立即”窗口中为我提供工作簿名称 compensation.xlsx。