vba - VBA：将单元格范围复制到不同的工作簿

Question

我目前正在研究一组集成的工作簿，我需要在工作簿之间传输数据值。为此，我需要一个 VBA 宏，它可以复制特定范围（工作表中的一行）并将其插入另一本书的概览列表的底部。

我怎样才能做到这一点？

我有点像 VBA 新手，因此非常感谢您的具体说明。注意：我使用的是 MS Excel 2010。

先感谢您！

Answer 1

下面的示例复制将单元格的内容A1:A3从Worksheet命名Source中的Workbook命名复制workbook1.xlsx到不同的Worksheet命名中，。如果两个s 中的任何一个未打开，或者它们不包含调用所需的s，它将引发错误。TargetWorkbookworkbook1.xlsxWorkbookWorksheetSub

Sub Example()

    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set wb1 = Workbooks("workbook1.xlsx")
    Set wb2 = Workbooks("workbook2.xlsx")
    Set ws1 = wb1.Sheets("Source")
    Set ws2 = wb2.Sheets("Target")

    ws2.Range("A1:A3") = ws1.Range("A1:A3").Value

End Sub