访问 VBA Getobject()

【问题标题】：Access VBA Getobject()访问 VBA Getobject()
【发布时间】：2015-01-27 20:08:22
【问题描述】：

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

这里是代码

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

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

【问题讨论】：

标签： ms-access vba

【解决方案1】：

在GetObject 中包含.Application 属性。

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

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。

【讨论】：