将不同工作簿中的特定工作表合并到一个循环中的主工作簿中

每个月都会编辑桌面文件夹中未知数量的文件。

我开发了一个2步的macros来获取这个编辑的数据，并把它合并成一个主文件。 首先，在将每个文件中的数据合并到一个主数据文件之前，先对数据进行连接和转置。 我循环浏览文件夹，打开每个文件并在每个文件夹中创build一个新的汇总表。 其次，我有一个macros，它遍历指定文件夹中的每个文件，select数据行，复制它，然后将其粘贴到名为“MasterData”的单独工作簿中。

我的问题是，我的第二个macros（合并function），并没有指向我的目标文件“主数据”或“主数据”，我希望数据合并到特定工作表。 我已经包含在下面没有循环代码，

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