Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

Como exportar dados do Excel (seleção ou planilhas) para arquivos de texto no Excel?

Se você precisar entregar uma pasta de trabalho no formato de arquivo de texto, precisará convertê-la em arquivos de texto. E este artigo apresentará dois métodos para exportar dados do Excel para arquivos de texto facilmente.

Exportar uma única folha para arquivo de texto no Excel

Por padrão, os dados do Excel serão salvos como pastas de trabalho no formato de . Xlsx. No entanto, podemos exportar uma planilha da pasta de trabalho existente como arquivos de texto com o Salvar como característica. Faça o seguinte:

1. Mude para a planilha que você exportará para o arquivo de texto e clique Envie o ou Botão de escritório)> Salvar como.

2. Na abertura Salvar como caixa de diálogo, selecione a pasta de destino em que você salvará o arquivo de texto exportado, nomeie o arquivo no Nome do arquivo caixa e, em seguida, selecione a Texto Unicode (* .txt) do Salvar como tipo lista suspensa. Veja a imagem:
exportar para arquivo de texto com o recurso Salvar como

3. Em seguida, serão exibidas duas caixas de diálogo de aviso solicitando que você exporte apenas a planilha ativa como arquivo de texto e deixe de fora quaisquer recursos incompatíveis com o arquivo de texto. Clique OK botão e Sim botão sucessivamente.

Em seguida, os dados da planilha ativa são exportados como um novo arquivo de texto.

Importante: O Salvar como comando só é capaz de exportar dados da planilha ativa como um arquivo de texto. Se você deseja exportar todos os dados de toda a pasta de trabalho, é necessário salvar cada planilha como um arquivo de texto individualmente.


Exportar seleção (ou uma coluna) para arquivo de texto com VBA

O seguinte código VBA também pode ajudá-lo a exportar os dados do intervalo selecionado (por exemplo, uma coluna) para o arquivo de texto, faça o seguinte:

1. Mantenha pressionada a ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

VBA: exportar seleção ou planilha inteira para arquivo de texto

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Então aperte F5 chave para executar este código. Em seguida, selecione o intervalo de dados que deseja exportar na caixa de diálogo que aparece e clique no botão OK botão, veja a captura de tela:
Selecione uma coluna para exportar como arquivo de texto

4. E agora, em outra caixa de diálogo Salvar como, especifique um nome para este arquivo de texto e uma pasta para colocá-lo, e clique no botão Salvar botão.


Exportar seleção (ou uma coluna) para arquivo de texto com o Kutools para Excel

A Salvar como O comando pode exportar todos os dados da planilha ativa como texto. E se exportar todos os dados de planilhas inativas especificadas ou parte dos dados em uma planilha como um arquivo de texto? Kutools para Excel's Exportar intervalo para arquivo utilitário pode nos ajudar a exportar e salvar os dados na seleção como um arquivo de texto facilmente.  

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Teste grátis agora!

1. Selecione o intervalo que você exportará para um arquivo de texto (no nosso caso, selecionamos a coluna A) e clique em Kutools Plus > Importação / Exportação > Exportar intervalo para arquivo, veja a captura de tela:
Excel addin: exportar seleção para arquivo de texto

2. Na série Exportar intervalo para arquivo caixa de diálogo, faça como abaixo a imagem mostrada:
Suplemento do Excel: exportar seleção para arquivo de texto
(1) Verifique o Texto Unicode opção no Formato de arquivo seção;
(2) Marque a opção Salvar os valores reais ou Salvar os valores conforme mostrado na opção na tela conforme necessário na seção Opções de texto;
(3) Especifique a pasta de destino na qual salvará o arquivo de texto exportado;
(4) Clique no Ok botão.

3. Nomeie o arquivo de texto exportado na nova caixa de diálogo de abertura e clique no botão Ok botão.
nomeie o arquivo de texto exportado

E então a seleção (coluna A selecionada) foi exportada como um arquivo de texto e salva na pasta especificada.

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Get It Now


Exporte várias planilhas para arquivos de texto separados no Excel

Às vezes, pode ser necessário exportar várias planilhas para vários arquivos de texto no Excel. O recurso Salvar como pode ser um pouco tedioso! Não se preocupe! Kutools para Excel's Dividir a pasta de trabalho O utilitário fornece aos usuários do Excel uma solução alternativa fácil para exportar várias planilhas para muitos arquivos de texto separados com vários cliques. 

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Teste grátis agora!

