Отчет

[Vitalii197777]

Уважаемые,помогите пожалуйста с генерировать отчет в шаблон в excel по номеру по порядку на Передней стороне с № 1по36 ,на обратной стороне с 37 по 82. Я не могу разобраться как это сделать .За ранее благодарен!!!

[Myhaylo]

Dim Excel As Object
Dim f As Object
Dim table As Recordset
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True
Excel.Workbooks.Add("путь_имя.xls")
Set f = Excel.Worksheets(1)
f.cells(1, 1) = "что-нибудь"
Set table = bd.OpenRecordset("Имя_таблицы/запроса_или_командыSQL", dbOpenDynaset)
f.Range("B10").CopyFromRecordset table