| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何控制excel克隆一行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25961) |
| -- 作者：Fotable -- 发布时间：2012/11/20 19:51:00 -- 如何控制excel克隆一行 如题 [此贴子已经被作者于2012-11-20 19:51:20编辑过]
|
| -- 作者：Fotable -- 发布时间：2012/11/21 9:26:00 -- 这个有木有办法 要vba吗 |
| -- 作者：lin_hailun -- 发布时间：2012/11/21 9:30:00 -- 克隆一行，不能用单元格的读取和写入吗？ http://www.foxtable.com/help/topics/1160.htm [此贴子已经被作者于2012-11-21 9:30:30编辑过]
|
| -- 作者：迷狐 -- 发布时间：2012/11/21 10:23:00 -- Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(lj) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) App.ScreenUpdating = False \'禁止刷新 App.DisplayAlerts = False \'禁止报警 \'分页 For p As Integer = 1 To math.Ceiling(tb.Count /( fl*prs)) - 1 \'p分页 Ws.Rows("1:" & zh).Copy(Ws.Range("a" & p*zh+1)) \'复制模板及总表数据 Next |
| -- 作者：Fotable -- 发布时间：2012/11/21 15:29:00 -- 以下是引用迷狐在2012-11-21 10:23:00的发言：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(lj)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.ScreenUpdating = False \'禁止刷新
App.DisplayAlerts = False \'禁止报警
\'分页
For p As Integer = 1 To math.Ceiling(tb.Count /( fl*prs)) - 1 \'p分页
Ws.Rows("1:" & zh).Copy(Ws.Range("a" & p*zh+1)) \'复制模板及总表数据
Next
看不懂呀 能解释下吗，tb是什么，zh ， p都是代表什么变量 |
| -- 作者：lin_hailun -- 发布时间：2012/11/21 16:14:00 -- 比如，复制1到10行，到20行的位置 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\aaa.xlsx") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) ws.Rows("1:10").Copy(ws.Cells(20,1)) app.quit |
| -- 作者：Fotable -- 发布时间：2012/11/21 16:21:00 -- Rows("2:16").Copy Rows("17:31") |