Come importare rapidamente in batch più file csv / text / xml in Excel?
In Excel, potresti aver legato per salvare una cartella di lavoro come file csv, file di testo o file xml, ma hai mai provato a importare più file csv / text / xml da una cartella in una cartella di lavoro o in un foglio di lavoro? In questo articolo, introduco alcuni metodi per importarli rapidamente in batch.
Importa più file di testo da una cartella in ogni foglio di lavoro di una cartella di lavoro con VBA
Importa più file CSV da una cartella in un unico foglio con VBA
Importa più file xml da una cartella in un unico foglio con VBA
Importa o combina più file xml/csv in un foglio o una cartella di lavoro con Kutools per Excel 
Esporta ogni foglio come csv/testo/pdf in una cartella con Kutools per Excel
Importa più file di testo da una cartella in ogni foglio di lavoro di una cartella di lavoro con VBA
Per importare file di testo da una cartella a una cartella di lavoro, puoi usare sotto VBA per gestirlo rapidamente.
1. Abilitare una cartella di lavoro vuota e premere Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il VBA nel file Moduli finestra.
VBA: importa tutti i file di testo da una cartella in una cartella di lavoro
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. Stampa F5 chiave o Correre pulsante per eseguire VBA e selezionare una cartella da cui si desidera importare i file di testo nella finestra di dialogo popping. Vedi screenshot:
4. E fare clic su OKe ogni file di testo nella cartella selezionata è stato importato in un foglio di lavoro della cartella di lavoro attiva. Vedi screenshot:
Combina facilmente più fogli / cartella di lavoro in un unico foglio o cartella di lavoro
|
| Combinare più fogli o cartelle di lavoro in un unico foglio o cartella di lavoro può essere fastidioso in Excel, ma con l'estensione Combinare funzione in Kutools per Excel, puoi combinare unire dozzine di fogli / cartelle di lavoro in un foglio o cartella di lavoro, inoltre, puoi consolidare i fogli in uno solo con diversi clic. Fai clic per la prova gratuita di 30 giorni con tutte le funzionalità! |
 |
| Kutools per Excel: con oltre 300 pratici componenti aggiuntivi di Excel, provabili gratuitamente senza limitazioni in 30 giorni. |
Importa più file CSV da una cartella in un unico foglio con VBA
Per importare tutti i file CSV da una cartella in un unico foglio, puoi utilizzare il codice VBA sottostante.
1. Abilitare un foglio di lavoro vuoto e premere Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla sotto VBA nel nuovo Moduli finestra.
VBA: importa i file CSV da una cartella in un foglio di lavoro
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. Stampa F5 tasto o fare clic Correre per eseguire il VBA e viene visualizzata una finestra di dialogo per selezionare una cartella da cui si desidera importare tutti i file CSV. Vedi screenshot:
4. Clic OKe viene visualizzata una finestra di dialogo per ricordarti se cancellare il contenuto del foglio di lavoro attivo prima dell'importazione, qui faccio clic Sì. Vedi screenshot:
dopo aver fatto clic Sì, tutti i file CSV nella cartella selezionata vengono importati nel foglio corrente e posizionano i dati dalla Colonna A a destra. Vedi screenshot:
Mancia: Se vuoi posizionare i file CSV orizzontalmente in un foglio di lavoro, puoi usare sotto 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 più file xml da una cartella in un unico foglio con VBA
Se desideri importare tutti i file XML da una cartella in un unico foglio, puoi utilizzare il codice VBA sottostante.
1. Selezionare un foglio bianco in cui inserire i dati importati e premere Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, incolla il codice VBA nel file Moduli finestra.
VBA: importa file XML da una cartella in un foglio di lavoro.
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 Correre pulsante o F5 chiave per eseguire VBA e selezionare una cartella nella finestra di dialogo popping, vedi screenshot:
4. Clic OKe tutti i file XML nella cartella selezionata vengono importati nel foglio attivo.
Importa o combina più file xml/csv in un foglio o una cartella di lavoro con Kutools per Excel
Se non hai familiarità con VBA, preoccupati, qui presento uno strumento utile: Kutools for Excel per te. Con i suoi potenti Combinare utility, puoi combinare rapidamente più file xml o file csv in una cartella di lavoro o in un foglio Excel.
| Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. | ||
Dopo l'installazione Kutools per Excel, per favore fai come di seguito:（Scarica subito Kutools per Excel!)
1. Active Excel e fare clic su Kutools Plus > Combinare. Vedi screenshot ：
2. E in passaggio 1 di Combina finestra di dialogo, scegli un'opzione di separazione di cui hai bisogno. Vedi screenshot:
3. Clic Successivo andare passaggio 2 del Combine, fare clic su Aggiungi per aggiungere file da varie cartelle o file da una cartella a Cartella di lavoro e puoi anche specificare i fogli da cui desideri combinare Foglio di lavoro elenco delle sezioni di destra. Vedi screenshot:
4. Clic Successivo all'ultimo passaggio di Combinaree puoi specificare le opzioni di combinazione.
5. Clic Fine, viene visualizzata una finestra di dialogo per ricordare di selezionare una posizione in cui salvare il nuovo risultato combinato. Vedi screenshot:
6. Clic Risparmi. Tutti i fogli aggiunti sono stati combinati in un nuovo foglio singolo.
Mancia: Con Combinare, puoi anche combinare più file File CSV formare più cartelle o una cartella in un foglio o cartella di lavoro.
Combina più file XML / CVS in un foglio / cartella di lavoro
Esporta ogni foglio come csv/testo/pdf in una cartella con Kutools per Excel
Se desideri esportare ogni foglio come file csv / testo / pdf in una cartella, Kutools for Excel'S Cartella di lavoro divisa l'utilità può farti un favore.
Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:
1. Abilitare la cartella di lavoro di cui si desidera esportare i fogli di lavoro e fare clic su Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa. Vedi screenshot:
2. Nel Cartella di lavoro divisa finestra di dialogo, puoi controllare i nomi dei fogli che devi esportare, di default tutti i fogli sono controllati e spuntati Specifica il formato di salvataggio e selezionare il formato di file che si desidera salvare dal seguente elenco a discesa. Vedi screenshot:
3. Clic Diviso e seleziona una cartella in cui salvare i file divisi in Cerca cartella finestra di dialogo, vedi screenshot:
4. Clic OK, ora tutti i fogli selezionati vengono esportati come nuovo formato di file nella cartella selezionata.
Esporta ogni foglio come singolo file XML / CSV / TXT / PDF
Articoli relativi:
- Come convertire il collegamento ipertestuale in testo normale in Excel?
- Come convertire il numero decimale in numero binario / ottale / esadecimale o viceversa in Excel?
- Come inserire il tasso di cambio in tempo reale in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
