Come importare più file di testo in altrettanti fogli?
Supponiamo che siano presenti più File di Testo in una cartella del computer e che si desideri importarli tutti in una Cartella di lavoro Excel, inserendo ciascun File di Testo in un foglio di lavoro separato. Copiare e incollare manualmente ogni File di Testo in un foglio richiede molto tempo; qui illustrerò alcuni trucchi per risolvere questo problema.
Importa più File di Testo in fogli di lavoro separati con codice VBA
Importa più File di Testo in fogli di lavoro separati con codice VBA
Il seguente codice VBA può aiutarti a importare ogni File di Testo in fogli distinti all’interno di una Nuovo workbook contemporaneamente; procedi come segue:
1. Tieni premuti i tasti ALT + F11 in Excel per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del Modulo.
Codice VBA: Importa più File di Testo in fogli di lavoro separati:
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. Dopo aver incollato il codice sopra, premi il tasto F5 per eseguire il codice; nella finestra visualizzata, specifica la cartella contenente i file di testo, seleziona i file di testo da importare nei fogli di lavoro e consulta lo screenshot:
4. Quindi fai clic sul pulsante Apri; tutti i file di testo selezionati verranno importati in una nuova cartella di lavoro, con ciascun file posizionato in un foglio di lavoro distinto.
5. Infine, puoi salvare la nuova cartella di lavoro come desideri.
Dividi una cartella di lavoro in più file separati di tipo testo / pdf / csv / xlsx con Kutools per Excel
A volte potrebbe essere necessario eseguire l’operazione inversa rispetto a quella descritta sopra, ovvero dividere una cartella di lavoro in singoli file di testo. La funzione Dividi documento di Kutools per Excel ti permette di svolgere questa attività in modo rapido e semplice.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Apri la cartella di lavoro che desideri suddividere in più file di testo.
2. Fai clic su Enterprise > Cartella di lavoro > Dividi documento e consulta lo screenshot:
3. Nella finestra di dialogo Dividi documento:
(1.) Seleziona i fogli di lavoro che vuoi dividere.
(2.) Seleziona Specifica formato di salvataggio, quindi scegli il tipo di file con cui salvare i documenti; ad esempio, puoi selezionare txt, csv, pdf, xlsx o xls in base alle tue esigenze.
(3.) Quindi fai clic sul pulsante Dividi; nella finestra successiva, specifica una cartella in cui salvare i file separati.
 |  |  |
4. Quindi fai clic sul pulsante OK; i tuoi fogli di lavoro selezionati verranno divisi e salvati nella cartella desiderata nel formato scelto.
Kutools per Excel – Include oltre 300 strumenti essenziali per Excel, rendendo le tue attività più veloci, semplici ed efficienti.Scarica ora!
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi