¿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 múltiples hojas de cálculo a archivos de texto / pdf / csv individuales con Kutools para Excel

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: