VBA, MS Access MS Access в примерах

MS Excel - Экспорт данных в шаблон

По материалам: https://www.cyberforum.ru/ms-access/thread3016215-page3.html#post16419379

01. Делаете "красивый" шаблон
02. Через VBA открываете шаблон
03. Заполняете шаблон напрямую адресуя ячейки

+ При выводе подчинённой таблицы шаблон "растягиваем вниз" например так:


    Set objRangeSrs = objWorkSheet.Range("A11:BL11")      'Источник (первая отформатированная строка)
    Set objRangeDst = objWorkSheet.Range("A11:BL" & lRow) 'Область назначения
    'Копирование формата:
    objRangeSrs.AutoFill objRangeDst, 0 'Type:=xlFillDefault = 0


+ потом заполняем простым копированием рекордсета


'Заполнение данными:
    objWorkSheet.Range("A11").Select
    Set rst = CurrentDb.OpenRecordset("md_Export_Report_to_Excel", dbOpenSnapshot)   'Открытие на просмотр
    objWorkSheet.Cells(11, 1).CopyFromRecordset rst 'Вставка данных из Recordset в ячейку "A11"
    rst.Close


И всё!

Назад ToTop
L.E. 19.05.2023
Рейтинг@Mail.ru