Excel VBA Как захватить имя файла из открытого файла

Question

Я пытаюсь создать код, в который мы копируем и вставляем данные из файла Excel, который уже открыт.

Учитывая, что этот файл имеет несколько версий и может напрямую открываться из электронной почты, его результат к этому.

Версия 1 Имя файла: Excel Data.csv
Версия 2 Имя файла: Excel Data (2) .csv
Версия 3 Имя файла: Excel Data (3) .csv

Мне было интересно, если есть код, в котором VBA может искать имя файла по существующему ключевому слову «Данные Excel» или просто «Excel», поэтому окно будет go в этот файл, тогда я смогу выполнить копирование и вставку

Answer 1

Вы можете использовать Excel l oop во всех открытых книгах и найти одно с правильным именем. Вы можете поместить что-то вроде этого в свой код.

Sub ActivateWorkbookByName(sName)

    Dim wb As Workbook

    For Each wb In Application.Workbooks
        If wb.Name Like "*" & sName & "*" Then
            wb.Activate
            Exit For
        End If
    Next wb

End Sub