¿Cómo importar varios archivos de texto a distintas hojas?
Supongamos que hay varios Archivo de Texto en una carpeta de su ordenador y ahora desea importar estos Archivo de Texto a un Libro de Excel, colocando cada Archivo de Texto en hojas de cálculo distintas. Copiar y pegar cada Archivo de Texto en una hoja una por una consume mucho tiempo; a continuación, le mostraré algunos trucos para resolver este problema.
Importe varios Archivo de Texto a hojas de cálculo separadas con código VBA
Importe varios Archivo de Texto a hojas de cálculo separadas con código VBA
El siguiente código VBA le permite importar cada archivo de texto en hojas distintas dentro de un nuevo libro de trabajo, todo de forma simultánea. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 en Excel para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Importe varios Archivo de Texto a hojas de cálculo separadas:
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. Tras pegar el código anterior, pulse la tecla F5 para ejecutarlo. En la ventana emergente, especifique la carpeta que contiene los archivos de texto, vaya a dicha carpeta y seleccione los archivos de texto que desea importar a las hojas de cálculo; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Abrir; todos los archivos de texto seleccionados se habrán importado a un nuevo libro de trabajo, situándose cada uno en una hoja de cálculo distinta.
5. Por último, puede guardar el nuevo libro de trabajo según sus necesidades.
Divida un libro de trabajo en varios archivos independientes de texto / pdf / csv / xlsx con Kutools para Excel
A veces, es posible que necesite realizar la operación inversa a la descrita anteriormente: dividir un libro de trabajo en archivos de texto independientes. La función Separar libro de Kutools para Excel le permite realizar esta tarea de forma rápida y sencilla.
Tras instalar Kutools para Excel, siga estos pasos:
1. Active el libro de trabajo que desea dividir en varios archivos de texto.
2. Haga clic en Empresa > Libro de trabajo > Separar libro; consulte la captura de pantalla:
3. En el cuadro de diálogo Separar libro:
(1.) Seleccione las hojas de cálculo que desea dividir.
(2.) Active la casilla Especificar formato de guardado y, a continuación, elija el tipo de archivo en el que desea guardar los documentos. Por ejemplo, puede seleccionar los formatos txt, csv, pdf, xlsx o xls según sus necesidades.
(3.) A continuación, haga clic en el botón Dividir y, en el cuadro emergente, especifique una carpeta para guardar los archivos independientes.
 |  |  |
4. Después, haga clic en el botón Aceptar y sus hojas de trabajo seleccionadas se dividirán y guardarán en la carpeta deseada con el formato especificado.
Kutools para Excel: incluye más de 300 herramientas esenciales que harán sus tareas en Excel más rápidas, sencillas y eficientes.¡Descárguelo ahora!
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos