Excel VBA获取带路径的工作簿完整文件名

当我们需要在VBA中使用工作簿文件名，我们需要获取带路径的工作簿完整文件名。这时，我们可以使用VBA内置的函数或自定义函数来实现。

使用VBA内置函数

VBA内置函数中提供了一些用于获取文件名、路径等信息的函数，如下：

ActiveWorkbook.FullName

获取活动工作簿的完整文件名，包括路径和文件名。

Dim FullFileName As String
FullFileName = ActiveWorkbook.FullName
MsgBox FullFileName

ActiveWorkbook.Path & ActiveWorkbook.Name

获取活动工作簿的路径和文件名，分别使用Path和Name属性获取。

Dim FilePath As String, FileName As String
FilePath = ActiveWorkbook.Path
FileName = ActiveWorkbook.Name
MsgBox FilePath & FileName

使用自定义函数

有时候，我们需要根据一些条件来获取工作簿的完整文件名。这时，我们可以自定义函数来实现。

获取与当前工作簿同名的工作簿完整文件名

Function GetFullFileName() As String
    Dim wb As Workbook
    Dim FileName As String, FilePath As String, FullFileName As String
    
    Set wb = ThisWorkbook
    FileName = wb.Name
    FilePath = wb.Path
    FullFileName = FilePath & "\" & FileName
    
    GetFullFileName = FullFileName
End Function

获取指定文件名的工作簿完整文件名

Function GetFullFileName(FileName As String) As String
    Dim FilePath As String, FullFileName As String
    
    FilePath = ActiveWorkbook.Path
    FullFileName = FilePath & "\" & FileName
    
    GetFullFileName = FullFileName
End Function

通过调用自定义函数，我们可以获取带路径的工作簿完整文件名。

Dim FullFileName As String
FullFileName = GetFullFileName("Test.xlsx")
MsgBox FullFileName

以上是获取带路径的工作簿完整文件名的方法介绍。可以根据实际需求选择方法来实现。