Cum se importă mai multe fișiere text dintr-un folder într-o singură foaie de lucru?
De exemplu, aici aveți un folder cu mai multe fișiere text, ceea ce doriți să faceți este să importați aceste fișiere text într-o singură foaie de lucru, așa cum se arată în imaginea de mai jos. În loc să copiați fișierele text unul câte unul, există trucuri pentru a importa rapid fișierele text dintr-un folder într-o singură foaie?
Importați mai multe fișiere text dintr-un folder într-o singură foaie cu VBA
Importați fișierul text în celula activă cu Kutools pentru Excel
Importați mai multe fișiere text dintr-un folder într-o singură foaie cu VBA
Iată un cod VBA care vă poate ajuta să importați toate fișierele text dintr-un folder specific într-o foaie nouă.
1. Activați un registru de lucru pe care doriți să îl importați fișiere text și apăsați Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, copiați și lipiți sub codul VBA în Module fereastră.
VBA: Importați mai multe fișiere text dintr-un dosar într-o coală
Sub Test()
'UpdatebyExtendoffice6/7/2016
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub
3. presa F5 pentru a afișa un dialog și selectați un folder care conține fișiere text pe care doriți să le importați. Vedeți captura de ecran:
4. clic OK. Apoi fișierele text au fost importate separat în registrul de lucru activ ca foaie nouă.
Importați fișierul text în celula activă cu Kutools pentru Excel
Dacă doriți să importați un fișier text într-o anumită celulă sau interval, puteți aplica Kutools pentru Excel'S Inserați fișierul la cursor utilitate.
Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. | ||
După instalare gratuită Kutools pentru Excel, faceți următoarele:
1. Selectați o celulă pe care doriți să o importați fișierul text și faceți clic pe Kutools Plus > Import Export > Inserați fișierul la cursor. Vedeți captura de ecran:
2. Apoi apare un dialog, faceți clic pe Naviga pentru a afișa Selectați un fișier pentru a fi inserat în caseta de dialog a poziției cursorului, selectați apoi Fișiere text din lista derulantă, apoi alegeți fișierul text pe care doriți să îl importați. Vedeți captura de ecran:
3. clic Operatii Deschise > Ok, iar fișierul text specificat a fost inserat în poziția cursorului, consultați captura de ecran:
Importați / Inserați fișier text la cursor
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!