请问当导入的excel表中的列名称含有特殊字符如何导入？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问当导入的excel表中的列名称含有特殊字符如何导入？

共有6649人关注过本帖树形打印复制链接主题：请问当导入的excel表中的列名称含有特殊字符如何导入？

ffffff

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：3 积分：98 威望：0 精华：0 注册：2012/11/20 1:16:00

请问当导入的excel表中的列名称含有特殊字符如何导入？ 发帖心情

Post By：2012/12/4 15:55:00 [只看该作者]

需要导入的excel表的字段名称含有特殊字符如“（”“！”，导致合并数据的时候，这样的列的数据无法正常导过来，其他的列没有问题，请问，在不修改源excel字段名称的前提下该如何处理？谢谢！

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/4 16:04:00 [只看该作者]

帮助文档有一段导出的代码，你可以修改一下改成导入。

http://www.foxtable.com/help/topics/1148.htm

tablefox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：10 积分：168 威望：0 精华：0 注册：2012/12/4 16:09:00

Post By：2012/12/4 16:26:00 [只看该作者]

这个是导出数据的，和导入的不一样。
图片点击可在新窗口打开查看

此主题相关图片如下：2012-12-04_162528.jpg

tablefox

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：10 积分：168 威望：0 精华：0 注册：2012/12/4 16:09:00

Post By：2012/12/4 16:57:00 [只看该作者]

利用：mg.FieldMaps.Add("ID","编号")

这个语句可以解决一些字段，但是这种字段的导入还是无法解决，改如何处理，请指教，谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：2012-12-04_165525.jpg

lin_hailun

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/4 17:06:00 [只看该作者]

导入excel的代码如下，放到命令窗口里执行，就行了。

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName) '定义一个Excel工作簿
    Dim Sheet As XLS.Sheet = Book.Sheets(0)   '引用工作簿的第一个工作表

    Dim dtb As New DataTableBuilder("订单")
    For c As Integer = 0 To Sheet.Cols.Count -1   '添加列标题
        dtb.AddDef("zd" & c, Gettype(String), 32, "", Sheet(0, c).Value)
    Next
    dtb.Build()
    Dim t As Table = Tables("订单")

    For r As Integer = 0 To sheet.Rows.Count - 1 '填入数据
        Dim nr As Row = t.AddNew
        For c As Integer = 0 To t.Cols.Count -1
            nr(c) = Sheet(r +1, c).Value
        Next
    Next
    MainTable= Tables("订单")
End If