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

VBA 专栏收录该内容
62 篇文章 3 订阅

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

 

 

  • 2
    点赞
  • 0
    评论
  • 14
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论
请先登录 后发表评论~
©️2021 CSDN 皮肤主题: 点我我会动 设计师:白松林 返回首页

打赏作者

STR_Liang

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值