Come importare più file di testo da una cartella in un foglio di lavoro?
Ad esempio, qui hai una cartella con più file di testo, quello che vuoi fare è importare questi file di testo in un singolo foglio di lavoro come mostrato nell'immagine sottostante. Invece di copiare i file di testo uno per uno, esistono dei trucchi per importare rapidamente i file di testo da una cartella in un foglio?
Importa più file di testo da una cartella in un unico foglio con VBA
Importa il file di testo nella cella attiva con Kutools per Excel
Importa più file di testo da una cartella in un unico foglio con VBA
Ecco un codice VBA che può aiutarti a importare tutti i file di testo da una cartella specifica in un nuovo foglio.
1. Abilitare una cartella di lavoro in cui si desidera importare file di testo e premere Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, copia e incolla sotto il codice VBA nel file Moduli finestra.
VBA: importa più file di testo da una cartella a un foglio
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. Stampa F5 per visualizzare una finestra di dialogo e selezionare una cartella che contiene i file di testo che si desidera importare. Vedi screenshot:
4. Clic OK. Quindi i file di testo sono stati importati separatamente nella cartella di lavoro attiva come nuovo foglio.
Importa il file di testo nella cella attiva con Kutools per Excel
Se desideri importare un file di testo in una cella o intervallo specifico, puoi applicare Kutools for Excel'S Inserisci file al cursore utilità.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. | ||
Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:
1. Selezionare una cella in cui si desidera importare il file di testo e fare clic Kutools Plus > Importa / Esporta > Inserisci file al cursore. Vedi screenshot:
2. Quindi viene visualizzata una finestra di dialogo, fare clic su Scopri la nostra gamma di prodotti per visualizzare il Seleziona un file da inserire nella finestra di dialogo della posizione del cursore della cella, quindi selezionare File di testo dall'elenco a discesa, quindi scegli il file di testo che desideri importare. Vedi screenshot:
3. Clic Apri > Ok, e il file di testo specificato è stato inserito nella posizione del cursore, vedi screenshot:
Importa / Inserisci file di testo in corrispondenza del cursore
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!