Foxtable(狐表)用户栏目专家坐堂 → 导出格式,多表同时导出


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

主题:导出格式,多表同时导出

美女呀,离线,留言给我吧!
ganlan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1233 威望:0 精华:0 注册:2021/4/17 10:35:00
导出格式,多表同时导出  发帖心情 Post By:2021/6/20 11:12:00 [只看该作者]

杂项里面的导出,好像目前还是不支持导出格式为xlsx的,数据数量少的,xls可以,但是如果数量达到几万的,xls行数有限制,就无法全部导出,
同时,多个表能否同时导出

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可以导出格式为xlsx的,点击后弹出的保存为窗口里保存类型选xlsx即可

只能一个一个表的导。

可以自己写代码导多个表格:http://www.foxtable.com/webhelp/topics/0683.htm

 回到顶部
美女呀,离线,留言给我吧!
ganlan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1233 威望:0 精华:0 注册:2021/4/17 10:35:00
  发帖心情 Post By:2021/6/20 22:00:00 [只看该作者]

但是我有时候导出为XLSX格式后,打开都会提示文件破坏

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107301 积分:545766 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/20 22:17:00 [只看该作者]

我测试没发现这种问题,请上传实例说明

 回到顶部
美女呀,离线,留言给我吧!
ganlan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1233 威望:0 精华:0 注册:2021/4/17 10:35:00
  发帖心情 Post By:2021/6/26 10:15:00 [只看该作者]

同时导出多个工作表是这样吗?红色字体哪里
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "订单", "供应商" '指定导出表
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
End If
[此贴子已经被作者于2021/6/26 10:17:14编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

ex.Format = "Excel2007"

 回到顶部
美女呀,离线,留言给我吧!
ganlan
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1233 威望:0 精华:0 注册:2021/4/17 10:35:00
  发帖心情 Post By:2021/6/26 12:09:00 [只看该作者]

ex.SourceTableName = "订单", "供应商"
想导出这两个表,但是点导出的是时候提示错误

 回到顶部
美女呀,离线,留言给我吧!
ganlan
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1233 威望:0 精华:0 注册:2021/4/17 10:35:00
  发帖心情 Post By:2021/6/26 12:14:00 [只看该作者]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel2007|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "订单"
    ex.SourceTableName = "供应商"  
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
End If

这样可以导出,但是提示出错
图片点击可在新窗口打开查看此主题相关图片如下:360截图20210626101944869.jpg
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
ganlan
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1233 威望:0 精华:0 注册:2021/4/17 10:35:00
  发帖心情 Post By:2021/6/26 13:03:00 [只看该作者]

不管是XLSX还是xls的格式,打开都会这个提示出错
图片点击可在新窗口打开查看此主题相关图片如下:360截图20210626130008509.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

能不能认真看看6楼说明?!!另外2个表要分开2次导

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel2007|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "订单"
    ex.filepath = dlg.FileName  '指定目标文件
ex.Format = "Excel2007"
    ex.Export() '开始导出

ex = New Exporter
    ex.SourceTableName = "供应商"  
    ex.filepath = dlg.FileName  '指定目标文件
ex.Format = "Excel2007"
    ex.Export() '开始导出
End If


 回到顶部
总数 12 1 2 下一页