1. Clique Kutools Plus > livroDividir a pasta de trabalho. Veja a imagem:
Suplemento do Excel: exportar várias planilhas para arquivos de texto

2. Na caixa de diálogo de abertura da pasta de trabalho dividida, faça o seguinte:
Suplemento do Excel: exportar várias planilhas para arquivos de texto
(1) Verifique as planilhas que você irá exportar para arquivos de texto separados no Nome da pasta de trabalho seção;
(2) Verifique o Especifique o formato de salvamento opção e, em seguida, selecione o Texto Unicode (* .txt) na lista suspensa abaixo, veja a captura de tela à esquerda:
(3) Clique no Split botão.

3. E então, na caixa de diálogo Navegar pela pasta, selecione a pasta de destino na qual você salvará os arquivos de texto exportados e clique no OK botão.

Até agora, cada planilha especificada foi exportada como um arquivo de texto separado e salva na pasta especificada.

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Get It Now

Salve facilmente em massa cada folha como um arquivo PDF / texto / csv separado ou pasta de trabalho no Excel

Normalmente, podemos salvar a planilha ativa como um arquivo .pdf, .txt ou .csv separado com o recurso Salvar como. Mas Kutools para Excel's Dividir a pasta de trabalho O utilitário pode ajudá-lo a salvar facilmente cada pasta de trabalho como arquivo PDF / TEXT / CSV separado ou pasta de trabalho no Excel. Avaliação gratuita de recursos completos por 30 dias!
livro de trabalho de divisão de anúncio pdf 1

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Get It Now


Demonstração: exportar dados Excel (seleção ou planilhas) para arquivos de texto no Excel


