VBA 将多个相同格式EXCEL中内容汇总到一个EXCEL文件中去

前段时间使用影刀，实现了将多个相同格式EXCEL中内容汇总到一个EXCEL文件中去的功能，现在用VBA实现

Sub 取数据()Dim l_oldrows, l_nesrows As Long
Dim targetWorkbook As Workbook
Dim targetWorksheet As Worksheet
Dim rng As Range'设置目标工作簿、工作表、范围Set targetWorkbook = ThisWorkbookSet targetWorksheet = ActiveSheetApplication.ScreenUpdating = Falsemyfile = Dir(ThisWorkbook.Path & "\*.xlsx")a = 2 '定义起始行l_newrows = 1Do While myfile <> ""If myfile <> ThisWorkbook.Name And myfile <> "汇总.xlsx" ThenSet wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfile)wb.Sheets("工时对比").Activatel_oldrows = ActiveSheet.Range("A" & Rows.Count).End(xlUp).RowSet rng = ActiveSheet.Range("A2:N" & l_oldrows)targetWorkbook.Sheets(1).Activaterng.Copy targetWorksheet.Range("A" & l_newrows)l_newrows = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1wb.Close FalseEnd Ifmyfile = DirLoopApplication.ScreenUpdating = TrueMsgBox "完成"
End Sub