VBA获取文件夹里所有的文件夹的名字

可以使用 VBA 中的 Dir 函数和 FileAttributes 常量来获取文件夹里所有的文件夹的名字，示例代码如下：

Sub GetFolderNames()
Dim folderPath As String
Dim folderName As String
folderPath = "C:\Users\UserName\Desktop\TestFolder\" '替换成你的文件夹路径
folderName = Dir(folderPath, vbDirectory)
Do While folderName <> ""
If folderName <> "." And folderName <> ".." And (GetAttr(folderPath & folderName) And vbDirectory) = vbDirectory Then
Debug.Print folderName '输出文件夹名字
End If
folderName = Dir
Loop
End Sub

注意：需要将 folderPath 替换成你的文件夹路径。

相关问题

VBA获取文件夹里所有的文件名

可以使用 VBA 中的 Dir 函数来获取文件夹里所有的文件名，具体代码如下：

Sub GetFileNames()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\MyFolder\" '修改为你要获取文件名的文件夹路径
MyFile = Dir(MyFolder & "*.*")
Do While MyFile <> ""
Debug.Print MyFile
MyFile = Dir
Loop
End Sub

这段代码会将文件夹 C:\MyFolder\ 中所有的文件名打印出来。

vba获取文件夹所有子文件夹

在VBA中获取文件夹所有子文件夹可以通过递归的方式实现。首先需要声明一个函数，该函数接收一个文件夹路径作为参数，然后遍历该文件夹下的所有子文件夹，再分别调用自身来获取子文件夹的子文件夹，以此类推，直到所有子文件夹都被获取到。以下是一个简单的示例代码：

Sub GetAllSubFolders(folderPath As String)
    Dim fs As Object
    Dim folder As Object
    Dim subFolder As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set folder = fs.GetFolder(folderPath)
    
    ' 遍历当前文件夹下的所有子文件夹
    For Each subFolder In folder.SubFolders
        Debug.Print subFolder.Path
        ' 调用自身获取子文件夹的子文件夹
        GetAllSubFolders subFolder.Path
    Next subFolder
End Sub

Sub Test()
    Dim folderPath As String
    ' 设置初始文件夹路径
    folderPath = "C:\Test"
    ' 调用函数获取所有子文件夹
    GetAllSubFolders folderPath
End Sub

在上面的示例中，我们首先声明了一个GetAllSubFolders的函数来获取文件夹所有子文件夹，然后在测试子程序Test中调用这个函数并传入初始的文件夹路径"C:\Test"。函数中首先使用FileSystemObject来获取当前文件夹下的所有子文件夹，然后遍历这些子文件夹并输出其路径，最后递归调用自身来获取子文件夹的子文件夹。这样就可以获取到指定文件夹下的所有子文件夹了。