☰

VBA — Создать и сохранить в папке по дате

tag-icon • tag-icon microsoft-excel vba
VBA — Создать и сохранить в папке по дате

Мне нужно сделать пару вещей, которые кажутся простыми, но мне сложно понять, как их реализовать.

Мне нужно создать папку, используя сегодняшнюю дату. Эта часть в порядке. Затем мне нужно сохранить файл, используя текст и сегодняшнюю дату (тоже в порядке).

Часть, которая меня зацепила, это то, что мне нужно сохранить новый файл в новой папке. Как мне сделать так, чтобы файл сохранялся с сегодняшней датой и сохранялся в новой папке с сегодняшней датой? (если бы путь к файлу был постоянным, я бы мог это сделать, но когда часть пути меняется в зависимости от даты, я не знаю, как это сделать)

Это то, что я пробовал, но это не работает. Я получаю следующую ошибку: 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

Обратите внимание, что путь к файлу/каталог был немного изменен/упрощен в целях безопасности.

решение1

Просто догадка:

fname = "S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx"
MsgBox fname
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook

Связанный контент