Мне нужно сделать пару вещей, которые кажутся простыми, но мне трудно понять, как это реализовать.
Мне нужно создать папку, используя сегодняшнюю дату. Эта часть в порядке. Затем мне нужно сохранить файл, используя текст и сегодняшнюю дату (также хорошо).
Меня привлекло то, что мне нужно сохранить новый файл в новую папку. Как можно сохранить файл с текущей датой и сохранить его в новой папке с текущей датой? (если бы путь к файлу был постоянным, я бы это сделал, но когда часть пути меняется в зависимости от даты, я не знаю, как это сделать)
Это то, что я пытался, но это не работает. Я получаю следующую ошибку: 1004: ошибка приложения или объекта.
Sub filesave()
ActiveWorkbook.SaveAs ("S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx")
End Sub
Это код для создания папки (которая отлично работает):
Sub FolderCreate()
MkDir "S:\HR\TM\" & Format(Now(), "dd.mm.yyyy")
End Sub
Обратите внимание, что путь к файлу / каталог был немного изменен / упрощен для безопасности.