【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

 

 

发布了24 篇原创文章 · 获赞 7 · 访问量 2万+
App 阅读领勋章
微信扫码 下载APP
阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 黑客帝国 设计师: 上身试试

分享到微信朋友圈

×

扫一扫,手机浏览