VBA 获取工作簿名称

在VBA中，获取当前工作簿的名称是十分常见的操作。本文将介绍两种方法来实现这一功能。

方法一

第一种方法是通过ActiveWorkbook属性来获取当前工作簿的名称。

Sub GetWorkbookName()

    Dim sWorkbookName As String
    
    sWorkbookName = ActiveWorkbook.Name
    MsgBox "当前工作簿名称是：" & sWorkbookName

End Sub

上述代码中，我们通过ActiveWorkbook.Name来获取当前工作簿的名称，并将其赋值给sWorkbookName变量。然后通过MsgBox函数来弹出一个提示框，显示当前工作簿的名称。

方法二

第二种方法是通过ThisWorkbook属性来获取当前工作簿的名称。

Sub GetWorkbookName()

    Dim sWorkbookName As String
    
    sWorkbookName = ThisWorkbook.Name
    MsgBox "当前工作簿名称是：" & sWorkbookName

End Sub

上述代码中，我们通过ThisWorkbook.Name来获取当前工作簿的名称，并将其赋值给sWorkbookName变量。然后通过MsgBox函数来弹出一个提示框，显示当前工作簿的名称。

总结

以上就是通过VBA来获取当前工作簿名称的两种方法。无论使用哪种方法，都可以很方便地实现这一功能。