以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  exporter导出为excel时提示，excel无法导出（因为微软bug）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116547)
--  作者：evolymft
--  发布时间：2018/3/26 17:29:00
--  exporter导出为excel时提示，excel无法导出（因为微软bug）
\'MainTable = Tables("人事信息")
\'Tables("人事信息").save()
\'Dim lsc As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
\'Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
\'dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
\'If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
\'Dim ex As new exporter
\'ex.Format="excel"
\'ex.SourceTableName="人事信息"
\'ex.filepath=dlg.FileName
\'ex.Fields=lsc.value
\'ex.filter = " [人员选择] = True "
\'ex.Export
\'\'Tables("人事信息").SaveExcel(dlg.FileName, "人事信息")  \'此方法会导出全部文件
\'End If
\'MessageBox.show("已导出!")
--  作者：evolymft
--  发布时间：2018/3/26 17:30:00
--  
前段时间都可以顺利导出，现现不能导出了。请指点解决办法。excel导出时设置了筛选功能。
--  作者：evolymft
--  发布时间：2018/3/26 17:32:00
--  
想导出为TXT文件，但不能导出。
MainTable = Tables("人事信息")
Tables("人事信息").save()
Dim lsc As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "txt文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "人事信息" \'指定导出表
    ex.FilePath = dlg.FileName   \'指定目标文件路径
    ex.Format = "Delimited" \'导出格式为符号分割的文本文件
    ex.NewTableName = "人事信息" \'指定文件名,注意无须扩展名
    ex.Fields=lsc.value
    ex.filter = " [人员选择] = True "
    ex.Export() \'开始导出
End If
MessageBox.show("已导出!")
请修改代码，谢谢老师。
--  作者：有点甜
--  发布时间：2018/3/26 17:40:00
--  

我这样测试没问题

 


Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "txt文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "表A" \'指定导出表
    ex.FilePath = FileSys.GetParentPath(dlg.FileName)   \'指定目标文件路径
    ex.Format = "Delimited" \'导出格式为符号分割的文本文件
    ex.NewTableName = FileSys.GetName(dlg.FileName).replace(".txt", "") \'指定文件名,注意无须扩展名
    ex.Export() \'开始导出
End If
MessageBox.show("已导出!")
--  作者：有点甜
--  发布时间：2018/3/26 17:42:00
--  

我这样测试也没有问题

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As new exporter
    ex.Format="excel"
    ex.SourceTableName="表A"
    ex.filepath=dlg.FileName
    ex.Export
End If
MessageBox.show("已导出!")
--  作者：evolymft
--  发布时间：2018/3/26 17:49:00
--  
是因为微软OFFICE的BUG.以前能导出，现在不能导出了。请想找个办法能在所有电脑上能导出。
--  作者：evolymft
--  发布时间：2018/3/26 17:50:00
--  
想用3楼代码导出为TXT文件，但是没成功。
--  作者：有点甜
--  发布时间：2018/3/26 17:51:00
--  

安装 http://www.foxtable.com/download/AccessDatabaseEngine.exe

 

然后测试4楼、5楼代码。
--  作者：evolymft
--  发布时间：2018/3/26 18:36:00
--  
请老师用1楼的方法导出，只能导出已选择的行和列。不然没达到功能。谢谢
--  作者：有点蓝
--  发布时间：2018/3/26 20:23:00
--  
请上传实例测试