ADO读取CSV文件（UTF-8）中的证件号码显示为科学计数法

smiletwo

如下图：  请大神指导该如何需改参数。谢谢！




Sub readCSV()
    Dim conn As Object
    Dim rs As Object
     
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
     
    ' 定义CSV文件路径
    Dim csvFilePath As String
    csvFilePath = ThisWorkbook.Path & "\客户信息.csv"
     
    ' 定义连接字符串，指定文本模式，并定义分隔符为逗号
    Dim connectionString As String
    connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                       ThisWorkbook.Path & ";Extended Properties='text;HDR=Yes;FMT=Delimited;CharacterSet=65001';"
     
    ' 打开连接
    conn.Open connectionString
     
    ' 执行查询，从CSV文件中选择数据
    rs.Open "SELECT * FROM [客户信息.csv]", conn, 1, 3  ' 1 = adOpenStatic, 3 = adCmdText
     
    ' 遍历记录集
    While Not rs.EOF
        For j = 0 To rs.fields.Count - 1
            Debug.Print rs.fields(j).Name & ":" & rs.fields(j).Value
        Next j
        rs.MoveNext
    Wend
     
    ' 关闭记录集和连接
    rs.Close
    conn.Close
     
    ' 清理对象
    Set rs = Nothing
    Set conn = Nothing
End Sub

f8b1987

来源AI
修改连接字符串的参数：
在连接字符串中添加IMEX=1参数，这会告诉OLEDB驱动程序在读取文本文件时将所有数据字段视为文本，而不是根据内容自动判断类型。这可以避免数字被自动转换成科学计数法。

connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                   ThisWorkbook.Path & ";Extended Properties='text;HDR=Yes;FMT=Delimited;CharacterSet=65001;IMEX=1';"

smiletwo

f8b1987 发表于 2024-7-31 22:35
来源AI
修改连接字符串的参数：
在连接字符串中添加IMEX=1参数，这会告诉OLEDB驱动程序在读取文本文件时 ...

谢谢大神！

smiletwo

smiletwo

f8b1987 发表于 2024-7-31 22:35
来源AI
修改连接字符串的参数：
在连接字符串中添加IMEX=1参数，这会告诉OLEDB驱动程序在读取文本文件时 ...

未解决

quqiyuan

这个好像还挺难办的，所以数据源头把它设置成字符串比较好，给15位及以上数字加双引号或者单引号也行，这样ado读取到Excel就可以，其他软件导出csv文件的时候看能不能设置输出带双引号或者单引号。

smiletwo

quqiyuan 发表于 2024-8-3 22:40
这个好像还挺难办的，所以数据源头把它设置成字符串比较好，给15位及以上数字加双引号或者单引号也行，这样 ...

采取了变通方式，变为TXT，直接对文本操作。不过效率低多了。

fxl447098457

提示一下,schema.ini.

f8b1987

smiletwo 发表于 2024-8-4 13:04
采取了变通方式，变为TXT，直接对文本操作。不过效率低多了。

还有个方法，导入到access文件中，也可以把

smiletwo

f8b1987 发表于 2024-8-4 13:33
还有个方法，导入到access文件中，也可以把

可以，不过经常出错，个别字段的原始数据不标准转换出错。