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

最新推荐文章于 2024-08-16 18:47:01 发布

STR_Liang

最新推荐文章于 2024-08-16 18:47:01 发布

阅读量1.1w

点赞数 5

分类专栏： VBA

本文链接：https://blog.csdn.net/STR_Liang/article/details/105111500

版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码用于将测试(1)工作簿中第一个工作表的A1:T10000区域数据，复制并粘贴到测试工作簿的同名工作表相同区域，实现数据的快速迁移。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如下代码：将工作簿测试（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