Формирование отчета из Access в Excel

[pla]

Прошу помощи! В ячейку А1 шаблона отчета в Excel необходимо записать текущую дату + 90 дней из процедуры в Visual Basic.

[R Dmitry]

Сообщение от pla

Прошу помощи! В ячейку А1 шаблона отчета в Excel необходимо записать текущую дату + 90 дней из процедуры в Visual Basic.

на этой же странице форума, неужели тяжело поиском воспользоваться

Sub CreateReport()
 Dim app As Excel.Application
 Dim strDOT As String
 '+++++++++++++++++++++++++++++++++++++++++
 'если шаблон в одной папке с access
   ' With Application.CurrentProject
    ' strDOT = .Path & "\" & "Ежедневный_СМС_отчет.xltm"
   ' End With
'++++++++++++++++++++++++++++++++++++++++++
strDOT = "C:\Users\Олег\Desktop\Ежедневный_СМС_отчет.xltm"
Set app = New Excel.Application
app.Visible = True
app.Workbooks.Add strDOT
With app.ActiveWorkbook.Sheets(1)
'Заполнение шаблона
.[a1]=Date+90
'.[a1]="Привет" ' примерно так :)
End With
End Sub