2016-03-16 3 views
0
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 

Как выбрать Col1 по номеру столбца, в то время как нет строки заголовка столбца из файла csv с помощью vba?SQL как выбрать столбец по индексу вместо имени из csv

ответ

0

Возможно, вам придется подходить к чтению по-другому, но это решение сработает для вас.

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 
+0

спасибо, но что [SO Статья]? как я могу написать запрос? Я попытался использовать [SO Article] [1], чтобы иметь место Col1, но не удалось. – johnn

+0

Извините, ссылка не работает. Я отредактировал ссылку и предоставил некоторый пример кода. –

Смежные вопросы