Excel: Salvar ou Exportar Todas as Planilhas para Arquivos CSV ou Texto Separados (2 maneiras fáceis)

Trabalhar com pastas de trabalho do Excel contendo várias planilhas é comum na análise de dados e relatórios empresariais. Frequentemente, você precisará exportar cada planilha como um arquivo CSV (Valores Separados por Vírgula) ou arquivo de texto individual para compartilhamento de dados, integração com outros sistemas ou fins de arquivamento. Embora o Excel não forneça um recurso "exportar todas as planilhas" embutido, existem vários métodos eficientes para realizar essa tarefa.

Salvar ou Exportar todas as planilhas para arquivos CSV ou Texto com código VBA
Salvar ou Exportar todas / planilhas específicas para arquivos CSV ou Texto com Kutools para Excel

Salvar ou Exportar todas as planilhas para arquivos CSV ou Texto com código VBA

Com os seguintes códigos VBA, você pode salvar todas as planilhas em uma pasta de trabalho como arquivos CSV ou texto separados. Por favor, siga os passos abaixo.

Exportar ou converter todas as planilhas para arquivos CSV separados

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic Application.

2. Na janela Microsoft Visual Basic Application, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código na janela Módulo.

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

3. Pressione a tecla F5 para executar o código. Você verá que todos os arquivos CSV exportados estão localizados na pasta Documentos. Cada planilha é salva como um arquivo .csv separado com o mesmo nome da planilha. Veja a captura de tela:

Exportar ou converter todas as planilhas para arquivos de Texto separados

O seguinte código pode ajudá-lo a exportar ou converter todas as planilhas da pasta de trabalho em arquivos de Texto separados.

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

Os arquivos de Texto exportados também estão localizados na pasta Documentos. Veja a captura de tela:

Salvar ou Exportar todas / planilhas específicas para arquivos CSV ou Texto com Kutools para Excel

Kutools para Excel oferece um recurso poderoso e fácil de usar para exportar rapidamente todas ou planilhas selecionadas para arquivos CSV ou texto individuais com apenas alguns cliques.

1. Clique em Kutools Plus > Pasta de Trabalho > Separar Pasta de Trabalho. Veja a captura de tela:

2. Na caixa de diálogo Separar Pasta de Trabalho:

• 1). Se você deseja converter todas as planilhas para arquivos CSV ou texto, mantenha todos os nomes das planilhas marcados na caixa Nome da Planilha; Se quiser converter apenas várias planilhas, mantenha-as marcadas e desmarque outras planilhas que não deseja converter.
• 2). Na seção Opções, marque a caixa Especificar Formato de Salvamento e selecione Texto Unicode (*.txt) ou CSV (Macintosh) (*.csv) na lista suspensa.
• 3). Clique no botão Separar.

3. Na caixa de diálogo Procurar Pasta, especifique uma pasta para salvar os arquivos exportados e clique no botão OK.

Agora todas as planilhas ou planilhas especificadas são convertidas em arquivos CSV ou texto separados e localizadas na pasta conforme especificado acima.

Demonstração: Salvar, exportar ou converter várias/todas as planilhas para arquivos CSV ou texto com Kutools para Excel