- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]XLS模板引用问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45873)
-- 发布时间：2014/2/12 16:44:00
-- [求助]XLS模板引用问题
代码：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板.xls") \'打开模板
Dim fl As String = ProjectPath & "f:\\报告1.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(6)
Sheet(0,0).Value = "<塔式起重机监检>" \'细节区定义一
Sheet(213,0).Value = "<塔式起重机监检>" \'细节区定义二
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
在“命令窗口”运行系统报错 多谢多谢！
-- 发布时间：2014/2/12 16:45:00
--
报什么错?
-- 发布时间：2014/2/12 16:46:00
--
这类问题,有例子才好办.
-- 发布时间：2014/2/12 16:50:00
--
截图已上传
-- 发布时间：2014/2/12 16:52:00
--
此主题相关图片如下：qq截图20140212164624.png
-- 发布时间：2014/2/12 17:02:00
--
本意是 将“塔式起重机监检”table引用模板生成报表
-- 发布时间：2014/2/12 17:21:00
--
截图并不能帮上忙,需要文件例子和模板才可以.
-- 发布时间：2014/2/12 17:21:00
--
根据你的截图提示,似乎是你路径下没有对应的文件哦.
-- 发布时间：2014/2/12 17:24:00
--
是的，就是模版文件不存在,出问题的代码是这样
Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板.xls") \'打开模板
你可以在命令窗口执行下面的代码判断：
If filesys.FileExists(ProjectPath & "Attachments\\模板.xls") Then
messagebox.show("存在")
Else
messagebox.show("不存在")
End If
-- 发布时间：2014/2/12 17:57:00
--
先谢了 我试了以上代码 是不存在 疑问是：我已复制了模板到文件夹了呀 见截图
此主题相关图片如下：qq截图20140212175503.png