Cum să importați rapid mai multe fișiere CSV / text / XML în Excel?
În Excel, este posibil să fiți legat pentru a salva un registru de lucru ca fișier csv, fișier text sau fișier xml, dar ați încercat vreodată să importați mai multe fișiere csv / text / xml dintr-un folder într-un registru de lucru sau într-o foaie de lucru? În acest articol, introduc câteva metode pentru a le importa rapid pe lot.
Importați mai multe fișiere CSV dintr-un folder într-o singură foaie cu VBA
Importați mai multe fișiere XML dintr-un folder într-o singură foaie cu VBA
Importați sau combinați mai multe fișiere xml / csv într-o foaie sau un registru de lucru cu Kutools pentru Excel 
Exportați fiecare foaie ca csv / text / pdf într-un folder cu Kutools pentru Excel
Importați mai multe fișiere text dintr-un folder în fiecare fișă de lucru a unui registru de lucru cu VBA
Pentru a importa fișiere text dintr-un folder într-un registru de lucru, puteți utiliza mai jos VBA pentru a le gestiona rapid.
1. Activați un registru de lucru gol și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, și lipiți VBA în Module fereastră.
VBA: Importați toate fișierele text dintr-un folder într-un registru de lucru
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub3. presa F5 cheie sau Alerga pentru a rula VBA și selectați un folder din care doriți să importați fișierele text din dialogul popping. Vedeți captura de ecran:
4. Și faceți clic pe OKși fiecare fișier text din folderul selectat a fost importat într-o foaie de lucru a registrului de lucru activ. Vedeți captura de ecran:
Combinați cu ușurință mai multe foi / registru de lucru într-o singură coală sau registru de lucru
|
| Pentru a combina mai multe foi sau registre de lucru într-o singură foaie sau registru de lucru poate fi dificil în Excel, dar cu Combina funcție în Kutools pentru Excel, puteți combina fuzionarea a zeci de foi / registre de lucru într-o singură foaie sau registru de lucru, de asemenea, puteți consolida foile într-una numai cu câteva clicuri. Faceți clic pentru funcții complete 30 zile de probă gratuită! |
 |
| Kutools pentru Excel: cu peste 300 de programe de completare Excel la îndemână, puteți încerca gratuit fără limitare în 30 zile. |
Importați mai multe fișiere CSV dintr-un folder într-o singură foaie cu VBA
Pentru a importa toate fișierele CSV dintr-un dosar într-o singură foaie, puteți utiliza codul VBA de mai jos.
1. Activați o foaie de lucru goală și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, și lipiți mai jos VBA în noul Module fereastră.
VBA: Importați fișiere CSV dintr-un folder într-o singură foaie de lucru
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub3. presa F5 tasta sau faceți clic Alerga pentru a executa VBA și apare un dialog pentru a selecta un folder din care doriți să importați toate fișierele CSV. Vedeți captura de ecran:
4. clic OKși apare un dialog pentru a vă reaminti dacă ștergeți conținutul foii de lucru active înainte de import, aici fac clic Da. Vedeți captura de ecran:
După ce faceți clic Da, toate fișierele CSV din folderul selectat sunt importate în foaia curentă și plasează datele din Coloana A în dreapta. Vedeți captura de ecran:
Sfat: Dacă doriți să plasați fișierele CSV orizontal într-o foaie de lucru, puteți utiliza mai jos VBA.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub 
Importați mai multe fișiere XML dintr-un folder într-o singură foaie cu VBA
Dacă doriți să importați toate fișierele XML dintr-un folder într-o singură foaie, puteți utiliza mai jos codul VBA.
1. Selectați o foaie goală pe care doriți să plasați datele importate și apăsați Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, lipiți codul VBA în Module fereastră.
VBA: Importați fișiere XML dintr-un folder într-o foaie de lucru.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub3. clic Alerga butonul sau F5 tasta pentru a rula VBA și selectați un folder în caseta de dialog popping, consultați captura de ecran:
4. clic OKși toate fișierele XML din folderul selectat sunt importate în foaia activă.
Importați sau combinați mai multe fișiere xml / csv într-o foaie sau un registru de lucru cu Kutools pentru Excel
Dacă nu sunteți familiarizați cu VBA, vă faceți griji, aici vă prezint un instrument la îndemână - Kutools pentru Excel Pentru dumneavoastră. Cu puterea sa Combina utilitar, puteți combina rapid mai multe fișiere XML sau fișiere CSV într-un singur registru de lucru sau într-o singură foaie Excel.
| Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. | ||
După instalare Kutools pentru Excel, faceți următoarele:（Descărcați gratuit Kutools pentru Excel acum!)
1. Activez Excel și faceți clic pe Kutools Plus > Combina. Vedeți captura de ecran ：
2. Și în pasul 1 din Combinați , alegeți o opțiune de separare după cum aveți nevoie. Vedeți captura de ecran:
3. clic Pagina Următoare → a merge la pasul 2 al Combinației, Faceți clic pe Adăuga pentru a adăuga fișiere din diferite foldere sau fișiere dintr-un folder în Workbook listă și, de asemenea, puteți specifica foile din care doriți să combinați Fisa de lucru lista secțiunii din dreapta. Vedeți captura de ecran:
4. clic Pagina Următoare → până la ultimul pas al Combina, și puteți specifica opțiunile de combinare.
5. clic finalizarea, apare un dialog pentru a vă reaminti să selectați o locație pentru a salva noul rezultat combinat. Vedeți captura de ecran:
6. clic Economisiți. Toate foile adăugate au fost combinate într-o singură foaie nouă.
Sfat: Cu Combina, de asemenea, puteți combina mai multe Fișiere CSV formează mai multe foldere sau un singur folder într-o singură foaie sau registru de lucru.
Combinați mai multe fișiere XML / CVS într-o singură foaie / registru de lucru
Exportați fiecare foaie ca csv / text / pdf într-un folder cu Kutools pentru Excel
Dacă doriți să exportați fiecare foaie ca fișier csv / text / pdf într-un folder, Kutools pentru Excel'S Carnet de lucru divizat utilitatea vă poate face o favoare.
După instalare gratuită Kutools pentru Excel, faceți următoarele:
1. Activați registrul de lucru pe care doriți să-l exportați foile de lucru și faceți clic pe Kutools Plus > Workbook > Carnet de lucru divizat. Vedeți captura de ecran:
2. În Carnet de lucru divizat caseta de dialog, puteți verifica numele foilor pe care trebuie să le exportați, în mod implicit toate foile sunt verificate și verificați Specificați formatul de salvare și selectați formatul de fișier pe care doriți să îl salvați din lista verticală de mai jos. Vedeți captura de ecran:
3. clic Despică și selectați un folder pentru a salva fișierele împărțite în Căutați dosarul dialog, vezi captura de ecran:
4. clic OK, acum toate foile verificate sunt exportate ca nou format de fișier în folderul selectat.
Exportați fiecare foaie ca fișier unic XML / CSV / TXT / PDF
Articole relative:
- Cum se convertește hyperlinkul în text simplu în Excel?
- Cum se convertește numărul zecimal în număr binar / octal / hex sau invers în Excel?
- Cum se introduce cursul de schimb live în Excel?
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
