【VBA技巧】打开两个Excel读取复制粘贴数据（将一个Excel文件数据复制粘贴到另一个Excel文件）

如下代码：将工作簿 测试（1）的第一个工作表的A1:T10000区域的数据，复制粘贴到工作簿 测试 的第一个工作表的A1:T10000区域

Sub GetData_2()
    Dim WB As Workbook, WB_1 As Workbook
    Set WB = Workbooks.Open("C:\Users\admin\Desktop\测试 (1).xlsx")
    Set WB_1 = Workbooks.Open("C:\Users\admin\Desktop\测试.xlsx")
    WB.Worksheets(1).Range("A1:T10000").Copy WB_1.Worksheets(1).Range("A1:T10000")
    WB.Close
    WB_1.Save
    WB_1.Close
    Set WB = Nothing
    Set WB_1 = Nothing
    Debug.Print ("OK")
End Sub