ник: snipe
я делаю вот так...
Dim jkl As String
jkl = CurrentProject.Path 'считываем путь проекта
Dim dfr As Object
Dim dfg As Object
Set dfg = CreateObject("Excel.Sheet")
Set dfr = dfg.Parent
dfr.Workbooks.Add jkl & "\ШаблонОтчета.xls" 'открываем шаблон
dfr.Visible = False 'True если показать окно Excel, но лучше потом когда всю инфу выгрузишь
dfr.ActiveWindow.WindowState = xlMaximized
'далее dfr. и чего хочешь сделать dfr.cells(1,1)="Всякая ерунда" запишет в ячейку А1 фразу всякая ерунда