Есть небольшой макрос. Суть такова, один раз создалась папка(если её нет) с названием "кассовый отчёт" на рабочем столе и каждый день в неё копируется и сохраняется этот файл с названием текущей даты. Очень нужна помощь в корректировке макроса, чтобы после его срабатывания, в папке кассовый отчёт создавалась папка с текущим годом, а уже в этой папке, папка с текущим месяцем. И в папку с текущим месяцем сохранялась копия этого файла
| Код |
|---|
Private Sub CommandButton5_Click()Dim fso As Object
Set fso = CreateObject("Scripting.FilesystemObject")
If Not fso.FolderExists(Environ("USERPROFILE") & "\Desktop\" & "Кассовые отчёты") Then
fso.CreateFolder (Environ("USERPROFILE") & "\Desktop\" & "Кассовые отчёты")
End If
Dim FileN$
FileN = Environ("USERPROFILE") & "\Desktop\Кассовые отчёты\" & Date & ".xls"
ThisWorkbook.Sheets("Шаблон").Copy
ActiveWorkbook.SaveCopyAs FileN
ActiveWorkbook.Close SaveChanges:=False
Sheets("Шаблон").PrintOut
MsgBox "Кассовый отчёт успешно сохранён и распечатан теперь отправь меня на почту"
End Sub |
Изменено: - 01.08.2021 22:40:02
