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

最新推荐文章于 2025-04-18 09:09:57 发布

原创最新推荐文章于 2025-04-18 09:09:57 发布 · 1.1w 阅读

50 ·

CC 4.0 BY-SA版权

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