微信公衆号： Excel and Python
微信名搜尋: 實用辦公程式設計技能
如何用Excel自動讀取檔案夾下的所有xls檔案呢？
今天，曉白和大家一起來Get這項新技能！
這裡主要使用的是Excel的VBA程式設計的檔案操作，小夥伴們不要聽到程式設計就被吓到了！畢竟，VBA腳本語言沒有我們想象的那麼難！
那麼，怎麼用Excel去實作呢？
下面，曉白就用Excel的VBA程式設計來給大家示範！
第一步：定義檔案位址變量、檔案名稱變量和技術變量
主要是定義存放檔案打開時擷取的檔案位址變量和檔案名稱變量。
Dim Mypath, MyName, count
第二步：使用WITH 語句建立檔案打開對話框
主要是建立檔案開對話框，并将選擇的打開檔案指派給檔案位址變量。
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.count = 0 Then Exit Sub
Mypath = .SelectedItems(1)
End With
第三步：清空A列内容，在A1寫入“目錄”
Sheets("sheet1").[a:a].ClearContents
Sheets("sheet1").[a1] = "目錄"
第四步： 循環讀出檔案位址下的檔案名
主要是使用Do…… While…… Loop循環讀出檔案位址下的檔案名。
Do While MyName <> ""
count = count + 1
MyName = Dir
If MyName <> "." Then
If MyName <> ".." Then
If MyName <> "" Then
Sheets("sheet1").Cells(count, 1) = MyName
End If
End If
End If
Loop
第五步： 讀取完成後輸出提示資訊
MsgBox "檔案名讀取成功！",vbSystemModal
以上就是用Excel實作自動讀取檔案夾下的所有xls檔案的方法，下面給出具體的VBA代碼供大家交流！
關注我們的公衆号“實用辦公程式設計技能”（微信号：Excel-Python），讓我們的工作和生活變更更輕松。
往期文章：
1.Excel制作競答倒計時器
2.用Excel倒計時還有多少天過年
3.用Excel做一個自動抽獎器
4.如何自己編寫Excel函數并調用？
5.Excel玩轉動态查找資訊表
6.輕松搞定Excel的VBA程式設計
7.用Excel實作批量發送個性化郵件
8.玩轉Excel的幾個高頻使用函數(七)
9.玩轉Excel的幾個高頻使用函數(六)
10.玩轉Excel的幾個高頻使用函數(五)
11.玩轉Excel的幾個高頻使用函數(四)
12.玩轉Excel的幾個高頻使用函數(三)
13.玩轉Excel的幾個高頻使用函數(二)
14.玩轉Excel的幾個高頻使用函數(一)