Доступ к 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) 

Как установить объект как referernce к уже открыт 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, в открывшемся окне.