如何遍歷資料夾中的所有 excel 檔案？

1. 必需的 DOS 命令。

dir [drive:][path] /b > drive:][path]filename

2. 應用例項。

如下圖所示，在D盤中，有乙個名為“TQIPC”的資料夾，在這個資料夾中，有很多**！

現在，我們要做的是，如何使這些**的名稱自動顯示在Excel或記事本中！

執行選單操作“開始”和“執行”，彈出執行對話方塊，在其中輸入cmd並按“確定”鍵，此時ms-dos視窗將開啟，如下圖所示！

之後，如下圖所示，鍵入 dos 命令！

輸入上述命令後，按回車鍵，執行命令，上面生成的就是乙個xls檔案; 如果要生成記事本 txt 檔案，只需輸入如下所示的 dos 命令即可！

就是這樣，非常簡單，乙個檔名列表，它就形成了！ 如下圖所示！

通過dos命令的操作，我們得到兩個檔案，如上圖所示。

讓我們開啟檔案看一看，如下圖所示！

如果看到它，資料夾中的**名稱將自動顯示在Excel**中！

dos命令非常強大，使用好dos命令可以為我們省去很多精力。

3.知識拓展。

接下來，我再舉乙個例子，就是根據**（根據人名）自動建立乙個資料夾。

如果在乙個資料夾中，你儲存了某些字元的**，並且每個字元的**都以其名稱命名; 這時，根據角色的自動自動建立對應資料夾也是相當方便的！

操作方法是先按照上述方法獲取所有字元的名稱，並生成乙個excel檔案;

然後，在人名列前面，插入一列並輸入 md;

接下來，使用“查詢和替換”功能刪除 excel 檔案中人名的副檔名（僅保留姓名）;

最後，將Excel的內容複製並貼上到記事本中，現在我們有乙個命令格式，如“MD人名”。 （md 檔名，命令格式，是用來建立資料夾的命令，上面的操作都是為此準備的！ )

VBA可以實現什麼，這裡是參考資訊。

VBA故障點，DIR是最快的，而且有大量的現成**：

方法在資料夾中，點選按鈕，就要自己修改資料夾的路徑了 這裡我們考慮的是資料夾下有子資料夾，但是我們不考慮子資料夾下子資料夾的情況。 附件：遍歷資料夾的方法。 rar

@echo off

set dir=a

for /f "delims=" %%i in ('dir /ad/b/s "%dir%"') do (echo %%i)

pausebat - 中國網際網絡公司.

英美菸草已成為中國三大網際網絡公司之一。 經過20年的網際網絡發展，中國網際網絡現已形成三足格局，三巨頭各自形成自己的體系和戰略規劃，分別掌握中國的資訊化資料、交易資料、關係資料，然後利用與大眾的渠道，不斷與新興創新企業融合。

近五年來，三巨頭共投資了30家上市公司和數百家非上市公司。 在非上市網際網絡創業公司估值排名前30位的中國公司中，有80%的公司背後有BAT[1]。

基於現有業務的競爭優勢，構建移動網際網絡領域的完整生態圈，成為英美菸草布局的核心，但在這個過程中，三大巨頭的側重點不同。

阿里巴巴網路科技****（簡稱：阿里巴巴集團）於1999年在杭州由18位領導阿里巴巴業務的人創立，由前英語教師馬認為網際網絡可以創造乙個公平的競爭環境，讓小企業通過創新和技術擴大業務，並在國內或全球市場上處於更好的競爭地位。

阿里巴巴集團經營多項業務，並在運營其商業生態系統方面獲得其關聯公司的支援。 業務及關聯公司業務包括：**.com、天貓、聚化算、速賣通、阿里巴巴國際商城、1688、阿里瑪瑪、阿里雲、螞蟻金服、菜鳥網路等。

[2]2014年9月19日，阿里巴巴集團在紐約證券交易所正式上市"baba"，創始人兼董事會主席是傑克馬。 2015年全年，阿里巴巴總營收1億元，淨利潤1億元。 2016年4月6日，阿里巴巴正式宣布成為全球最大的零售交易平台。

2016年8月，阿里巴巴集團成立"2016中國企業500強"在市場上排名第148位。

這是我找到的一段（抄襲）**，找到資料夾下的子資料夾，檔案，我覺得你應該需要這個，列出子資料夾，然後全部遍歷，三個引數，Mulu是指定的路徑，zi是是否查詢子資料夾，Leixin是檔案型別，稍微修改一下就可以滿足你的需求了。

下面**是手動程式碼，不知道有沒有問題。

sub test()

dim f as string,mpath as string,wb as workbook,sh as worksheet

if >1 then msgbox "關閉其他工作簿！ ":exit sub

mpath = "d：臨時資料夾" '指定路徑，注意分層標記 f=dir（mpath &"*.xls*")do while f<>""

if f<> then

set wb= & f) '在唯讀模式下使用 wb 開啟

for each sh in .worksheets'工作表的**段落是你自己寫的。

nextend with

0 '關閉檔案。

end if

f=dir '用於訪問下乙個工作簿的列舉。

loopend sub

使用字典更方便，但總的來說，它仍然比較複雜。

sub test()

dim f as string, mpath as string, wb as workbook, sh as worksheet

if > 1 then msgbox "關閉其他工作簿！ ": exit sub

mpath = "d：臨時資料夾" '指定路徑，注意分層標記 f=dir（mpath &"*.xls*")do while f <>""

if f <>then

set wb = & f) '在唯讀模式下使用 wb 開啟

for each sh in .worksheets'工作表的**段落是你自己寫的。

nextend with

0 '關閉檔案。

end if

f = dir '用於訪問下乙個工作簿的列舉。

loopend sub

在網上複製的，大概是看了一下，應該沒問題。