返回列表 上一主題 發帖

[發問] [已解決]關於 如何選擇多個檔案後依序執行巨集

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-25 14:46 | 只看該作者

[發問] [已解決]關於 如何選擇多個檔案後依序執行巨集

本帖最後由 starry1314 於 2015-6-25 15:01 編輯

想請問如何讓選取到的檔案依序執行完我要的巨集在關閉檔案後 繼續執行下一個檔案重複到無檔案為止呢?

解決方案
  1. Sub 開啟多個檔案()

  3.    Dim filenames As Variant

  5.    ' set the array to a variable and the True is for multi-select
  6.    filenames = Application.GetOpenFilename(, , , , True)

  8.       counter = 1

  10.       ' 選擇總共要開啟的檔案
  11.       While counter <= UBound(filenames)

  13.          '打開選定的文件,且不更新連結
  14.          Workbooks.Open filenames(counter), UpdateLinks:=0
  15.          
  16.          '巨集
  17.          
  18.          '關閉選擇的檔案
  19.          ActiveWorkbook.Close True
  20.          
  21.          
  22.          ' 消息框 顯示文件名
  23.          'MsgBox filenames(counter)

  25.          '開啟新檔案
  26.          counter = counter + 1

  28.       Wend
  29.    End Sub
複製代碼
開啟所有選擇的檔案
  1.    Sub 開啟多個檔案()

  3.    Dim filenames As Variant

  5.    ' set the array to a variable and the True is for multi-select
  6.    filenames = Application.GetOpenFilename(, , , , True)

  8.       counter = 1

  10.       ' 選擇總共要開啟的檔案
  11.       While counter <= UBound(filenames)

  13.          '打開選定的文件
  14.          Workbooks.Open filenames(counter)

  16.          ' 消息框 顯示文件名
  17.          'MsgBox filenames(counter)

  19.          '開啟新檔案
  20.          counter = counter + 1

  22.       Wend
  23.    End Sub
複製代碼
此程式為讀取檔案路徑,並在H1依序往下貼上路徑
  1. Sub 開啟檔案_Click()
  2.     With Application.FileDialog(msoFileDialogOpen)
  3.         .InitialFileName = "\\boss-pc\公用磁區"
  4.         .AllowMultiSelect = True
  5.         .Show
  6.         For i = 1 To .SelectedItems.Count
  7.             Cells(i, 7) = .SelectedItems(i) 'i=列 7=欄
  8.             'MsgBox .SelectedItems(i) '讀取到的資訊
  9.         Next
  10.     End With
  11. End Sub
複製代碼
收藏 分享

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題