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

Метод 1: использование объекта ThisWorkbook
Пример кода:

Dim workbookName As String
workbookName = ThisWorkbook.Name

Метод 2: использование объекта ActiveWorkbook
Пример кода:

Dim workbookName As String
workbookName = ActiveWorkbook.Name

Метод 3: использование свойства Application.Caller
Пример кода:

Dim workbookName As String
workbookName = Application.Caller.Parent.Name

Метод 4: использование свойства Workbook.FullName
Пример кода:

Dim workbookName As String
workbookName = Workbook.FullName

Метод 5: использование свойств Workbook.Path и Workbook.Name
Пример кода:

Dim workbookName As String
workbookName = Workbook.Path & "\" & Workbook.Name

Метод 6: использование функции Dir
Пример кода:

Dim workbookName As String
workbookName = Dir(ThisWorkbook.FullName)

Метод 7. Использование пользовательской функции
Пример кода:

Function GetWorkbookName() As String
    GetWorkbookName = ThisWorkbook.Name
End Function

В этой статье мы обсудили семь различных методов получения имени книги в VBA. В зависимости от вашего конкретного сценария и требований вы можете выбрать метод, который подходит вам лучше всего. Независимо от того, используете ли вы объект ThisWorkbook или ActiveWorkbook, свойство Application.Caller, свойство Workbook.FullName, комбинацию свойств Workbook.Path и Workbook.Name, функцию Dir или пользовательскую функцию, эти методы помогут вам получить книгу. назвать без труда. Приятного кодирования!