이름을 기준으로 워크 시트 저장

이 매크로는 거의 정확히 필요한 작업을 수행하지만 각 시트 이름 끝에 "_sspl.xlsx"를 포함시키고 원래 파일 경로와 같은 이름의 폴더에 파일을 넣기를 원합니다.

나는 그것을 올바르게 얻을 수없는 것 같습니다.

Sub CreateNewFolder()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

    Set wbThis = ThisWorkbook.Name
    For Each ws In wbThis.Worksheets
        strFilename = wbThis.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws
End Sub

"나는 그것을 올바르게 얻을 수없는 것"은 문제에 대한 가장 정확한 설명이 아닙니다 :)

다음 코드는 테스트되지 않았지만 (이 컴퓨터에는 Excel이 없습니다) 원하는대로 할 것이라고 생각 합니다.

Sub CreateNewFolder()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet 
Dim strFilename As String

Set wbThis = ActiveWorkbook
For Each ws In wbThis.Worksheets
    strFilename = wbThis.Path & "/" & ws.Name & "_sspl.xlsx"
    ws.Copy
    Set wbNew = ActiveWorkbook
    wbNew.SaveAs Filename:=strFilename
    wbNew.Close
Next ws

End Sub