Есть запрос в БД Access, который при вводе 2-х параметров в виде дат, выдает такую таблицу
Хочется забирать в Excel эти данные с помощью VBA
Использую такой код
В итоге значение "KSLive" отлично забирается, а остальные не хотят.
Как забрать значения остальных параметров, которые выводятся во 2 и 3 строках?
Хочется забирать в Excel эти данные с помощью 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
|
Как забрать значения остальных параметров, которые выводятся во 2 и 3 строках?
