Мне надо было сделать отчет в ексел:
Dim xlApp As New Excel.Application
'откроем шаблон
xlApp.Workbooks.Open "D:\Сводка\SVODKA.XLS"
xlApp.Visible = True 'вывод листа на экран
'сводка по производству за сутки
xlApp.Worksheets(1).Select
СводкаАнгл xlApp.Worksheets(1) ' в этой функции я заполняю листик данными из рекордов
'сохранение копии книги в папке C:\Сводка\Дискета
xlApp.Workbooks("SVODKA").SaveCopyAs "D:\Сводка\Дискета\SVODKA-" & Day(КакаяДата()) & "-" & Month(КакаяДата())& ".xls"
xlApp.Workbooks("SVODKA").Saved = True ' это чтоб не переспрашивала при закрытии
xlApp.Quit
Set xlApp = Nothing 'просто подстраховался