Board logo

標題: [發問] [已解決]關於 如何選擇多個檔案後依序執行巨集 [打印本頁]
作者: starry1314    時間: 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)