Poniżej przykładowy kod dla excela 2007 i mam nadzieję nowszego.
Sub test()
Dim plik As Workbook
Application.EnableEvents = False
Set plik = Workbooks.Open("C:\Documents and Settings\Admin\Pulpit\Szablon.xltm") 'otwarcie szablonu
Application.EnableEvents = True
plik.Sheets("Arkusz1").Cells(1, 1) = Date 'zapisanie danych
plik.SaveAs ThisWorkbook.Path & "\test", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'zapisanie
plik.Close 'zamknięcie
Set plik = Nothing
End Sub |