访问VBA Getobject()

时间:2015-01-27 20:08:23

标签: vba ms-access access-vba

我正在尝试将已打开的excel的实例设置为访问vba中的对象,但它无法正常工作,当我正在运行代码时,没有显示错误消息,但控件正在出现。

这是代码

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

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

1 个答案:

答案 0 :(得分: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