循環將來自不同工作簿的特定工作表合並為一個主工作簿

Question

每個月都會編輯桌面文件夾中未知數量的文件。

我開發了一個兩步宏來獲取這些編輯后的數據並將其合並到一個主文件中。 首先，在將所有數據合並到主數據文件中之前，我先對其進行串聯和轉置。 我遍歷該文件夾，打開每個文件，並在每個文件中創建一個新的摘要表。 其次，我有一個宏，它循環遍歷指定文件夾中的每個文件，選擇數據行，將其復制，然后將其粘貼到名為“ MasterData”的單獨的工作簿中。

我的問題是我的第二個宏（合並功能）沒有指向我的目標文件“主數據”或我希望將數據合並到的“主數據”中的特定工作表。 我將其包含在下面，但沒有循環代碼，

Dim Line1 As String
Dim Line2 As String
Dim MasterData As Workbook
Dim MasterDataSheet As Worksheet
Worksheets("sheet1").Select
Line1 = Range("A2:HA2")
Worksheets("Sheet1").Select
Line2 = Range("A3:HA3")
Set MasterData = Workbooks.Application.ActiveWorkbook
Worksheets("MasterData").Select
Worksheets("MasterData").Range("A1").Select
RowCount = Worksheets("MasterData").Range("a1").CurrentRegion.Rows.Count
With Worksheets("MasterData").Range("A1")
 .Offset(RowCount, 0) = Line1
 .Offset(RowCount, 0) = Line2
End With
MasterData.Save

我應該怎么做才能確保數據到達主數據工作簿？

Answer 1

您是否嘗試調用Sheet1 ， Sheet2 ， Sheet3 ，...而不是調用Worksheets("name") ？

在屏幕左側的所有表格都位於下拉菜單中，然后嘗試使用方括號中的名稱之前的名稱。

在圖片中，兩個都命名為Sheet1（Sheet1）。 使用不帶括號的名字，例如： Sheet1.Range("A1")代替Worksheets("MasterData").Range("A1")

圖片： excel VB圖片