Come importare più file di testo su più fogli?
Supponendo che ci siano più file di testo in una cartella del tuo computer, ora, vuoi importare questi file di testo in una cartella di lavoro di Excel e posizionare ogni file di testo in fogli di lavoro separati. Copiare e incollare ogni file di testo nel foglio di lavoro uno per uno farà perdere molto tempo, qui posso parlare di alcuni trucchi per risolvere questo problema.
Importa più file di testo per separare i fogli di lavoro con il codice VBA
Dividi una cartella di lavoro in più file di testo / pdf / csv / xlsx separati con Kutools per Excel
Importa più file di testo per separare i fogli di lavoro con il codice VBA
Il seguente codice VBA può aiutarti a importare ogni file di testo in fogli separati all'interno di una nuova cartella di lavoro contemporaneamente, per favore fai come segue:
1. Tieni premuto il ALT + F11 in Excel per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
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, premere F5 chiave per eseguire questo codice e nella finestra spuntata, specificare la cartella che contiene i file di testo, andare alla cartella per selezionare i file di testo che si desidera importare nei fogli di lavoro, vedere screenshot:
4. Quindi fare clic Apri pulsante, tutti i file di testo selezionati sono stati importati in una nuova cartella di lavoro e ogni file si trova individualmente in un foglio di lavoro.
5. Alla fine, puoi salvare la nuova cartella di lavoro di cui hai bisogno.
Dividi una cartella di lavoro in più file di testo / pdf / csv / xlsx separati con Kutools per Excel
A volte, potrebbe essere necessario eseguire alcune operazioni opposte all'attività precedente, ovvero è necessario dividere una cartella di lavoro per separare i file di testo. Kutools for Excel'S Cartella di lavoro divisa utility può aiutarti a risolvere questo lavoro rapidamente e facilmente.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, per favore fai come segue :( Scarica subito Kutools per Excel! )
1. Attiva la cartella di lavoro che desideri dividere in più file di testo.
2. Clic Impresa > Cartella di lavoro > Cartella di lavoro divisa, vedi screenshot:
3. Nel Cartella di lavoro divisa la finestra di dialogo:
(1.) Controlla i fogli di lavoro che desideri dividere.
(2.) Controllare Specifica il formato di salvataggio, quindi scegli il formato di file che desideri salvare, ad esempio, puoi scegliere txt, csv, pdf, xlsx or xls formato di file di cui hai bisogno.
(3.) Quindi fare clic su Diviso , nella seguente finestra di richiesta specificare una cartella per l'output dei file separati.
4. Quindi fare clic OK e i fogli di lavoro selezionati verranno divisi e salvati nella cartella desiderata con il formato di cui hai bisogno.
Scarica subito Kutools per 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!