Note: The other languages of the website are Google-translated. Back to English
English English

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


freccia blu freccia destra 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 > Moduloe incolla il codice seguente nel file Modulo 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:

doc importa più file di testo 1

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.


freccia blu freccia destra 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.

finestra di dialogo cartella di lavoro divisa componenti aggiuntivi Excel 2 Excel componenti aggiuntivi seleziona posizione

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.

file separati di componenti aggiuntivi di Excel

Scarica subito Kutools per Excel!


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (9)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ho usato il codice seguente ma lo spazio non ha delimitato. Turned Tab:=True, Space:=True, ma non ha funzionato. Il mio formato di file Txt è- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Qualche soluzione?
Questo commento è stato fatto dal moderatore sul sito
Il codice per "Importa più file di testo in fogli di lavoro separati con codice VBA" funziona per me, MA taglia i dati di ciascuna cella a 255 caratteri. Penso che sia predefinito per i dati della cella GeneralFormat, ma ho bisogno che sia TextFormat. Purtroppo non riesco a capire come modificare il codice per risolvere questo problema.
Questo commento è stato fatto dal moderatore sul sito
È possibile aprire in sequenza più file txt in un unico foglio?
Questo commento è stato fatto dal moderatore sul sito
Grazie per questo codice molto utile. Ho una domanda però. Cosa posso modificare per convertire il tipo di dati da Generale a Testo poiché attualmente importa solo i dati in formato Generale.
Questo commento è stato fatto dal moderatore sul sito
Come posso modificare queste macro per visualizzare il file di testo salvato come UTF-8 o in altre parole usando Platform = 65001, grazie
Questo commento è stato fatto dal moderatore sul sito
Grazie per questo codice, funziona alla grande.. voglio unire tutto il foglio selezionato in un unico foglio è possibile..
Questo commento è stato fatto dal moderatore sul sito
grazie, più file di testo in diversi fogli di lavoro hanno funzionato!
Questo commento è stato fatto dal moderatore sul sito
Questo codice mi ha aiutato esattamente a risolvere il mio problema, grazie per il codice.
Questo commento è stato fatto dal moderatore sul sito
Cosa dovrei cambiare nel codice per non aprirli in una nuova cartella di lavoro?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite