- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为何这段代码会删除exel的列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43233)
-- 发布时间：2013/12/2 21:27:00
-- 为何这段代码会删除exel的列
为何这段写excel单元格值的代码会将excel的列删除？
Dim Book1 As New XLS.Book(ProjectPath & "\\隐患排查2013.xls") \'打开模板
Dim fla As String = ProjectPath & "\\隐患排查2013.xls"
Dim Sheet As XLS.Sheet = Book1.Sheets(0)
Dim r As Row = Tables("隐患排查").Current
Sheet(21,3).Value = r("一般隐患排查项")
Sheet(21,4).Value = r("一般隐患整改项")
Sheet(21,5).Value = r("一般隐患整改率")
Sheet(12,3).Value = DataTables("隐患排查").Compute("sum(一般隐患排查项)","填报单位 = \'" & r("填报单位") & "\'")
Book1.Build() \'生成报表
Book1.Save(fla)
-- 发布时间：2013/12/2 21:29:00
--
如图
此主题相关图片如下：11.gif
[此贴子已经被作者于2013-12-2 21:30:24编辑过]
-- 发布时间：2013/12/2 21:31:00
--
是不是应该build完了，再设置值？
-- 发布时间：2013/12/2 21:32:00
--
文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:直接写excel值.rar |
-- 发布时间：2013/12/2 21:55:00
--
我的理解
基于模板的，边上第一列应该是留给系统的，每次生成时会删除
你从模板文件生成，又保存至模板文件。应该是保存一次少一列。
-- 发布时间：2013/12/2 22:06:00
--
如5楼所说，你的那个是模板，模板肯定是会去掉第一列的。
-- 发布时间：2013/12/3 8:17:00
--
把 Book1.Build() \'生成报表 这句代码删了就好了。。