- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 导出的excel文件打不开 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176306)
-- 发布时间：2022/4/8 7:24:00
-- 导出的excel文件打不开
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = MainTable.Name \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
If MainTable.Name = "客户管理" Then
ex.Fields = "上游客户,品牌,商品车,备注" \'指定导出字段
ElseIf MainTable.Name = "车辆管理"
ex.Fields = "车牌号,驾驶员,车辆类型,承运单位" \'指定导出字段
ElseIf MainTable.Name = "动态管理"
ex.Fields = "省份,城市" \'指定导出字段
ElseIf MainTable.Name = "上游运价管理"
ex.Fields = "上游客户,品牌,商品车,上游始发地,上游到达地,上游里程,上游单价,上游单台估价,起始日期,终止日期" \'指定导出字段
ElseIf MainTable.Name = "下游运价管理"
ex.Fields = "上游客户,品牌,商品车,实际发车地,实际到达地,车辆类型,下游单价,起始日期,终止日期" \'指定导出字段
ElseIf MainTable.Name = "运单管理"
ex.Fields = "上游客户,商品车,运输单号,VIN码,台数,上游发车地,上游到达地,上游里程,交车单位,计划日期,运单备注" \'指定导出字段
End If
ex.Filter = "[_Identify] Is Null" \'指定导出条件
ex.Export() \'开始导出End If
Dim Result As DialogResult
Result = MessageBox.Show("导出成功,是否打开所导出文件?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
End If
下工具栏的按钮为以上代码，想实现当主表变化后，能导出相应的主表的表头。可以导出，但导出后excel打开时提示错误，如图
此主题相关图片如下：报错.png
此主题相关图片如下：报错.png-- 发布时间：2022/4/8 9:09:00
--
ex.Format = "Excel" \'导出格式为Excel