- 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=132993)
-- 发布时间：2019/4/3 16:36:00
-- 不能导出到excel表了
整个操作过程都有，不报错，就是目标文件夹没有文件，不知道是什么原因
Dim ex As New Exporter
ex.Format = "Excel" \'导出格式为Excel
ex.SourceTableName = "销售" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Filter = Tables("销售").Filter
ex.Export() \'开始导出
-- 发布时间：2019/4/3 17:53:00
--
1、试试删除这句代码 ex.Filter = Tables("销售").Filter
2、如果正常，贴出你filter的内容看看，如 msgbox(Tables("销售").Filter)
-- 发布时间：2019/4/3 18:30:00
--
删除那段代码，还是不行，目标目录没有文件
-- 发布时间：2019/4/3 18:46:00
--
具体实例发上来测试。
-- 发布时间：2019/4/3 19:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:20190403.rar |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.foxdb |
-- 发布时间：2019/4/3 20:29:00
--
请上传内部数据源的实例或者access数据源的实例测试。
-- 发布时间：2019/4/3 22:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目7.rar |
-- 发布时间：2019/4/3 23:03:00
--
改成
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