在VBA中获取当前工作簿名称可以通过以下几种方法实现，具体如下：
一、使用 `ThisWorkbook.Name` 属性
这是最直接的方法，通过 `ThisWorkbook` 对象的 `Name` 属性获取当前工作簿的名称。
示例代码：
```vba
Sub GetWorkbookName()
Dim workbookName As String
workbookName = ThisWorkbook.Name
MsgBox "当前工作簿名称为: " & workbookName
End Sub
```
二、使用 `Application.ActiveWorkbook.Name`
通过 `Application.ActiveWorkbook` 对象的 `Name` 属性获取当前活动工作簿的名称。
示例代码：
```vba
Sub GetActiveWorkbookName()
Dim workbookName As String
workbookName = Application.ActiveWorkbook.Name
MsgBox "当前活动工作簿名称为: " & workbookName
End Sub
```
三、使用 `ThisWorkbook.Sheets（1）.Name`
通过 `ThisWorkbook.Sheets（1）` 获取活动工作表（即当前选中的工作表），再通过 `Name` 属性获取名称。
示例代码：
```vba
Sub GetActiveSheetName()
Dim sheetName As String
sheetName = ThisWorkbook.Sheets(1).Name
MsgBox "当前活动工作表名称为: " & sheetName
End Sub
```
四、处理特殊情况
多工作簿环境：
若需获取所有工作簿名称，需遍历 `ThisWorkbook.Worksheets` 集合。
动态更新：
工作表删除或重命名后，需重新运行代码以更新结果。
注意事项
上述方法仅适用于VBA编辑器中的当前工作簿或活动工作簿。若需获取其他工作簿的名称，需明确指定路径（如 `Worksheets（"Sheet1"）.Name`）。
若工作簿未保存，`ThisWorkbook.Name` 可能返回 `VALUE!` 错误，需确保工作簿已保存。
通过以上方法，可灵活获取当前工作簿或活动工作表的名称，根据需求选择合适的方式即可。