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

在使用Excel VBA编程中，有时需要获取当前工作簿的完整文件名（包括路径）。本文将介绍如何使用VBA代码获取当前工作簿的完整文件名。

方案介绍

要获取带有路径的工作簿完整文件名，首先需要了解VBA中的一些对象和属性：

• ThisWorkbook：表示当前工作簿。
• FullName：表示工作簿完整路径和文件名的字符串属性。例如，C:\Users\username\Documents\filename.xlsx。
• FileDateTime：表示文件的创建日期和时间的函数。它需要一个文件名（包括路径）作为参数。

根据以上对象和属性，我们可以编写VBA代码来获取当前工作簿的完整文件名。

代码示例

下面是获取当前工作簿完整文件名的VBA代码示例：

Sub GetWorkbookFullName()
    Dim fullName As String
    Dim filePath As String
    Dim fileName As String
    Dim fileDate As Date
    
    ' 获取工作簿完整路径和文件名
    fullName = ThisWorkbook.FullName
    
    ' 获取工作簿路径
    filePath = Left(fullName, InStrRev(fullName, "\"))
    
    ' 获取工作簿文件名
    fileName = Mid(fullName, InStrRev(fullName, "\") + 1)
    
    ' 获取文件创建日期和时间
    fileDate = FileDateTime(fullName)
    
    ' 显示结果
    MsgBox "当前工作簿的完整路径和文件名：" & fullName _
        & vbNewLine & "工作簿路径：" & filePath _
        & vbNewLine & "工作簿文件名：" & fileName _
        & vbNewLine & "文件创建日期和时间：" & fileDate
End Sub

以上代码中，我们首先使用ThisWorkbook.FullName获取当前工作簿的完整文件名。然后，我们使用Left和InStrRev函数获取工作簿的路径，使用Mid和InStrRev函数获取工作簿的文件名。最后，我们使用FileDateTime函数获取工作簿的创建日期和时间。

总结

使用以上VBA代码，我们可以轻松获取带有路径的工作簿完整文件名，方便程序中使用。如果您还有任何疑问或建议，请在评论区留言，我们会在第一时间给您回复。