Вы, наверное, сочли тему закрытой, после ответа "Odrick". http://bbs.vbstreets.ru/viewtopic.php?p=6581588#6581588
Но это не так. Помогите, плиз, разобраться с подключением к Excel, в качестве БД.
Код
- Код: Выделить всё
Dim file As String 'Путь и имя файла
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & file & ";FirstRowHasNames=0;"
.Open
End With
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "[Книга1]"
.Open
End With
Debug.Print rs.Fields(0).Value
Debug.Print rs.Fields(0).Name
rs.Close
cn.Close
не работает.
Опять америкосы напортачили.