- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]开发版中导出功能可以实现，但是发布项目后再导出出现报错，代码如下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151453)
-- 发布时间：2020/6/23 16:04:00
-- [求助]开发版中导出功能可以实现，但是发布项目后再导出出现报错，代码如下
附上代码：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器 Excel文件|*.xls|Word文件|*.doc
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Publish\\事业部日报表.xlsx")
MessageBox.show(ProjectPath)
Dim fl As String = dlg.FileName \'\'\'\'ProjectPath & "Reports\\物料信息表.xlsx"
Book.Build() \'生成细节区
\'Book.Sheets(0).Rows.RemoveAt(0) \'删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
End If
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器 Excel文件|*.xls|Word文件|*.doc
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Publish\\事业部日报表.xlsx")
MessageBox.show(ProjectPath)
Dim fl As String = dlg.FileName \'\'\'\'ProjectPath & "Reports\\物料信息表.xlsx"
Book.Build() \'生成细节区
\'Book.Sheets(0).Rows.RemoveAt(0) \'删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
End If
[此贴子已经被作者于2020/6/23 16:04:06编辑过]
-- 发布时间：2020/6/23 16:13:00
--
确定模板文件的路径是正确的？
msgbox(ProjectPath & "Publish\\事业部日报表.xlsx")
-- 发布时间：2020/6/23 16:18:00
--
老师，发布后，Publish文件夹下的模板文件就没有，然后就出现报错，弹窗也没弹
-- 发布时间：2020/6/23 16:22:00
--
默认在Publish\\Attachments，而不是Publish，如果没有Attachments自己复制过去
Dim Book As New XLS.Book(ProjectPath & "Attachments\\事业部日报表.xlsx")
-- 发布时间：2020/6/23 16:57:00
--
谢谢老师，已解决