关于主页上“批量导入CSV（Txt）”发现的问题

lazybird

测试主页上的批量导入范例（详见 http://www.office-cn.net/accesssrc/20140128/8419.html）时发现了一个问题：当导入的源数据分隔符不是逗号（，）时就会出错，如果我的分隔是其他符号，例如（|），如何修改代码。

求高手解答。

Benjamin_luk

两个办法:
1. 自己写一个Schema.ini, 放在CSV目录下, 为每个CSV文件写下如下内容:
[009876N.csv]
Format=Delimited(|)
ColNameHeader=True
MaxScanRows=0
CharacterSet=ANSI

2.在读取CSV时, 将字符串用SPLIT(txt,"|")的方法将字符串转成单个值, 再写入数据表.
Option Compare Database
Public conn As New ADODB.Connection          'ADO
Public rs As New ADODB.Recordset
Public rs1 As New ADODB.Recordset
Public Function ReadCSVFile(ByVal strFilePath As String, ByVal strFileName As String)
    Dim i As Integer, a
    '===============================================================================
    '-函数名称:         ReadCSVFile
    '-功能描述:         导入csv文件
    '-输入参数说明:     参数1:strFilePath As String 目标路径
    '                   参数2:strFileName As String 文件名称
    '-使用语法示例:     ReadCSVFile("路径","文件名")
    '-参考:
    '-使用注意:
    '-兼容性:           2000,XP,2003
    '-作者:             Grant
    '-联系方式:         QQ:20991943  Email:20991943@qq.com
    '-更新日期：        2007-09-3
    '===============================================================================

    conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
              "DBQ=" & strFilePath & ";Extensions=asc,csv,tab,txtersist Security Info=False"   '打开数据链接关键
    With rs
        .CursorType = 2
        .LockType = 3
        .CursorLocation = 3
        .ActiveConnection = conn
    End With

    Set conn = CurrentProject.Connection

    sqlcsv = "SELECT * FROM [" & strFileName & "]"
    rs.Open sqlcsv
    rs.Move (0)         '移动到指定记录

    sql = "Select * From tbl_Export"
    rs1.Open sql, conn, 1, 3

    Do Until rs.EOF
    a = Split(rs(0), "|")
        rs1.AddNew
        For i = 0 To 7
            rs1(i + 1) = a(i)
        Next
        rs.MoveNext
    Loop

    rs1.UpdateBatch
    rs1.Close
    rs.Close
    conn.Close
    Set rs = Nothing
    Set rs1 = Nothing
    Set conn = Nothing
End Function

tmtony

access系统 自带的导入功能 有设置分隔符的功能

lazybird

版主，我问的问题是批量导入啊，手动导入当然是可以设置自定义分隔符的。
例子首页上有了，所以没发。
链接中的示例适用的是标准CSV文件分隔符“逗号”。现在许多数据中含逗号，所以用了别的分隔符，例如“|”，“/”等，如何在代码中自定义？

lazybird

多谢高手耐心解答 ！！ 用 Schema.ini 方法完美解决了。