Foxtable(狐表) → 用户栏目 → 专家坐堂 → 麻烦老师帮忙看看 怎么Export导出的excel文件打开提示失败呢？


  共有5217人关注过本帖树形打印复制链接

主题：麻烦老师帮忙看看 怎么Export导出的excel文件打开提示失败呢？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		麻烦老师帮忙看看 怎么Export导出的excel文件打开提示失败呢？  发帖心情 Post By：2021/10/25 12:01:00 [只看该作者]

当前代码如下，想实现根据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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2021/10/25 14:03:00 [只看该作者]

不要下载到桌面，下载到一个普通文件夹看看。

 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点酸）不要下载到桌面，下载到一个普通文件...  发帖心情 Post By：2021/10/25 15:19:00 [只看该作者]

保存在其他盘符或文件夹下 问题依旧  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table

导出excel按钮  生成的文件就不能正常打开  打开如一楼图
选择导出按钮   生成的文件就可以正常打开   
是先选择表名  然后选择生成对应表名对应的excel表
[此贴子已经被作者于2021/10/25 15:21:38编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113897 积分：580094 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）没有指定格式示例四将产品PD01的订单...  发帖心情 Post By：2021/10/26 8:45:00 [只看该作者]

代码如下：【麻烦老师帮忙指导下 谢谢！】
导出按钮代码
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
错误所在事件：
详细错误信息：
系统找不到指定的文件。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113897 积分：580094 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）认真看看帮助：http://www.foxtable....  发帖心情 Post By：2021/10/26 9:58:00 [只看该作者]

谢谢老师指导  修改xlsx为xls成功导出并正常阅读  另外如果是excel2007  也就是xlsx的话   是不是要预先创建好对应的excel文件后才能导出呢？也就是有模板才能导出  对吧！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113897 积分：580094 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/26 10:04:00 [只看该作者]

不需要模板，导出格式设置为Excel2007即可

ex.Format = "Excel2007" 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09766 秒, 5 次数据查询