Como salvar cada planilha como um arquivo de texto separado de uma pasta de trabalho?

Quando você deseja salvar uma planilha como um arquivo de texto, pode usar a função Salvar Como do Excel para salvar a planilha como um arquivo de texto. No entanto, se quiser salvar todas as planilhas de uma pasta de trabalho como arquivos de texto separados, os passos da função Salvar Como podem irritá-lo. Aqui eu apresento alguns truques interessantes para resolver rapidamente essa tarefa chata no Excel.

Salvar a planilha atual como arquivo de texto com VBA

Salvar cada planilha de uma pasta de trabalho como arquivos de texto separados com Kutools para Excel

Exportar uma seleção de planilha como arquivo de texto com Kutools para Excel

Salvar a planilha atual como arquivo de texto com VBA

Se você não gosta de usar a função Salvar Como para salvar a planilha como arquivo de texto, pode usar o código VBA.

1. Ative a planilha que deseja salvar como arquivo de texto.

2. Pressione as teclas Alt + F11 para exibir a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo na janela e cole o seguinte código VBA no Módulo.

Sub SaveSheetToTxt()
'Updateby20150910
    Dim xRet As Long
    Dim xFileName As Variant
    On Error GoTo ErrHandler:
    xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
    If xFileName = False Then Exit Sub
    If Dir(xFileName) <> "" Then
        xRet = MsgBox("File '" & xFileName & "' exists.  Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
        If xRet <> vbYes Then
            Exit Sub
        Else
            Kill xFileName
        End If
    End If
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs xFileName, xlUnicodeText
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        ActiveWorkbook.Close False
    End If
My_Exit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
End Sub

4. Clique no botão Executar para executar o código e, em seguida, na caixa de diálogo Kutools para Excel, selecione uma pasta para colocar o arquivo de texto e especifique um nome para o arquivo de texto. Veja a captura de tela:

5. Clique em Salvar. Agora a planilha ativa foi salva como um arquivo de texto.

Dica: Com o VBA, você só pode salvar uma planilha como um arquivo de texto por vez.

Salvar cada planilha de uma pasta de trabalho como arquivos de texto separados com Kutools para Excel

Se você tiver uma pasta de trabalho grande com centenas de planilhas que precisam ser salvas como arquivos de texto separados, o método VBA também será demorado. Nesse caso, você pode tentar usar o Separar Pasta de Trabalho do Kutools para Excel para lidar com essa tarefa, o que lhe dará uma surpresa inesperada.

1. Abra a pasta de trabalho que deseja salvar suas planilhas como arquivos de texto independentes e 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, selecione as planilhas que deseja dividir e salvar como arquivos de texto; por padrão, todas as planilhas estão selecionadas, depois marque Especificar formato de salvamento e selecione Texto Unicode (*.txt) na lista suspensa abaixo. Veja a captura de tela:

3. Clique em Dividir e, em seguida, selecione uma pasta para colocar os arquivos de texto na caixa de diálogo Procurar Pasta. Veja a captura de tela:

4. Clique em OK. Agora, cada planilha da pasta de trabalho foi salva como um arquivo de texto separado na pasta selecionada.

Com o Separar Pasta de Trabalho do Kutools para Excel, você pode dividir uma pasta de trabalho e salvá-la como arquivos xls separados, arquivos xlsx, arquivos PDF ou arquivos CSV. Clique aqui para saber mais sobre este utilitário.

Exportar uma seleção de planilha como arquivo de texto com Kutools para Excel

Com o Kutools para Excel, você também pode exportar uma seleção de uma planilha como arquivo de texto usando sua função Exportar Intervalo para Arquivo.

1. Selecione um intervalo ou intervalos que deseja salvar como arquivo de texto e clique em Kutools Plus > Importar/Exportar > Exportar Intervalo para Arquivo. Veja a captura de tela:

2. Em seguida, na caixa de diálogo que aparece, marque a opção Texto Unicode na seção Formato de arquivo, vá até a seção Opções de texto e escolha uma opção conforme necessário e, em seguida, selecione um local de salvamento.

3. Clique em Ok. Agora, nomeie o arquivo de texto exportado na caixa de diálogo Exportar Intervalo para Arquivo que aparece e clique no botão OK.

Até agora, a seleção foi exportada como um arquivo de texto separado.