¿Cómo importar varios archivos de texto a varias hojas?
Supongamos que hay varios archivos de texto en una carpeta de su computadora, ahora desea importar estos archivos de texto a un libro de Excel y colocar cada archivo de texto en hojas de trabajo separadas. Copiar y pegar cada archivo de texto en la hoja de trabajo uno por uno será una pérdida de tiempo, aquí puedo hablar sobre algunos trucos para que resuelva este problema.
Importe varios archivos de texto para separar hojas de trabajo con código VBA
Importe varios archivos de texto para separar hojas de trabajo con código VBA
El siguiente código VBA puede ayudarlo a importar cada archivo de texto en hojas separadas dentro de un nuevo libro de trabajo a la vez, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas en Excel para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: importe varios archivos de texto a hojas de trabajo 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. Después de pegar el código anterior, presione F5 para ejecutar este código, y en la ventana emergente, especifique la carpeta que contiene los archivos de texto, vaya a la carpeta para seleccionar los archivos de texto que desea importar a las hojas de trabajo, vea la captura de pantalla:
4. Luego haga clic Abierto , todos los archivos de texto seleccionados se han importado a un nuevo libro de trabajo y cada archivo se encuentra en una hoja de trabajo individualmente.
5. Por fin, puede guardar el nuevo libro de trabajo cuando lo necesite.
Divida un libro de trabajo en varios archivos de texto / pdf / csv / xlsx separados con Kutools para Excel
A veces, es posible que deba realizar algunas operaciones opuestas a la tarea anterior, es decir, debe dividir un libro de trabajo en archivos de texto separados. Kutools for Excel, Libro de trabajo dividido La utilidad puede ayudarlo a resolver este trabajo rápida y fácilmente.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haz lo siguiente :( ¡Descarga gratis Kutools para Excel ahora! )
1. Active el libro de trabajo que desea dividir en varios archivos de texto.
2. Hacer clic Empresa > Libro de trabajo > Libro de trabajo dividido, ver captura de pantalla:
3. En la Libro de trabajo dividido caja de diálogo:
(1.) Verifique las hojas de trabajo que desea dividir.
(2.) Comprobar Especificar formato de guardado, luego elija el formato de archivo que desea guardar, por ejemplo, puede elegir txt, csv, pdf, Xlsx or xls formato de archivo que necesite.
(3.) Luego haga clic en Mini Split , en el siguiente cuadro de aviso, especifique una carpeta para generar los archivos separados.
4. Luego haga clic OK y las hojas de trabajo seleccionadas se dividirán y guardarán en la carpeta deseada con el formato que necesite.
¡Descarga 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!