- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何用代码修改excel报表模板的单元格的值？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104931)
-- 发布时间：2017/8/8 17:08:00
-- 如何用代码修改excel报表模板的单元格的值？
如题
-- 发布时间：2017/8/8 17:15:00
--
生成前修改
http://www.foxtable.com/webhelp/scr/2626.htm
生成后修改
http://www.foxtable.com/webhelp/scr/1982.htm
-- 发布时间：2017/8/10 22:00:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购合同.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(8,3).value="[存货中文颜色]"
\'Sheet(6,6).Value = "制单人:" & User.Name \'修改模板,加入制单人信息
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
这段代码不能把单元格sheet(8,3)的值改成[存货中文名称]
-- 发布时间：2017/8/10 22:48:00
--
肯定没问题的。注意 8,3 表示的是第九行第四列。
-- 发布时间：2017/8/10 23:50:00
--
现在这个单元格变成空白了。
此主题相关图片如下：无标题.png
-- 发布时间：2017/8/10 23:53:00
--
空白不是很正常吗？如果你要看到效果，这样写
Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购合同.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(8,3).value="[存货中文颜色]"
Book.Save(ProjectPath & "Attachments\\采购合同.xls") \'保存工作簿
-- 发布时间：2017/8/16 13:40:00
--
Dim fl As String="c:\\reports\\ecxel报表.xls"
Dim App As New MSExcel.Application
If FileIsOpened(fl)= True Then
MessageBox.Show("文件已经打开")
Return
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售合同.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(15,10).value="[存货中文颜色]"
Book.Save(ProjectPath & "Attachments\\销售合同.xls") \'保存工作簿
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
\'
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
模板单元格的值没有改变，如何解决？
-- 发布时间：2017/8/16 14:18:00
--
你执行这段，打开后是否填入了？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售合同.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(15,10).value="[存货中文颜色]"
Book.Save(ProjectPath & "Attachments\\销售合同.xls") \'保存工作簿
Dim proc As New Process
proc.File = ProjectPath & "Attachments\\销售合同.xls"
proc.Start
-- 发布时间：2017/8/16 14:41:00
--
填不了。
此主题相关图片如下：无标题.png
-- 发布时间：2017/8/16 14:42:00
--
这是模板
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:销售合同.xls |