- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Foxtable操控Excel (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20965)
-- 发布时间：2012/6/25 16:20:00
-- [求助]Foxtable操控Excel
在Excel中 Rows("1:56").Copy Range("A57") ‘拷贝数据
在Foxtable操控Excel应怎样改写？
-- 发布时间：2012/6/25 16:23:00
--
这个方法太多了，还是先系统学习一下帮助吧。
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
此外一定要先掌握《使用指南》，然后再看《开发指南》
-- 发布时间：2012/6/26 9:19:00
--
搞定。
原来必须要和EXCEL报表分开，采用VBA需重新定义Application对象
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(lj)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
For p As Integer = 1 To math.Ceiling(tb.Rows.Count /( fl*prs)) - 1 \'p分页
Ws.Rows("1:" & zh).Copy(Ws.Range("a" & p*zh+1))
\'Rows("1:56").Copy Range("A57") \'excel用
Next
Wb.Save
App.Visible = True
[此贴子已经被作者于2012-6-26 9:21:41编辑过]
-- 发布时间：2012/11/21 11:20:00
--
顶起来