У меня есть форма MS Access, которая открывает двоичный файл Excel (.xlsb) с другого веб-сайта.Я пытаюсь проверить все открытые файлы Excel пользователя, чтобы я работал с нужной книгой.
Запустив цикл ниже для открытого, но не сохраненного файла Excel, GetObject не находит только что открытую книгу,Этот код находит другие файлы Excel, которые у меня уже могут быть открыты.
Но, если я сохраню файл Excel, который я открыл из сети, закройте и снова откройте его, прежде чем пытаться найти открытые файлы Excel скод ниже, код находит этот файл тоже.
Есть ли лучший способ для меня, чтобы захватить только что открытое имя файла?В новом файле Excel мне нужно отфильтровать данные из определенных вкладок Excel и добавить эти данные в таблицы Access.
Dim xlApp As Excel.Application
Dim strWBList As String
strWBList = ""
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number = 0 Then
Dim xlWB As Excel.Workbook
For Each xlWB in xlApp.Workbooks
If Len(strWBList) > 0 Then
strWBList = strWBList & ","
End If
strWBList = strWBList & xlWB.Name
Next xlWB
Set xlApp = Nothing
Set xlWB = Nothing
End If
MsgBox strWBList