[求助]开发版中导出功能可以实现，但是发布项目后再导出出现报错，代码如下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]开发版中导出功能可以实现，但是发布项目后再导出出现报错，代码如下

共有3248人关注过本帖树形打印复制链接主题：[求助]开发版中导出功能可以实现，但是发布项目后再导出出现报错，代码如下

爱秦宣言

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：65 积分：554 威望：0 精华：0 注册：2019/12/13 9:17:00

[求助]开发版中导出功能可以实现，但是发布项目后再导出出现报错，代码如下 发帖心情

Post By：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