Sub SaveAsExample()
FPath = "\\it\c$\Zak\ZAk\"
FName = Date & ".xls"
ThisWorkbook.SaveAs Filename:=FPath & FName
End Sub
написал макрос так-та работает но сохраняю *.xlam и вставлю в папку C:\Program Files\Microsoft Office\Office12\XLSTART
сохраняет файл но не открывает...
FPath = "\\it\c$\Zak\ZAk\"
FName = Date & ".xls"
ThisWorkbook.SaveAs Filename:=FPath & FName
End Sub
написал макрос так-та работает но сохраняю *.xlam и вставлю в папку C:\Program Files\Microsoft Office\Office12\XLSTART
сохраняет файл но не открывает...