Sub CopyDataToAnotherWorkbook() Dim sourceWorkbook As Workbook Dim targetWorkbook As Workbook Dim sourceWorksheet As Worksheet Dim targetWorksheet As Worksheet Dim sourceRowCount As Long Dim targetRowCount As Long Dim i As Long '打开源工作簿 Set sourceWorkbook = Workbooks.Open("D:\课程作业或资料\VBA\TimeSeries2.xlsm") '打开目标工作簿 Set targetWorkbook = ThisWorkbook '获取源工作簿的第二个表格和行数 Set sourceWorksheet = sourceWorkbook.Worksheets(2) sourceRowCount = sourceWorksheet.Cells(Rows.Count, 1).End(xlUp).Row '循环将源工作簿中的每一行复制到目标工作簿的对应表格中的第二行 For i = 2 To sourceRowCount '获取目标工作簿中对应表格和行数 Set targetWorksheet = targetWorkbook.Worksheets(i) targetRowCount = targetWorksheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 '复制源工作簿中的数据到目标工作簿中 sourceWorksheet.Rows(i).Copy targetWorksheet.Rows(targetRowCount) Next i '关闭工作簿 sourceWorkbook.Close SaveChanges:=False targetWorkbook.Close SaveChanges:=True End Sub

这是一个 VBA 的代码，用于将一个工作簿中的数据复制到另一个工作簿中。具体来说，它打开了一个名为 "TimeSeries2.xlsm" 的工作簿，并复制了其中第二个表格的所有行到当前活动工作簿中对应表格的下一行。在循环中，它在每次迭代中更新目标工作簿和行数，并使用 "Copy" 方法将源工作簿中的数据复制到目标工作簿中的相应位置。最后，它关闭了两个工作簿。