csv

Function ado_read_csv(path1, goal_sht)
'导入csv ,注意编码方式，936--gb ,65001-utf-8
    Dim arr As New arr
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("adodb.recordset")
    
    abc = Split(path1, "\")
    file1 = abc(UBound(abc))
    abc2 = arr.remove(abc, file1)
    path2 = Join(abc2, "\") & "\"
    
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='text;HDR=YES;fmt=delimited(,);characterset=65001';Data Source=" & path2
    
    sq2 = "select * from [" & file1 & "]"
    Set rs = cnn.Execute(sq2)
    
    
    goal_sht.Range("a2:xaz1000000").ClearContents
    goal_sht.Range("a2").CopyFromRecordset rs
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Function