用vbs把excel的一个sheet1里的数据原样复制到另一个excel中的sheet1中 求vbs脚本

characterGARRICK 2019-06-13 02:36:04
Sub WORK()
Set book_A = ThisWorkbook.Sheets("1.P2P统计") '设置要复制的工作表
Set xlbook = Workbooks.Open(ThisWorkbook.Path & "\AA.xls") '打开同目录下要复制到的工作簿
Set sh = xlbook.Sheets("Sheet2") '设置要复制到的工作表
Windows("1.P2P统计").Activate '复制sheet1中的内容
book_A.Select
Cells.Select
Selection.Copy
Windows("AA.xls").Activate '将内容粘贴到目标工作表中
sh.Select
ActiveSheet.Paste
End Sub

我这样做一直都是执行不了 求各位大佬赐个脚本
把excel的sheet1数据原样复制到另一个excel的sheet1脚本
...全文
825 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
characterGARRICK 2019-06-13
  • 打赏
  • 举报
回复
找到了 解决了

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