访问 VBA Getobject()

Question

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

这是代码

  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，在立即 window.

访问 VBA Getobject()

Access VBA Getobject()

ms-access

vba