vba获取文件路径与文件名

要使用 VBA 获取文件路径和文件名，您可以使用内置的 Application.GetOpenFilename 函数来让用户选择文件，或使用 Application.FileDialog 对象来打开文件对话框，然后使用 FileSystemObject 对象来解析所选文件的路径和文件名。

以下是一个演示如何获取文件路径和文件名的示例代码：

Sub GetFilePathAndName()
    Dim filePathAndName As String
    Dim fileDir As String
    Dim fileName As String
    Dim fso As Object
    '使用GetOpenFilename函数让用户选择文件
    filePathAndName = Application.GetOpenFilename
    '或者使用FileDialog对象打开文件对话框
    'With Application.FileDialog(msoFileDialogFilePicker)
    '    .AllowMultiSelect = False
    '    .Title = "请选择一个文件"
    '    If .Show = True Then
    '        filePathAndName = .SelectedItems(1)
    '    End If
    'End With
    '如果用户未选择任何文件则退出
    If filePathAndName = "False" Then Exit Sub
    '使用FileSystemObject对象解析文件路径和文件名
    Set fso = CreateObject("Scripting.FileSystemObject")
    fileDir = fso.GetParentFolderName(filePathAndName)
    fileName = fso.GetFileName(filePathAndName)
    '在Immediate窗口中输出文件路径和文件名
    Debug.Print "文件路径: " & fileDir
    Debug.Print "文件名: " & fileName
End Sub
在上面的代码中，我们首先使用 Application.GetOpenFilename 函数让用户选择一个文件，然后使用 FileSystemObject 对象解析文件路径和文件名，并在 Immediate 窗口中输出结果。您可以根据您的需要修改代码，比如使用 Application.FileDialog 对象来打开文件对话框，或者将文件路径和文件名作为变量传递给其他函数或过程来进一步处理。