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


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

主题:请问当导入的excel表中的列名称含有特殊字符如何导入?

帅哥哟,离线,有人找我吗?
lin_hailun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部