.: [文件] .: 使用EXCEL获取指定文件夹里面包含子文件夹里面所有数据的路径函数

在Excel中，如果你想要获取指定文件夹及其所有子文件夹内的数据路径，可以使用VBA（Visual Basic for Applications）脚本语言，因为Excel本身并不直接提供获取所有文件路径的功能。你可以编写一段VBA宏来遍历目录结构并返回所需的路径。

下面是一个简单的VBA示例，这个函数`GetFilePaths`会递归查找指定起始文件夹及其子文件夹中的所有文件：

Function GetFilePaths(ByVal folderPath As String) As Variant
    Dim filePaths() As String
    Dim fso As Object
    Dim folder As Object
    Dim subFolder As Object
    Dim file As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FolderExists(folderPath) Then
        MsgBox "指定文件夹不存在!"
        Exit Function
    End If

    Set folder = fso.GetFolder(folderPath)
    ReDim filePaths(0 To 0)

    ' 添加根目录
    filePaths(0) = folder.Path

    For Each subFolder In folder.SubFolders
        ' 循环子文件夹，递归获取
        Call AddFilePaths(subFolder.Path, filePaths)
    Next subFolder
    
    ' 获取当前文件夹下的文件
    For Each file In folder.Files
        filePaths(UBound(filePaths) + 1) = file.Path
    Next file
    
    GetFilePaths = filePaths
End Function

Sub AddFilePaths(ByVal folderPath As String, ByVal filePaths() As String)
    Dim fso As Object
    Dim folder As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(folderPath) Then
        Set folder = fso.GetFolder(folderPath)
        
        ReDim Preserve filePaths(0 To UBound(filePaths) + 1)
        filePaths(UBound(filePaths)) = folder.Path
        
        For Each subFolder In folder.SubFolders
            Call AddFilePaths(subFolder.Path, filePaths)
        Next subFolder
    End If
End Sub

使用此功能，你可以在VBA编辑器中创建一个模块，然后将上述代码复制进去，接着在需要的地方调用`GetFilePaths`函数，并传入目标文件夹路径即可。注意，运行这段代码前确保你有足够的权限访问这些文件夹。