Foxtable(狐表)用户栏目专家坐堂 → [求助]Excel copy和paste 的问题


  共有1966人关注过本帖树形打印复制链接

主题:[求助]Excel copy和paste 的问题

美女呀,离线,留言给我吧!
joe_xgp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
[求助]Excel copy和paste 的问题  发帖心情 Post By:2016/4/20 10:26:00 [只看该作者]

查看帮助说明,看到Excel VBA部分,没看到有copy的语句和相关示例,比如我要把A1:B5区域的数据复制到下面A6:B10,不知道语句如何来写,请老师指教一下,或提供示例学习一下,非常感谢!!!

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/20 10:32:00 [只看该作者]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg1 As MSExcel.Range = Ws.Range("A1:B5")
rg1.Copy
Dim Rg2 As MSExcel.Range = Ws.Range("A6:B10")
rg2.Select
ws.paste
app.Visible = True

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2016/4/20 10:41:00 [只看该作者]

太感谢大红袍老师了!!!!!图片点击可在新窗口打开查看


 回到顶部