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 替换成你的文件夹路径。