Vba 폴더 만들고 그안에 폴더만들기

Question

아래 스크립트를 올바르게 수정해 주십시오.

업체명폴더 체크하고 없으면 폴더를 만들고

만들어진 폴더안에 들어가서 해당월 폴더를 체크하고 없으면 폴더를 만들고

그 안에 파일을 저장하는게 안됩니다.

Sub 다른이름으로저장()

    Dim strPath, strFolderPath, strFilename, strDate As String

    strPath = "C:\Users\거래명세서"

    ' 위 경로를 실제경로로 변경할 것

    strFolderPath = Range("B7")

    ' 거래처명

    strFilename = Range("B197")

    ' 파일명

    strDate = Range("B198")

    ' 거래가 이루어진 월

    If Len(Dir(strPath & strFolderPath, vbDirectory)) <= 0 Then

        MkDir strPath & strFolderPath

    ElseIf  Len(Dir(strPath & strFolderPath & strDate, vbDirectory)) <= 0 Then

        MkDir strPath & strFolderPath & strDate

    ' 이 부분에서 에러 발생(error)

    Else

    End If

    Worksheets("거래명세서").Copy

    ChDir strPath & strFolderPath & "" & strDate & ""

    ActiveWorkbook.SaveAs strFilename & (".xlsx")

    ActiveWindow.Close

    MsgBox ("저장 되었습니다.")

End Sub

Answer 1

네. 알겠습니다.

Answer 2

안녕하세요, 상훈00 님.

저희 Microsoft Community를 방문해 주셔서 감사합니다.

안타깝게도 문의하신 내용은 Community에서 다루기에는 어려움이 있습니다.

TechNet 포럼을 통하여 도움을 받으시길 바랍니다.

TechNet 포럼 - 자세히 보기

추가적인 내용이 있다면 하단의 [응답] 버튼을 눌러 회신해주시기 바랍니다.

감사합니다.

※ 응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.