Kutools for Excel inclui mais de 300 ferramentas úteis para Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    matrix26uk · 7 months ago
    How would I amend the code for Export selection (or one column) to text file with VBA to autofill the filename with the contents of cell B2?

    thanks
  • To post as a guest, your comment is unpublished.
    Alan · 7 months ago
    Hi,
    This is great, thanks a lot.
    How would I alter the code for Export selection (or one column) to text file with VBA to auto fill the filename with the contents of cell B2?
  • To post as a guest, your comment is unpublished.
    Ali Cebeci · 1 years ago
    Hi, this code is very useful for me. So thank you very much.

    I want to ask that:
    When i'm using this code, a new line append automatically at the end of the txt content.

    Can you help me about preventing this by vba?
  • To post as a guest, your comment is unpublished.
    luizfeijo · 2 years ago
    hi guys, i used that code:
    Sub ExportRangetoFile()
    'Update 20130913
    Dim wb As Workbook
    Dim saveFile As String
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set wb = Application.Workbooks.Add
    WorkRng.Copy
    wb.Worksheets(1).Paste
    saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
    wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
    wb.Close
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub

    and have working, but i need to savea column with cells that contain the function"concatenate", and when i play the vba code, and i save the .TXT file, only what appears it's #REF. how can i to fix it? cause i need the data that appears on that cells?
    • To post as a guest, your comment is unpublished.
      Christian · 1 years ago
      Has anyone been able to figure this out? I am having the same issue.
  • To post as a guest, your comment is unpublished.
    GILLOU · 3 years ago
    HELLO
    THANK YOU FOR YOUR VBA CODE
    SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
    THANK YOU FOR WHY
  • To post as a guest, your comment is unpublished.
    harish.kaundinya@gmail.com · 4 years ago
    Thanks for the awesome piece of VBA code to export data to a text file. I have used your code with some of my own. The data I am dealing with is extremely line-length specific and after the macro has run, the text file contains some double quotation marks " at random places, which was never present in my data before. I have tried adding a code line to remove this character at various stages but that does not seem to be working. I am aware that I can manually remove this but would like to resolve it in the VBA code.

    Sub Macro3()
    Dim wb As Workbook
    Dim saveFile As String
    Dim WorkRng As Range
    On Error Resume Next
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
    "=NSZAP*", Operator:=xlAnd
    Range("A1").Select
    ActiveCell.Offset(200, 0).Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveCell.Rows("1:10101").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Selection.AutoFilter
    Range(Selection, Selection.End(xlDown)).Select
    Set WorkRng = Application.Selection
    Set wb = Application.Workbooks.Add
    WorkRng.Copy
    wb.Worksheets(1).Paste
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    wb.Close
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 4 years ago
      Hi Harish,
      For removing a specified character in bulk, you can replace the character with nothing.
      Ctrl + H to open the Find and Replace dialog box, type the specified character in the Find what box, and type noting in the replace with box.
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    3/2
    You might also note that you don't need to specify the wb prefix once you've .Add ed the workbook since it becomes active. Specifying wb might or might not be more efficient but it can be omitted from some commands. Actually I entirely scrapped the variable wb; I just go Workbooks.Add, and use ActiveWorkbook when needed. (As you are suppressing ScreenUpdating it wouldn't be obvious to some that wb is Active. Tip for beginners (and higher): I always, always develop with ScreenUpdating and DisplayAlerts as True, and when done with development, I consider toggling them off for some passage of code.)
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    2/2
    - vbYesNoCancel msgboxes and Booleans to indicate whether to export all, selection, or a user specified range
    - a static String for the prior range address
    - if len(that static)1 then I set WorkRng=activesheet.UsedRange (You can't copy multiple areas with a single copy, though with a little work you could walk the areas and copy them piecemeal.)
    - Idiotic Microsoft does not save off empty rows at the start and the bottom of the saved range, and does not save off empty columns at the leftmost and the rightmost of the saved range. When I detect that (UsedRange is not row 1, col. 1, or xlLastCell is not completely lower-right) I msgbox to ask user if they want to plug A1 or the lower right cell.
    - Then I decided to preemptively address the upper left issue by inserting a row and setting A1 to be text like "The following is for range "
    - I close with activeworkbook.close SaveChanges:=False
    - Long time habit since I'm an angry proponent of cleaning up (and the world is a sad place thanks to irresponsible programmers who shirk that responsibility when it matters), I set WorkRng = Nothing on the way out :)
  • To post as a guest, your comment is unpublished.
    Wild Bill · 4 years ago
    1/2 (since your software limits comment length)

    I am a serious coder and I want to inform you that the VBA code here is outstanding. It's clean, and not one line too much, or one too few. It's exemplary coding for demonstration of the process.

    I'll also mention that as I extensively researched solutions for export of selection, you and only one other person suggested dropping the range into a temp new workbook. All other answers were painfully manually, walking through cell by cell. Even Chip's code is much longer and runs slower (but intentionally so, as it is much more flexible - specifiable delimiters, etc.)

    Just for your amusement, I made some very minor tweaks but otherwise nearly lifted the code word for word because it basically dropped right into a very intricate and specialized application. Some of these tweaks are something I'm sure you do in practice, but they add lines of code (e.g. error checking) so showing them on this webpage would have muddied your display so that the essential elements of processing would have been cumbersome for readers to follow along. Anyway: (see part 2)
  • To post as a guest, your comment is unpublished.
    Vaishak · 5 years ago
    My query is as mentioned below:

    I have a report to generate everyday.

    The data what I get on the final row (only one row but more than one columns) I want it to export to another excel sheet which is a summary excel sheet saved separately on my desktop.

    Eg:

    Day1 report - final row export to Summary excel sheet row1
    Day2 report - final row export to Summary excel sheet row2
    Day3 report - final row export to Summary excel sheet row3 and so on..

    Export should be done through a click button., which means when I click on export button the data on the sheet I calculated today should go and save on the Summary excel sheet row1, next day a new excel sheet report calculated should go and save on the Summary excel sheet row2 and so on..

    Will this be possible to do...

    If yes please someone help me on this...

    Thank you in advance...:-)
  • To post as a guest, your comment is unpublished.
    RAVAN · 5 years ago
    One of the best site where I find my queries.
  • To post as a guest, your comment is unpublished.
    Santiago · 5 years ago
    Someone knows how to do it for excel 2016 MAC?? ty
  • To post as a guest, your comment is unpublished.
    anne1993 · 6 years ago
    Hi!
    The cells I want to export as a text-file refer to other cells and contain if-codes. This means that when I export I don't get the number-values, but "N/A". Do you know how i can fix this?
    Thank you.
  • To post as a guest, your comment is unpublished.
    rick · 6 years ago
    i have problem after saving my .xls to .txt, size of the file getting bigger, from 500kb to 1,523kb how i fix it?
    thanks
  • To post as a guest, your comment is unpublished.
    Rodney · 7 years ago
    need to past data from excel to a notepad and then seperate data using a comma. how do i do this
    • To post as a guest, your comment is unpublished.
      Oscar Jacquez · 4 years ago
      you need to select "save as .csv file" (comma separated values)
  • To post as a guest, your comment is unpublished.
    amsarajan · 7 years ago
    really is it very usefull,thanku :D