VBA提取自己选中文件夹中的文件名

VBA（Visual Basic for Applications）是一种微软为Office应用程序定制的宏语言，可以用来自动化工作流程，包括在Excel、Word等中操作文件。如果你想通过VBA获取选定文件夹中的文件名，你可以使用`FileSystemObject`对象，步骤如下：

Sub GetSelectedFolderFiles()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim arrFiles As Variant

    ' 创建 FileSystemObject 对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 获取用户选择的文件夹
    On Error Resume Next
    Set objFolder = objFSO.GetFolder(Selection.Value)
    On Error GoTo 0
    
    ' 如果文件夹存在
    If Not objFolder Is Nothing Then
        ' 定义存储文件名的数组
        arrFiles = objFolder.Files.Name
        
        ' 遍历数组并打印每个文件名
        For Each fileName In arrFiles
            Debug.Print fileName
        Next fileName
    Else
        MsgBox "未选择有效的文件夹", vbInformation, "提示"
    End If
End Sub

这个VBA程序会在用户的活动单元格中寻找路径，然后获取该路径下的所有文件名。如果没选择到文件夹或者路径无效，它会显示一个消息框。