Este fórum está sendo desativado

[azeved0]

Estou tentando localizar um macro que gera múltiplas planilhas para o formato .csv;

Consegui localizar um código que segue abaixo, que executa a função perfeitamente, porém preciso que separe cada informação em sua respectiva célula, conforme o arquivo original, e esse código em questão ele joga todas as informação em uma única célula separando as informações por vírgula;

Código: Selecionar todos

Sub ExportSheetsToCSV()

    Dim xWs As Worksheet
    Dim xcsvFile As String
    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        xcsvFile = CurDir & "\" & xWs.Name & ".csv"
        Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
        FileFormat: = xlCSV, CreateBackup: = False
        Application.ActiveWorkbook.Saved = True
        Application.ActiveWorkbook.Close
    Next
    
End Sub

[Reinaldo]

Não entendi???
Tipo .csv (Comma-Separated Values) e exatamente isso, dados separados por virgula, o excel ao abri-lo "interpreta" cada separação em uma celula/coluna

[azeved0]

Desde ja agradeço a atenção, ja consegui resolver; Obrigado!