Exportar multiplas planilhas para formato .csv
Enviado: 08 Ago 2018 às 11:17
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;
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