期望點選檔案後，可以讀這個檔案的每一頁工作表。
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
沒有留言:
張貼留言