我正在尝试将已打开的excel的实例设置为访问vba中的对象,但它无法正常工作,当我正在运行代码时,没有显示错误消息,但控件正在出现。
这是代码
Dim appXL As Object
Dim wb As Object
Dim txtcatpath As String
txtcatpath = "C:\sample.xlsm"
Set appXL = GetObject(,txtcatpath)
如何将对象设置为已经打开的excel的引用?
答案 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 。