Excel将不同工作簿中的数据复制到1个工作簿中

Question

2,3和6-12被跳过。下面是我的代码：

    Sub Macro1()
'
' Macro1 Macro
'
    Dim wb1 As Workbook
    Set wb1 = ThisWorkbook

Path = "C:\Users\Tester\Documents\test\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Rows("2:" & Range("A1").End(xlDown).Row).copy _
        wb1.Sheets(1).Range("A" & Range("A1").End(xlDown).Row + 1)
    Application.CutCopyMode = False
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

我认为这个问题与行“wb1.sheets(1).Range（”a“&Range（”a1“）.end（xlDown）.row+1）”有关，但我不知道如何解决这个问题。有什么建议吗？谢谢！

Answer 1

您只定义要复制到的范围，但在该范围内命令range（“a1”）.end(xlDown).row尚未指定文件，因此excel将获得窗体活动文件。

尝试将您的目的地更改为

wb1.Sheets(1).Range("A" & wb1.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1)

您的代码将类似于

Sheet.Rows("2:" & Range("A1").End(xlDown).Row).copy 
     _ wb1.Sheets(1).Range("A" & wb1.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1)