Foxtable(狐表)用户栏目专家坐堂 → 不能导出到excel表了


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

主题:不能导出到excel表了

帅哥哟,离线,有人找我吗?
xxfoxtable
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1711 积分:16021 威望:0 精华:0 注册:2017/6/1 23:12:00
不能导出到excel表了  发帖心情 Post By:2019/4/3 16:36:00 [只看该作者]

    整个操作过程都有,不报错,就是目标文件夹没有文件,不知道是什么原因
        Dim ex As New Exporter
        ex.Format = "Excel" '导出格式为Excel
        ex.SourceTableName = "销售" '指定导出表
        ex.filepath = dlg.FileName  '指定目标文件
        ex.Filter = Tables("销售").Filter
        ex.Export() '开始导出

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/3 17:53:00 [只看该作者]

1、试试删除这句代码 ex.Filter = Tables("销售").Filter

 

2、如果正常,贴出你filter的内容看看,如 msgbox(Tables("销售").Filter)

 


 回到顶部
帅哥哟,离线,有人找我吗?
xxfoxtable
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1711 积分:16021 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/4/3 18:30:00 [只看该作者]

删除那段代码,还是不行,目标目录没有文件


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/3 18:46:00 [只看该作者]

具体实例发上来测试。

 回到顶部
帅哥哟,离线,有人找我吗?
xxfoxtable
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1711 积分:16021 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/4/3 19:45:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:20190403.rar


 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/3 20:29:00 [只看该作者]

 

请上传内部数据源的实例或者access数据源的实例测试。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
xxfoxtable
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1711 积分:16021 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/4/3 22:05:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/3 23:03:00 [只看该作者]

改成

 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

 


 回到顶部