Excel VBA FileDialog 組合技一、讀所有點選的檔案的每一頁工作表

 期望點選檔案後，可以讀這個檔案的每一頁工作表。

No	要點摘要
1	宣告FileDialog
2	Set為Excel.Application.FileDialog(msoFileDialogFilePicker)
3	I迴圈，控制開啟的檔案別、檔案路徑；以及主要使用的EXCEL檔案名稱，儲存在SOURCE變數中
4	取得開啟檔案的名稱，儲存在WORKNAME變數中。
5	J迴圈，控制啟用工作頁別；在此多設定變數或是引用陣列也可以做到資料暫存
6	關閉儲存在WORKNAME變數中名稱的檔案。
7	啟用SOURCE儲存的檔案名稱，做啟用。

Dim FILE_OPEN As FileDialog '宣告FILE_OPEN為檔案對話框
 Set FILE_OPEN= Excel.Application.FileDialog(msoFileDialogFilePicker)
'設定FILE_OPEN為選取檔案功能
 FILE_OPEN.InitialFileName = Excel.ActiveWorkbook.Path '對話框開始目錄的設定
 FILE_OPEN.Filters.Add "Excel File", "*.xls*" '設定對話框要顯示的副檔名
 FILE_OPEN.Filters.Add "所有檔案", "*.*" FILE_OPEN.Show '顯示對話框
 For i = 1 To FILE_OPEN.SelectedItems.Count
Source = Excel.ActiveWorkbook.NAME '儲存目前作業中檔案名稱
 Workbooks.Open Filename: = FILE_OPEN .SelectedItems(i) '取的檔案路徑
  WORKNAME = Excel.ActiveWorkbook.NAME '儲存新開檔案的檔案名稱
 Windows(WORKNAME).Activate '啟用新開檔案的檔案名稱
FOR J=1 TO SHEETS.COUNT STEP 1
SHEETS(J).Activate 

'讀檔案內容主要用等號即可，

'筆者用啟用取代這部分可以自由修改，例如也可以用FIND找關鍵字。
NEXT J
Windows(WORKNAME).CLOSE
 Windows(Source).Activate '啟用目前作業中檔案名稱
 NEXT I