☰

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

관련 정보