|
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
NEXT J
Windows(WORKNAME).CLOSE
Windows(Source).Activate '啟用目前作業中檔案名稱
NEXT I
留言列表
