¿Cómo exportar varias columnas a archivos de texto individuales en Excel?
Normalmente, puede exportar una hoja de trabajo a un archivo txt en Excel de forma rápida y sencilla utilizando la función Guardar como. Pero, ¿alguna vez ha intentado guardar los datos de cada columna en un archivo de texto individualmente desde una hoja de cálculo de Excel? En este artículo, hablaré sobre cómo resolver este trabajo lo más rápido posible.
Exporte múltiples columnas en archivos de texto individuales con código VBA
Exporte varias hojas de trabajo en archivos de texto / pdf / csv individuales con Kutools para Excel
Exporte múltiples columnas en archivos de texto individuales con código VBA
El siguiente código VBA puede ayudarlo a guardar los datos de cada columna en un archivo de texto individualmente en Excel, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.
Código VBA: exporte varias columnas 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, presione F5 clave para ejecutar este código, y una Navegador aparece el cuadro de diálogo emergente, luego elija una carpeta para colocar sus archivos de texto exportados, vea la captura de pantalla:
4. Luego haga clic OK , y los datos de cada columna en la hoja de trabajo activa se han exportado a un archivo de texto individualmente, vea la captura de pantalla:
Exporte varias hojas de trabajo en archivos de texto / pdf / csv individuales con Kutools para Excel
Si necesita exportar varias hojas de trabajo a archivos individuales de texto, pdf o csv, Kutools for Excel, Libro de trabajo dividido característica puede hacerte un favor.
Después de instalar Kutools para Excel, por favor siga los siguientes pasos:
1. Hacer clic Kutools Más > Libro de trabajo > Libro de trabajo dividido, ver captura de pantalla:
2. En la Libro de trabajo dividido cuadro de diálogo, verifique las hojas de trabajo que desea guardar como archivos txt, pdf, csv y luego verifique Guardar como tipo opción, seleccione el tipo de archivo que desea guardar y haga clic en Mini Split botón, en la pantalla Busca por carpetas cuadro de diálogo, elija una carpeta para colocar los archivos exportados, vea la captura de pantalla:
3. Luego haga clic OK y las hojas de trabajo seleccionadas se han exportado al formato de archivo específico individual que necesita, vea la captura de pantalla:
Haga clic para descargar y probar gratis Kutools para Excel ahora!
Las mejores herramientas de productividad de oficina
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...
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!