將excel文件列表合併到一個新的excel書中

Question

我需要創建一個合併目錄中的Excel文件列表的宏。 該文件夾包含我不想選擇的其他文件。所以，我需要指定文件列表（例如，選擇名稱中包含的所有文件「02.08 .xlsx」）。

這是我第一次使用VBA，所以請考慮這一點。 我試過一些東西，但我想我總是會遇到有關文件選擇的問題。

這是我到目前爲止已經試過，但沒有工作：

Sub MergeWorkbooks() 
Dim FolderPath As String 
Dim Filename As String 
Dim ListFilenames As Variant 
Dim Sheet As Worksheet 
Application.ScreenUpdating = False 
FolderPath = CurDir() 
ListFilenames = Array("*02.08.02.01*.xlsx", "*02.08.13.01*.xlsx") 
For i = 1 To 2 
    Filename = Dir(FolderPath & ListFilenames(i)) 
    Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True 
    For Each Sheet In ActiveWorkbook.Sheets 
    Sheet.Copy After:=ThisWorkbook.Sheets(1) 
    Next Sheet 
    Workbooks(Filename).Close 
    Filename = Dir() 
Next i 
Application.ScreenUpdating = True 
End Sub 

Answer 1

的代碼是wouldb是這樣的。

Sub MergeWorkbooks() 
    Dim FolderPath As String 
    Dim Filename As String 
    Dim ListFilenames As Variant 
    Dim Sheet As Worksheet 
    Application.ScreenUpdating = False 
    FolderPath = CurDir() 
    ListFilenames = Array("*02.08.02.01*.xlsx", "*02.08.13.01*.xlsx") 
    For i = 0 To 1 
     Filename = Dir(FolderPath & "\" & ListFilenames(i)) 
     Do While Filename <> "" 
      Workbooks.Open Filename:=FolderPath & "\" & Filename, ReadOnly:=True 
      For Each Sheet In ActiveWorkbook.Sheets 
      Sheet.Copy After:=ThisWorkbook.Sheets(1) 
      Next Sheet 
      Workbooks(Filename).Close 
      Filename = Dir() 
     Loop 
    Next i 
    Application.ScreenUpdating = True 
End Sub 

Answer 2

使用下面鏈接中的AddIn。

https://www.rondebruin.nl/win/addins/rdbmerge.htm

會做你想要什麼。