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 Sub
3. 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 o versiune de încercare gratuită de 30 de zile! |
Kutools pentru Excel: cu peste 300 de programe de completare la îndemână Excel, gratuit pentru a încerca fără limitări în 30 de 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 Sub
3. 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 Sub
3. 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 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!