以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]Excel copy和paste 的问题 (http://foxtable.net/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 -- 太感谢大红袍老师了!!!!! |