Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registrati
x

or

Come importare più file di testo su più fogli?

Supponendo che ci siano più file di testo in una cartella del tuo computer, ora desideri importare questi file di testo in una cartella di lavoro di Excel e posizionare ciascun file di testo in fogli di lavoro separati. Copiando e incollando ciascun file di testo sul foglio di lavoro uno per uno, si perde un sacco di 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 separati di testo / pdf / csv / xlsx con Kutools per Excel


Combina / importa più fogli di lavoro in un foglio di lavoro o in una cartella di lavoro:
Nel tuo lavoro quotidiano, combinare più fogli di lavoro o cartelle di lavoro in un unico foglio di lavoro o cartella di lavoro può essere un enorme lavoro di mal di testa. Ma se lo hai Kutools for Excel, con la sua potente utilità - Combinare, puoi combinare rapidamente più fogli di lavoro, cartelle di lavoro in un foglio di lavoro o in una cartella di lavoro.
doc combina più fogli di lavoro

freccia blu bolla 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 in una sola volta, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 le chiavi in ​​Excel per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: importa più file di testo per separare i fogli di lavoro:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    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, si prega di 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 aperto pulsante, tutti i file di testo selezionati sono stati importati in una nuova cartella di lavoro e ogni file si trova in un foglio di lavoro individualmente.

5. Finalmente, puoi salvare la nuova cartella di lavoro di cui hai bisogno.


freccia blu bolla destra Dividi una cartella di lavoro in più file separati di testo / pdf / csv / xlsx con Kutools per Excel

A volte, potrebbe essere necessario eseguire alcune operazioni opposte dell'attività precedente, vale a dire, è necessario dividere una cartella di lavoro per separare i file di testo. Kutools for Excel'S Cartella di lavoro divisa l'utilità può aiutarti a risolvere questo lavoro rapidamente e facilmente.

Kutools for Excel : con più di 300 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

Dopo l'installazione Kutools for Excel, si prega di fare come segue :( Scarica subito Kutools per Excel! )

1. Attivare la cartella di lavoro che si desidera dividere in più file di testo.

2. Clic Impresa > Cartella di lavoro > Cartella di lavoro divisa, vedi screenshot:

funzione aggiuntiva per la cartella di lavoro aggiuntiva di excel

3. Nel Cartella di lavoro divisa la finestra di dialogo:

(1.) Controllare i fogli di lavoro che si desidera dividere.

(2.) Verifica 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 Diviso pulsante, nella seguente casella di richiesta specificare una cartella per l'output dei file separati.

excel componenti aggiuntivi finestra di dialogo della cartella di lavoro divisa  2 i componenti aggiuntivi di Excel selezionano la posizione

4. Quindi fare clic OK pulsante, i fogli di lavoro selezionati verranno suddivisi e salvati nella cartella desiderata con il formato che desideri.

excel file aggiuntivi separati

Scarica subito Kutools per Excel!


Kutools per Excel: il miglior strumento di produttività per ufficio aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 60-day.
kte tab 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, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?