以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Excel copy和paste 的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83952)

--  作者:joe_xgp
--  发布时间:2016/4/20 10:26:00
--  [求助]Excel copy和paste 的问题
查看帮助说明,看到Excel VBA部分,没看到有copy的语句和相关示例,比如我要把A1:B5区域的数据复制到下面A6:B10,不知道语句如何来写,请老师指教一下,或提供示例学习一下,非常感谢!!!
--  作者:大红袍
--  发布时间: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
--  发布时间:2016/4/20 10:41:00
--  

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