Добрый день. Пытаюсь подключиться к базе Аксес, чтобы занести данные таблицы в массив и вытягивать информацию из массива. Столкнулся с отсутствием нужной библиотеки для подключения к Аксесу. Подскажите, есть ли способ получить данные в массив без подключения библиотеки?
Мой код:
Мой код:
Код |
---|
Sub access() Dim cn As Object, rs As Object Dim intColIndex As Integer Dim DBFullName As String Dim TargetRange As Range DBFullName = "C:\OP.accdb" Set TargetRange = Sheets("Лист1").Range("B2") Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft ActiveX Data Objects 6.1 Library; Data Source=" & DBFullName & ";" Set rs = CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM q_promoexcel", cn, , , adCmdText For intColIndex = 0 To rs.Fields.Count - 1 TargetRange.Offset(1, intColIndex).Value = rs.Fields(intColIndex).Name Next On Error Resume Next appAccess.Close Set appAccess = Nothing cn.Close Set cn = Nothing End sub |