Получить имя файла открытой книги Excel в Word VBA

Question

Кто-нибудь знает, как получить имя файла открытого словаря Excel с помощью Word VBA, чтобы я мог скопировать некоторую информацию в свой документ Word?

Answer 1

Это может быть намного сложнее, в зависимости от того, насколько вам нужно, и для персонального или общественного использования:

Set objWithName = GetObject("C:\docs\testx.xls") 
Set objClassOnly = GetObject("", "Excel.Application")

Debug.Print objWithName.Name 
Debug.Print objClassOnly.Name

Возможно запустить несколько экземпляров Excelи в каждом экземпляре может быть открыто более одной рабочей книги, но объект get будет возвращать только один экземпляр.Если вы знаете имя файла, который вы хотите, это намного проще, потому что вы можете использовать первую версию выше.

Answer 2

Если вы знаете, что приложение будет открыто и это будет первый (если только) экземпляр, открытый с использованием следующего кода.В Word вам нужно добавить ссылку на Excel 12 (Инструменты | Ссылки, Библиотека объектов Microsoft Excel 12.0).

Sub test()
    Dim objClassOnly As Excel.Application
    Set objClassOnly = GetObject(, "Excel.Application")
    Debug.Print objClassOnly.Name
    Debug.Print objClassOnly.ActiveWorkbook.Name
End Sub