Данные из запроса Access в Excel при помощи VBA

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Данные из запроса Access в Excel при помощи VBA (Макросы/Sub)

Beerukoff

Дата: Пятница, 05.05.2017, 16:23 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Есть запрос в БД Access, который при вводе 2-х параметров в виде дат, выдает такую таблицу
$IMAGE1$

Хочется забирать в Excel эти данные с помощью VBA

Использую такой код
[vba]

Код

Sub my_prog()
Dim oDao As Object, db As Object, qdb As Object
Dim DateStart, DateEnd As Date

DateStart = Cells(1, 1)
DateEnd = Cells(2, 1)

Set oDao = CreateObject("DAO.DbEngine.36")
Set db = oDao.OpenDatabase("o:\4\КП 2015.mdb")
Set qdb = db.QueryDefs("Report")

qdb.Parameters("Дата_1").Value = DateStart
qdb.Parameters("Дата_2").Value = DateEnd

With qdb.OpenRecordset()
a = .Fields("KSLive")
b = .Fields("DZDPnew")
End With

db.Close: Set db = Nothing
End Sub

[/vba]

В итоге значение "KSLive" отлично забирается, а остальные не хотят.

Как забрать значения остальных параметров, которые выводятся во 2 и 3 строках?