Foxtable(狐表)用户栏目专家坐堂 → 为什么导出的excel中有单引号?


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

主题:为什么导出的excel中有单引号?

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


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
为什么导出的excel中有单引号?  发帖心情 Post By:2017/2/22 14:39:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20170222143726.png
图片点击可在新窗口打开查看


代码如下
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.Format = "Excel" '导出格式为Excel
    ex.SourceTableName = "订单数据" '指定导出表
    ex.Fields = "商品编码,商品名称,单价,数量,折扣,金额" '按此顺序导出指定的字段
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Filter = Tables("订单数据").Filter
    ex.Export() '开始导出
End If

哪里错了?

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


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
  发帖心情 Post By:2017/2/23 7:37:00 [显示全部帖子]

确实是字符串,好像所有的字符串都加上了单引号,包括标题栏,怎么去掉呢?

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


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
  发帖心情 Post By:2017/2/23 9:06:00 [显示全部帖子]

很奇怪,如果用下面代码就不会产生单引号

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

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


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
  发帖心情 Post By:2017/2/23 9:18:00 [显示全部帖子]

关键是我们导出的这个表是要导入到另外一个系统中去的,这样就出现了识别错误的问题

 回到顶部