Saltar al contenido principal

¿Cómo exportar datos de Excel (selección u hojas) a archivos de texto en Excel?

Si debe entregar un libro en el formato de archivo de texto, debe convertir el libro en archivos de texto. Y este artículo le presentará dos métodos para exportar datos de Excel a archivos de texto fácilmente.

Exportar una sola hoja a un archivo de texto en Excel

De forma predeterminada, los datos de Excel se guardarán como libros de trabajo en el formato de . Xlsx. Sin embargo, podemos exportar una hoja de trabajo de un libro existente como archivos de texto con la Guardar como característica. Haz lo siguiente:

1. Cambie a la hoja de trabajo que exportará a un archivo de texto y haga clic en Archive (o Botón de oficina)> Guardar como.

2. En la apertura Guardar como cuadro de diálogo, seleccione la carpeta de destino en la que guardará el archivo de texto exportado, nombre el archivo en el Nombre de archivo cuadro, y luego seleccione el Texto Unicode (* .txt) desde el Guardar como tipo la lista desplegable. Ver captura de pantalla:
exportar a archivo de texto con la función Guardar como

3. Luego, aparecerán dos cuadros de diálogo de advertencia que le solicitarán que exporte solo la hoja de trabajo activa como archivo de texto y omita cualquier característica incompatible con el archivo de texto. Hacer clic OK botón y botón sucesivamente.

Luego, los datos de la hoja de trabajo activa se exportan como un nuevo archivo de texto.

Note: el Guardar como El comando solo puede exportar datos de la hoja de trabajo activa como un archivo de texto. Si desea exportar todos los datos de todo el libro de trabajo, debe guardar cada hoja de trabajo como un archivo de texto individualmente.


Exportar selección (o una columna) al archivo de texto con VBA

El siguiente código VBA también puede ayudarlo a exportar los datos del rango seleccionado (por ejemplo, una columna) al archivo de texto, haga lo siguiente:

1. Mantenga pulsado el botón ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Haga Clic en recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

VBA: exporta la selección o la hoja de trabajo completa a un archivo 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. Entonces presione F5 clave para ejecutar este código. Y luego seleccione el rango de datos que desea exportar en el cuadro de diálogo emergente y haga clic en el OK botón, ver captura de pantalla:
Seleccione una columna para exportar como archivo de texto

4. Y ahora, en otro cuadro de diálogo Guardar como, especifique un nombre para este archivo de texto y una carpeta para colocar este archivo, y haga clic en el Guardar del botón.


Exportar la selección (o una columna) a un archivo de texto con Kutools para Excel

La Guardar como El comando puede exportar todos los datos en la hoja de trabajo activa como texto. ¿Qué sucede si exporta todos los datos de hojas de trabajo inactivas especificadas o parte de los datos en una hoja de trabajo como un archivo de texto? Kutools para Excel's Exportar rango a archivo La utilidad puede ayudarnos a exportar y guardar los datos de la selección como un archivo de texto fácilmente.  

Kutools for Excel - Equipado con más de 300 herramientas esenciales para Excel. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! ¡Descargar ahora!

1. Seleccione el sonó que exportará a un archivo de texto (en nuestro caso, seleccionamos la Columna A), y haga clic en Kutools Más > Import / Export > Exportar rango a archivo, ver captura de pantalla:
Complemento de Excel: exportar selección a archivo de texto

2. En Exportar rango a archivo cuadro de diálogo, haga lo que se muestra a continuación:
Complemento de Excel: exportar selección a archivo de texto
(1) Compruebe la Texto Unicode opción en el Formato de archivo sección;
(2) Marque la opción Guardar los valores reales o la opción Guardar valores como se muestra en pantalla según lo necesite en la sección Opciones de texto;
(3) Especifique la carpeta de destino en la que guardará el archivo de texto exportado;
(4) Haga clic en el Ok del botón.

3. Nombre el archivo de texto exportado en el nuevo cuadro de diálogo de apertura y haga clic en el Ok del botón.
nombrar el archivo de texto exportado

Y luego la selección (Columna A seleccionada) se exportó como un archivo de texto y se guardó en la carpeta especificada.

Kutools for Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! Consíguelo ahora


Exportar varias hojas para separar archivos de texto en Excel

A veces, es posible que deba exportar varias hojas de trabajo a varios archivos de texto en Excel. ¡La función Guardar como puede resultar un poco tediosa! ¡No te preocupes! Kutools para Excel Libro de trabajo dividido La utilidad proporciona a los usuarios de Excel una solución fácil para exportar varias hojas de trabajo a muchos archivos de texto separados con varios clics. 

Kutools for Excel - Equipado con más de 300 herramientas esenciales para Excel. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! ¡Descargar ahora!

1. Hacer clic en Kutools Más > Libro de trabajoLibro de trabajo dividido. Ver captura de pantalla:
Complemento de Excel: exporta varias hojas a archivos de texto

2. En el cuadro de diálogo de apertura del Libro de trabajo dividido, haga lo siguiente:
Complemento de Excel: exporta varias hojas a archivos de texto
(1) Verifique las hojas de trabajo que exportará a archivos de texto separados en el Nombre del libro de trabajo sección;
(2) Compruebe la Especificar formato de guardado opción, y luego seleccione Texto Unicode (* .txt) de la lista desplegable a continuación, vea la captura de pantalla izquierda:
(3) Haga clic en el Mini Split del botón.

3. Y luego, en el cuadro de diálogo emergente Buscar carpeta, seleccione la carpeta de destino en la que guardará los archivos de texto exportados y haga clic en OK del botón.

Hasta ahora, cada hoja de trabajo especificada se ha exportado como un archivo de texto separado y se ha guardado en la carpeta especificada.

Kutools for Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! Consíguelo ahora

Guarde en masa fácilmente cada hoja como un archivo PDF / texto / csv separado o un libro de trabajo en Excel

Normalmente, podemos guardar la hoja de trabajo activa como un archivo .pdf, archivo .txt o archivo .csv separado con la función Guardar como. Pero Kutools para Excel Libro de trabajo dividido La utilidad puede ayudarlo a guardar fácilmente cada libro de trabajo como un archivo PDF / TEXT / CSV separado o un libro de trabajo en Excel.


libro de trabajo de división de anuncios pdf 1

Kutools for Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! Consíguelo ahora


Demostración: exportar datos de Excel (selección u hojas) a archivos de texto en Excel


Kutools for Excel: ¡Más de 300 herramientas útiles a tu alcance! Comience hoy su prueba gratuita de 30 días sin limitaciones de funciones. ¡Descargar ahora!

Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
Has anyone been able to figure this out? I am having the same issue.
This comment was minimized by the moderator on the site
HELLO
THANK YOU FOR YOUR VBA CODE
SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
THANK YOU FOR WHY
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.)
This comment was minimized by the moderator on the site
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 :)
This comment was minimized by the moderator on the site
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)
This comment was minimized by the moderator on the site
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...:-)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations