SQL如何通過索引而不是從csv的名稱選擇列

Question

Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
Dim sql As String 
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
       "Data Source=" & ThisWorkbook.Path & ";" & _ 
       "Extended Properties='Text;HDR=No'" 

sql = "SELECT Col1 FROM abc.csv" 
rs.Open sql, cn, adOpenKeyset, adLockOptimistic 

如何使用vba從csv文件中沒有列標題行的同時按列編號選擇Col1？

Answer 1

您可能需要採用不同的方式處理讀取，但此解決方案適用於您。

Link to StackOverflow Q/A that will help you

sql = "SELECT * FROM abc.csv" 
rs.Open sql, cn, adOpenKeyset, adLockOptimistic 
var column1 = ""; 

Do While Not rsCSV.EOF 
    column1 = rs.Fields(0) 
    'Do something with the column1 data 
    rs.MoveNext 
Loop