Эксель, в качестве БД

[sergey-911]

Доброго времени суток уважаемые.
Прошу прощение за беспокойство.
Как создать подключение, взяв за базу данных файл экселя?

[Odrick]

Помощью ADO. Поиск рулит. Тема многократно обсуждалась.

[sergey-911]

Код: Выделить всё

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



Доброго времени суток! Искал, работающий пример - так и не нашел. Приведенный выше код - выдает ошибку. Если кто поможет - буду очень благодарен!