| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]EXCEL导出错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107892) |
| -- 作者：l1q2lq -- 发布时间：2017/10/12 9:40:00 -- [求助]EXCEL导出错误 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ex As New Exporter ex.SourceTableName = "入库表" \'指定导出表 ex.filepath = dlg.FileName \'指定目标文件 ex.Export() \'开始导出 End If 导出后打开表格显示：excel无法打开文件，因为文件格式或文件扩展名无效
|
| -- 作者：l1q2lq -- 发布时间：2017/10/12 10:01:00 -- 麻烦问下这个是什么问题，新建了个项目也是一样报错 [此贴子已经被作者于2017/10/12 10:00:54编辑过]
|
| -- 作者：l1q2lq -- 发布时间：2017/10/12 10:59:00 -- 求助啊 |
| -- 作者：l1q2lq -- 发布时间：2017/10/12 11:37:00 -- 话说，帮忙解答一下可好 |
| -- 作者：有点甜 -- 发布时间：2017/10/12 12:25:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.Format = "Excel"
ex.SourceTableName = "入库表" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If
|
| -- 作者：l1q2lq -- 发布时间：2017/10/12 13:45:00 -- 谢谢老师，追问一下导出的都是数据列，没有表达式列，需要怎么改动才能全部导出 |
| -- 作者：有点甜 -- 发布时间：2017/10/12 14:14:00 -- 以下是引用l1q2lq在2017/10/12 13:45:00的发言：
谢谢老师，追问一下导出的都是数据列，没有表达式列，需要怎么改动才能全部导出
换一种方式
http://www.foxtable.com/webhelp/scr/0559.htm
|