以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个Excel文件里面有两个工作表【省】和【州】 怎么直接写值到excel指定单元格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186666)
--  作者：cnsjroom
--  发布时间：2023/5/18 16:12:00
--  一个Excel文件里面有两个工作表【省】和【州】 怎么直接写值到excel指定单元格
麻烦老师们帮忙看看
一个Excel文件里面有两个工作表【省】和【州】  怎么直接写值到excel指定单元格

代码代码如下：
Dim time As String =Format(Date.now,"yyyyMMddHHmmss")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\主要指标一览表.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\" & Date.Today.Year & "年" & Date.Today.Month & "月主要指标一览表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "省级制单人:" 红色部分没有写入值
Dim Sheet1 As XLS.Sheet = Book.Sheets(1)
Sheet1(8,6).Value = "州级制单人:" 红色部分没有写入值
book.AddDataTable("主要指标一览表","主数据源","S ele ct * from {主要指标一览表}")
Book.Build() \'生成报表
Book.Save(fl)



一个Excel文件里面有两个工作表【省】和【州】
想在工作表【省】中Sheet(6,6).Value = "省级制单人:"
想在工作表【州】中Sheet(8,6).Value = "州级制单人:"
[此贴子已经被作者于2023/5/18 16:14:23编辑过]
--  作者：有点蓝
--  发布时间：2023/5/18 16:17:00
--  
Book.Build() \'生成报表之后再赋值
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "省级制单人:" 红色部分没有写入值
--  作者：cnsjroom
--  发布时间：2023/5/18 17:52:00
--  回复：（有点蓝）Book.Build() '生成报表之后再赋值Di...
Book.Build() \'生成报表
Dim Sheet As XLS.Sheet = Book.Sheets(1)
    Sheet(6,6).Value = "制单人:"
Dim Sheet1 As XLS.Sheet = Book.Sheets(0)   这个部分没有写进去
 Sheet1(9,6).Value = "制单人:"
Book.Save(fl)
红色部分还是没有成功写入后台    0是【省】表  1是【州】表
还得麻烦老师帮忙看看
--  作者：有点蓝
--  发布时间：2023/5/18 19:58:00
--  
代码没有问题，应该是单元格引用位置索引不对