为何这段写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)
加好友 
发短信
Post By：2013/12/2 21:27:00 [只看该作者]
