Foxtable(狐表) → 用户栏目 → 专家坐堂 → exporter导出为excel时提示，excel无法导出（因为微软bug）


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

主题：exporter导出为excel时提示，excel无法导出（因为微软bug）
帅哥哟，离线，有人找我吗？
evolymft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		exporter导出为excel时提示，excel无法导出（因为微软bug）  发帖心情 Post By：2018/3/26 17:29:00 [显示全部帖子]

'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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2018/3/26 17:30:00 [显示全部帖子]

前段时间都可以顺利导出，现现不能导出了。请指点解决办法。excel导出时设置了筛选功能。

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


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：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("已导出!")
请修改代码，谢谢老师。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2018/3/26 17:49:00 [显示全部帖子]

是因为微软OFFICE的BUG.以前能导出，现在不能导出了。请想找个办法能在所有电脑上能导出。

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


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2018/3/26 17:50:00 [显示全部帖子]

想用3楼代码导出为TXT文件，但是没成功。

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


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2018/3/26 18:36:00 [显示全部帖子]

请老师用1楼的方法导出，只能导出已选择的行和列。不然没达到功能。谢谢

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