當前位置:成語大全網 - 書法字典 - 如何用VBA遍歷指定目錄下所有子文件夾Excel文件的所有工作表?

如何用VBA遍歷指定目錄下所有子文件夾Excel文件的所有工作表?

下面的代碼是手工編碼的,不知道有沒有問題。

sub?測試()

暗淡?f?作為?字符串,mPath?作為?字符串,Wb?作為?練習冊,Sh?作為?工作表

如果?workbooks.count & gt1?然後呢?msgbox?"關閉其他工作簿!":退出?潛水艇

mPath?=?" D:\臨時文件夾\ "?指定路徑,註意分層標記\

f=dir(mPath?& amp?"*.xls* ")

做什麽?什麽時候?f & lt& gt""

如果?f & lt& gtthisworkbook.name?然後

設置?Wb=workbooks.open(mPath?& amp?f)?以只讀模式打開

用什麽?韋伯

為了什麽?每個?噓?在?。工作表

操作工作表的代碼片段,自己寫的。

然後

結束?隨著

wb.close?0?關閉文件

結束?如果

f=dir?枚舉來訪問下壹個工作簿。

結束?潛水艇