у меня есть небольшая проблема с использованием VBA в MS Word. Я пытаюсь сослаться на некоторые рабочие книги, которые были открыты до запуска Word.
Изнутри короткий тестовый макрос в слове простой
MsgBox Workbooks.Count
выдает значение 0, хотя открыты 3 (пустые) книги. Когда 3 книги открываются после запуска Word, я получаю правильное значение 3.
Как это исправить?
jm2p Зеф
Workbooks.Count доступен внутри макроса Word. 06.09.2016 это потому, что вы должны получить работающий экземпляр Excel вместо создания нового
следующий код устанавливает объект приложения Excel, пытающийся сначала получить любой запущенный экземпляр, а затем, если сеанс Excel уже не запущен, открыть новый:
Option Explicit
Sub LateBindingExcel()
Dim xlApp As Object
Set xlApp = GetExcelObject
MsgBox xlApp.Workbooks.count
End Sub
Function GetExcelObject() As Object
Dim excelApp As Object
On Error Resume Next
Set excelApp = GetObject(, "Excel.Application") '<--| try getting a running Excel application
On Error GoTo 0
If excelApp Is Nothing Then Set excelApp = CreateObject("Excel.Application") '<--| if no running instance of Excel has been found then open a new one
Set GetExcelObject = excelApp '<--| return the set Excel application
End Function
Проверь это:
'Option Explicit
'Опция явная
Sub check()
Set objExcel = GetObject(, "Excel.Application")
Set wbs = objExcel.Workbooks
Debug.Print wbs.Count
Set objExcel = Nothing
Set wbs = Nothing
End Sub
