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

沒有留言:

張貼留言

指數變化(2024.06.07)

 指數變化(2024.06.07) 上周焦點:      5/9當周焦點                          事實:fed與非農就業,引起投資市場對降息有加速,但肯定的是,fed說不加息了。                        美國密西根大學信心指數 再次...