怎么用vba遍歷文件夾里的所有文件？為dir函數(shù)添加一個循環(huán)。例如，要將D:ABC文件夾中的所有文件顯示到a列，代碼如下：sub遍歷所有文件（）dim FN$，n%FN=dir（“D:ABC*”），而

怎么用vba遍歷文件夾里的所有文件？

為dir函數(shù)添加一個循環(huán)。例如，要將D:ABC文件夾中的所有文件顯示到a列，代碼如下：

sub遍歷所有文件（）dim FN$，n%FN=dir（“D:ABC*”），而FN<>“”n=n1 range（“a”&；n）=FN=dirwendend sub

將要遍歷的所有路徑寫入excel表格，并調用每次從該表遍歷的路徑。或dir/B/s*。XLS*>D:1.txt，將此1.txt內容讀入一個表或數(shù)組，并遍歷它。

EXCEL VBA遍歷所有文件夾和子文件夾的文件中指定單元格中的數(shù)據(jù)，匯總到一張工作表中？

我的解決方案不是使用dir函數(shù)，而是使用FSO對象遍歷文件夾中的所有文件，獲取每個文件的文件名，然后使用正確的函數(shù)判斷文件擴展名是否為XLS

“當前路徑”指的是什么？office應用程序（如word或excel）中當前打開的文檔的路徑？或office應用程序的路徑。如果傳入了一個“”，則默認值似乎是返回“我的文檔”中的第一個文檔。以便。類路徑可能是您計算機上“我的文檔”中第一個文件的名稱。以下函數(shù)使用msgbox顯示給定目錄中的所有文件名：function enumallfiles（strpathname as string）dim strfilename as string strfilename=dir（strpathname&；“**”），而strfilename<> “”if msgbox（”file name is “&；strfilename&；”）。是否要繼續(xù)枚舉？，vbDefaultButton1或vbYesNoCancel或vbQuestion）<> vbYes然后退出函數(shù)strFileName=Dir Wend End Function