Salvando planilhas com base em seus nomes

Question

Essa macro quase faz exatamente o que eu preciso, mas eu gostaria que ela incluísse "_sspl.xlsx" no final de cada nome de planilha e colocasse os arquivos em uma pasta com o mesmo nome do caminho original do arquivo.

Eu não consigo entender direito.

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

    

Answer 1

"Não consigo acertar" não é a descrição mais precisa de um problema:)

O código a seguir não foi testado (não tenho o Excel nesta máquina), mas acho que ele fará o que você quiser.

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