MS Excel - Экспорт данных в шаблонПо материалам: https://www.cyberforum.ru/ms-access/thread3016215-page3.html#post16419379 01. Делаете "красивый" шаблон 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
|
|||
L.E. 19.05.2023 |