Kako hitro paketno uvoziti več datotek csv / text / xml v Excelu?
V Excelu ste se morda povezali, da delovni zvezek shranite kot datoteko CSV, besedilno datoteko ali datoteko XML, vendar ste že kdaj poskusili uvoziti več datotek CSV / besedilo / XML iz mape v delovni zvezek ali delovni list? V tem članku predstavljam nekaj metod za hiter serijski uvoz.
Uvozite več besedilnih datotek iz mape v vsak delovni list delovnega zvezka z VBA
Uvozite več datotek csv iz mape na en list z VBA
Uvozite več datotek xml iz mape v en list z VBA
Uvozite ali združite več datotek xml / csv v list ali delovni zvezek s programom Kutools za Excel 
Izvozite vsak list kot csv / text / pdf v mapo z Kutools za Excel
Uvozite več besedilnih datotek iz mape v vsak delovni list delovnega zvezka z VBA
Če želite besedilne datoteke uvoziti iz mape v delovni zvezek, lahko za hitro obdelavo uporabite spodnji VBA.
1. Omogočite prazen delovni zvezek in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite VBA v Moduli okno.
VBA: Uvozi vse besedilne datoteke iz mape v delovni zvezek
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. Pritisnite F5 ključ ali Run za zagon VBA in v pogovornem oknu izberite mapo, iz katere želite uvoziti besedilne datoteke. Oglejte si posnetek zaslona:
4. In kliknite OK, in vsaka besedilna datoteka v izbrani mapi je bila uvožena na en delovni list aktivnega delovnega zvezka. Oglejte si posnetek zaslona:
Preprosto združite več listov / delovni zvezek v en sam list ali delovni zvezek
|
| Združevanje več listov ali delovnih zvezkov v en list ali delovni zvezek je lahko v Excelu resnično, vendar z Združite funkcijo v Kutools za Excel, lahko združite ducate listov / delovnih zvezkov v en list ali delovni zvezek, liste pa lahko združite v enega samo z več kliki. Kliknite za 30-dnevno brezplačno preskusno različico vseh funkcij! |
 |
| Kutools za Excel: z več kot 300 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 30 dneh. |
Uvozite več datotek csv iz mape na en list z VBA
Če želite uvoziti vse datoteke csv iz mape na en list, lahko uporabite spodnjo kodo VBA.
1. Omogočite prazen delovni list in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite spodaj VBA v novo Moduli okno.
VBA: uvozite datoteke CSV iz mape na en delovni list
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. Pritisnite F5 tipko ali kliknite Run za zagon VBA in odpre se pogovorno okno za izbiro mape, iz katere želite uvoziti vse datoteke csv. Oglejte si posnetek zaslona:
4. klik OKin odpre se pogovorno okno, ki vas opozori, če izbrišete vsebino aktivnega delovnega lista pred uvozom, tukaj kliknem Da. Oglejte si posnetek zaslona:
Po kliku Da, vse datoteke csv v izbrani mapi se uvozijo v trenutni list in podatke iz stolpca A postavijo na desno. Oglejte si posnetek zaslona:
Nasvet: Če želite datoteke CSV postaviti vodoravno na delovni list, lahko uporabite spodaj 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 
Uvozite več datotek xml iz mape v en list z VBA
Če želite uvoziti vse datoteke XML iz mape na en list, lahko uporabite spodnjo kodo VBA.
1. Izberite prazen list, kamor želite umestiti uvožene podatke, in pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli, prilepite kodo VBA v Moduli okno.
VBA: Uvozite datoteke XML iz mape na delovni list.
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. klik Run gumb ali F5 tipko za zagon VBA in v pogovornem oknu izberite mapo, glejte posnetek zaslona:
4. klik OKin vse datoteke XML v izbrani mapi se uvozijo v aktivni list.
Uvozite ali združite več datotek xml / csv v list ali delovni zvezek s programom Kutools za Excel
Če VBA ne poznate, skrbite, tukaj vam predstavljam priročno orodje - Kutools za Excel zate. S svojo močno Združite Pripomoček lahko hitro združite več datotek xml ali CSV v en delovni zvezek ali en Excelov list.
| Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. | ||
Po namestitvi Kutools za Excel, naredite spodaj:（Brezplačno prenesite Kutools za Excel zdaj!)
1. Active Excel in kliknite Kutools Plus > Združite. Oglejte si posnetek zaslona:
2. In v 1. korak kombiniranja pogovornem oknu izberite eno možnost ločevanja, kot jo potrebujete. Oglejte si posnetek zaslona:
3. klik Naslednji iti korak 2 kombinacije, Kliknite Dodaj , da dodate datoteke iz različnih map ali datoteke iz ene mape v Delovni zvezek lahko tudi določite liste, iz katerih želite kombinirati Delovni list seznam desnega odseka. Oglejte si posnetek zaslona:
4. klik Naslednji do zadnjega koraka Združite, in lahko določite možnosti kombiniranja.
5. klik Konec, odpre se pogovorno okno, ki vas opomni, da izberete lokacijo za shranjevanje novega kombiniranega rezultata. Oglejte si posnetek zaslona:
6. klik Shrani. Vsi dodani listi so bili združeni v nov en sam list.
Nasvet: z Združite, lahko tudi kombinirate več CSV datoteke oblikujte več map ali eno mapo v en list ali delovni zvezek.
Združite več datotek XML / CVS v en list / delovni zvezek
Izvozite vsak list kot csv / text / pdf v mapo z Kutools za Excel
Če želite izvoziti vsak list kot datoteko csv / text / pdf v mapo, Kutools za ExcelJe Razdeljeni delovni zvezek pripomoček vam lahko naredi uslugo.
po brezplačna namestitev Kutools za Excel, naredite spodaj:
1. Omogočite delovni zvezek, v katerega želite izvoziti njegove delovne liste, in kliknite Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek. Oglejte si posnetek zaslona:
2. V Ljubljani Razdeljeni delovni zvezek v pogovornem oknu lahko preverite imena listov, ki jih želite izvoziti, privzeto so preverjeni vsi listi in preverite Določite obliko shranjevanja in na spodnjem spustnem seznamu izberite obliko datoteke, ki jo želite shraniti. Oglejte si posnetek zaslona:
3. klik Split in izberite mapo, v katero želite shraniti razdeljene datoteke v Poiščite mapo pogovorno okno, glej posnetek zaslona:
4. klik OK, zdaj so vsi preverjeni listi izvoženi kot nova oblika datoteke v izbrani mapi.
Izvozite vsak list kot posamezno datoteko XML / CSV / TXT / PDF
Relativni članki:
- Kako pretvoriti hiperpovezavo v navadno besedilo v Excelu?
- Kako pretvoriti decimalno število v binarno / osmiško / šestnajstiško število ali obratno v Excelu?
- Kako vstaviti devizni tečaj v Excel?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
