Foxtable(狐表)用户栏目专家坐堂 → 一个Excel文件里面有两个工作表【省】和【州】 怎么直接写值到excel指定单元格


  共有3676人关注过本帖树形打印复制链接

主题:一个Excel文件里面有两个工作表【省】和【州】 怎么直接写值到excel指定单元格

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
一个Excel文件里面有两个工作表【省】和【州】 怎么直接写值到excel指定单元格  发帖心情 Post By:2023/5/18 16:12:00 [只看该作者]

麻烦老师们帮忙看看
一个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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/18 16:17:00 [只看该作者]

Book.Build() '生成报表之后再赋值
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "省级制单人:" 红色部分没有写入值

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)Book.Build() '生成报表之后再赋值Di...  发帖心情 Post By:2023/5/18 17:52:00 [只看该作者]

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是【州】表
还得麻烦老师帮忙看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/18 19:58:00 [只看该作者]

代码没有问题,应该是单元格引用位置索引不对

 回到顶部