2020年10月24日 星期六

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

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


No

要點摘要

1

宣告FileDialog

2

SetExcel.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

沒有留言:

張貼留言

利益、折舊、股本 研究整理 part 15 鏡頭、機器人

 利益、折舊、股本 研究整理  part 15  鏡頭、機器人 整理輸出,自己做給自己看,別亂用 整理要點:  3406;玉晶光 3008;大立光 3362;先進光 3441;聯一光電 3019;亞光 4976;佳凌 2374;佳能 3504;揚明光 ...