[求助]csv导入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim str As String = FileSys.ReadAllText("I:\银行数据\待转换数据表\工商银行1.csv", Encoding.Default)
Dim ary() As String = str.Split(chr(13))
For i As Integer = 7 To ary.Length - 4
    Dim s() As String = ary(i).Split(",")
    Dim nr As DataRow = DataTables("工商银行对账单").AddNew
    nr("交易日期") = s(0).replace("""", "").trim()
    nr("摘要") = s(1).replace("""", "").trim()
    nr("交易场所") = s(2).replace("""", "").trim()
    nr("交易国家或地区间称") = s(3).replace("""", "").trim()
    nr("钞汇") = s(4).replace("""", "").trim()
    nr("交易金额_收入") = s(5).replace("""", "").trim()
    nr("交易金额_支出") = s(6).replace("""", "").trim()
    nr("交易金额_币种") = s(7).replace("""", "").trim()
    nr("记账金额_收入") = s(8).replace("""", "").trim()
    nr("记账金额_支出") = s(9).replace("""", "").trim()
    nr("记账金额_币种") = s(10).replace("""", "").trim()
    nr("余额") = s(11).replace("""", "").trim()
Next

老师，我每次导入该格式（csv)的数据是通过上面的代码非常麻烦经常要修改地址老师，能否通过组合框选定csv数据源后再导入到项目中

[此贴子已经被作者于2014-12-28 8:59:51编辑过]

主题：[求助]csv导入