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

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

Sub GetData_2()Dim WB As Workbook, WB_1 As WorkbookSet 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.CloseWB_1.SaveWB_1.CloseSet WB = NothingSet WB_1 = NothingDebug.Print ("OK")End Sub

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