CSV用ADO写入，只能写一列数据

azw800

代码只写入一列数据进去，表头无法写入，这个代码该如何修改呢？

fxl447098457

同路径下创建一个schema.ini文件。里面写入：

1. [980S.csv]
   
2. format=Delimited(;)
   
3. ColNameHeader=False

复制代码

连接字符串如下面就行了,其他的不变。

1. strConnection = "Provider=Microsoft.ace.oledb.12.0;" & _
   
2.                     "Data Source=" & ThisWorkbook.Path & ";" & _
   
3.                     "Extended Properties= 'text;IMEX=1;FMT=Delimited';"

复制代码

运行代码就能拆分出来。

凌空一羽

用获取外部数据来做一下……
Sub lkyy()
    tt = ThisWorkbook.Path & "\980S.csv"
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & tt, Destination:=Range("$A$1"))
        .Name = "980S"
        .TextFileSemicolonDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

azw800

fxl447098457 发表于 2018-7-21 10:54
同路径下创建一个schema.ini文件。里面写入：

连接字符串如下面就行了,其他的不变。

非常感谢，确实可以拆分出来了！