¿Cómo exportar cada columna en Excel a archivos de texto individuales?
En Excel, exportar una hoja de cálculo completa a un archivo de texto es sencillo con la función Guardar como. Sin embargo, si necesitas guardar cada columna como un archivo de texto separado, el proceso requiere algunos pasos adicionales. Esta guía te mostrará cómo exportar eficientemente cada columna de forma individual utilizando código VBA, o alternativamente, cómo guardar múltiples hojas de cálculo como archivos de texto, PDF o CSV individuales con la ayuda de Kutools para Excel.
Exportar cada columna a archivos de texto individuales con código VBA
Exportar cada columna a archivos de texto individuales con código VBA
El siguiente código VBA puede ayudarte a guardar los datos de cada columna como un archivo de texto individual en Excel. Por favor, sigue estos pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega la siguiente macro en la Ventana de Módulo.
Código VBA: Exportar cada columna a archivos de texto individuales:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. Después de pegar el código, presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo Navegador, luego selecciona una carpeta donde colocar tus archivos de texto exportados, ver captura de pantalla:
4. Luego haz clic en el botón Aceptar, y los datos de cada columna en la hoja de cálculo activa se han exportado a archivos de texto de forma individual, ver captura de pantalla:
Exportar múltiples hojas de cálculo a archivos de texto / pdf / csv individuales con Kutools para Excel
Si necesitas exportar múltiples hojas de cálculo a archivos de texto, pdf o csv individuales, la función Separar libro de Kutools para Excel puede ayudarte.
Después de instalar Kutools para Excel, por favor realiza los siguientes pasos:
1. Haz clic en Kutools Plus > Libro de trabajo > Separar libro, ver captura de pantalla:
2. En el cuadro de diálogo Separar libro, marca las hojas de cálculo que deseas guardar como archivos txt, pdf, csv, y luego marca la opción Especificar formato de guardado, selecciona el tipo de archivo en el que deseas guardar, y luego haz clic en el botón Separar; en el cuadro de diálogo Examinar carpeta mostrado, selecciona una carpeta donde colocar los archivos exportados, ver captura de pantalla:
3. Luego haz clic en el botón Aceptar, y las hojas de cálculo seleccionadas se han exportado al formato de archivo específico individual que necesitabas, ver captura de pantalla:
Kutools para Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfruta de funciones de IA gratis permanentemente! Consíguelo ahora
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos