[求助] EXCEL 模板导出问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1. 6000条数据导出时，时间太长，约2~3分，求解决！

2.导出运行一段时间后，出现以下错误，见附件

此主题相关图片如下：无标题.png

导出代码：Dim pr As Integer = Tables("检查").Rows.Count

Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

e.Form.Controls("Label1").Text = "正在导出 ... ... ,请稍后..."

Application.DoEvents()

Dim Book As New XLS.Book(ProjectPath & "Attachments\导出模版.xls")

Dim fl As String = dlg.FileName

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet(0,0).Value = "<" & Tables("检查").Filter & ">" '写入打印条件

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

e.Form.Controls("Label1").Text = "已经完成"

If MessageBox.Show("成功导出数据"& pr &"条,是否打开数据?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then

Dim Proc As New Process

Proc.File = fl

Proc.Start()

e.Form.Controls("Label1").Text = ""

Else

'e.form().Close

Syscmd.Table.ToggleSortAndFilter()

e.Form.Controls("Label1").Text = ""

End If

选择时段时出现，上述第2个问题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹 (2).rar

请大红袍老师看看

Sheet(0,0).Value = "<" & Tables("检查").Filter & ">"

改成

Sheet(2,77).Value = "<" & Tables("检查").Filter & ">"

也不可，不知哪里错了

[此贴子已经被作者于2015/8/4 10:31:44编辑过]

本来使用的是Exporter，后来为了将逻辑列中的True 替换成“*”，False 替换成“ ”。才使用EXCEL模板的。

有无它法，将逻辑列中的True 替换成“*”，False 替换成“ ”。

谢谢，大红袍老师！我再学习一下动态表达式。

隐藏后可以导出吗？不指定导出列好像不行的把

主题：[求助] EXCEL 模板导出问题