Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Данные из запроса Access в Excel при помощи VBA - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Данные из запроса Access в Excel при помощи VBA (Макросы/Sub)
Данные из запроса Access в Excel при помощи VBA
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 строках?


Сообщение отредактировал Beerukoff - Пятница, 05.05.2017, 18:14
 
Ответить
СообщениеЕсть запрос в БД 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 строках?

Автор - Beerukoff
Дата добавления - 05.05.2017 в 16:23
Beerukoff Дата: Пятница, 05.05.2017, 18:15 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Проблему решил. Спасибо!
 
Ответить
СообщениеПроблему решил. Спасибо!

Автор - Beerukoff
Дата добавления - 05.05.2017 в 18:15
anvg Дата: Суббота, 06.05.2017, 14:23 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 303
Репутация: 160 ±
Замечаний: 0% ±

2010, 2016
Проблему решил. Спасибо!
Ай, да молодца - и главное всё сам сделал! :D
 
Ответить
Сообщение
Проблему решил. Спасибо!
Ай, да молодца - и главное всё сам сделал! :D

Автор - anvg
Дата добавления - 06.05.2017 в 14:23
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Данные из запроса Access в Excel при помощи VBA (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!