Excel VBA 獲取指定路徑下的文件夾名稱

Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.getfolder("C:\Lx\all") For Each fd In f.subfolders Cells(n, 1) = fd.Name n = n

>>阅读原文<<