以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  麻烦老师帮忙看看 怎么Export导出的excel文件打开提示失败呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172665)

--  作者:cnsjroom
--  发布时间:2021/10/25 12:01:00
--  麻烦老师帮忙看看 怎么Export导出的excel文件打开提示失败呢?
当前代码如下,想实现根据cm选择的不同的表名  然后指定导出对应表名的表  结果运行之后怎么也打不开导出的文件
麻烦老师帮忙看看是什么原因呢?

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "EXCEL文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = cm.Text \'指定导出表
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Export() \'开始导出
End If


生成后的文件打开提示如图问题提示:

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/10/25 12:04:19编辑过]

--  作者:有点酸
--  发布时间:2021/10/25 14:03:00
--  
不要下载到桌面,下载到一个普通文件夹看看。
--  作者:cnsjroom
--  发布时间:2021/10/25 15:19:00
--  回复:(有点酸)不要下载到桌面,下载到一个普通文件...
保存在其他盘符或文件夹下 问题依旧  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table

导出excel按钮  生成的文件就不能正常打开  打开如一楼图
选择导出按钮   生成的文件就可以正常打开   
是先选择表名  然后选择生成对应表名对应的excel表
[此贴子已经被作者于2021/10/25 15:21:38编辑过]

--  作者:有点蓝
--  发布时间:2021/10/25 20:28:00
--  
没有指定格式

示例四

将产品PD01的订单导出为Excel格式保存,并只导出指定的列:

Dim ex as New Exporter
ex
.SourceTableName = "订单" \'指定导出表
ex
.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "日期,客户,数量,单价,产品" \'指定导出字段
ex.Filter = "[产品] = \'PD01\'" \'指定导出条件
ex.Export() 
\'开始导出


--  作者:cnsjroom
--  发布时间:2021/10/26 8:45:00
--  回复:(有点蓝)没有指定格式示例四将产品PD01的订单...
代码如下:【麻烦老师帮忙指导下 谢谢!】
导出按钮代码
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "EXCEL文件|*.xlsx" \'设置筛选器
Dim Proc As New Process \'定义一个新的Process

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    MessageBox.Show(Vars("btname"))
    ex.SourceTableName = Vars("btname") \'cm.Text \'指定导出表
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Format = "Excel" \'导出格式为Excel    ‘如果注释掉这句代码 文件能够正常生成  但是出现一楼错误  无法正常打开’
    ex.Export() \'开始导出
    Proc.File = dlg.FileName \'指定要打开的文件
    Proc.Start()
End If
运行提示如下:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.9.2.1
错误所在事件:
详细错误信息:
系统找不到指定的文件。

--  作者:有点蓝
--  发布时间:2021/10/26 8:48:00
--  
认真看看帮助:http://www.foxtable.com/webhelp/topics/0683.htm


Format
字符型,指定导出格式,包括Access、Access2007、Excel、Excel2007、dBASE、Delimited、Fixed
其中Delimited为符号分割的文本文件,Fixed为固定列宽的文本文件。
默认为Access
除Excel2007外,其余格式的文件均可自动创建,而Excel2007格式的目标文件必须事先已经存在。

--  作者:cnsjroom
--  发布时间:2021/10/26 9:58:00
--  回复:(有点蓝)认真看看帮助:http://www.foxtable....
谢谢老师指导  修改xlsx为xls成功导出并正常阅读  另外如果是excel2007  也就是xlsx的话   是不是要预先创建好对应的excel文件后才能导出呢?也就是有模板才能导出  对吧!
--  作者:有点蓝
--  发布时间:2021/10/26 10:04:00
--  
不需要模板,导出格式设置为Excel2007即可

ex.Format = "Excel2007"