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

Supponiamo che ci siano diversi file di testo in una cartella del tuo computer e ora desideri importare questi file di testo in una cartella di lavoro Excel, posizionando ciascun file di testo in fogli di lavoro separati. Copiare e incollare ogni file di testo in un foglio di lavoro uno per uno richiede molto tempo; qui discuterò alcuni trucchi per risolvere questo problema.

Importa più file di testo in fogli di lavoro separati con il codice VBA

Dividi una cartella di lavoro in più file separati di tipo testo/pdf/csv/xlsx con Kutools per Excel

Importa più file di testo in fogli di lavoro separati con il codice VBA

Il seguente codice VBA potrebbe aiutarti a importare ciascun file di testo in fogli separati all'interno di una nuova cartella di lavoro in una sola volta, procedi come segue:

1. Tieni premuti i tasti ALT + F11 in Excel per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice 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 questo codice, e nella finestra pop-up, specifica la cartella che contiene i file di testo, vai alla cartella per selezionare i file di testo che vuoi importare nei fogli di lavoro, vedi screenshot:

4. Quindi clicca sul pulsante Apri, tutti i file di testo selezionati sono stati importati in una nuova cartella di lavoro e ogni file è stato posizionato in un foglio di lavoro separato.

5. Infine, puoi salvare la nuova cartella di lavoro come preferisci.

Dividi una cartella di lavoro in più file separati di tipo testo/pdf/csv/xlsx con Kutools per Excel

A volte, potresti aver bisogno di eseguire operazioni opposte al compito precedente, ovvero dividere una cartella di lavoro in file di testo separati. L'utilità Dividi Cartella di Lavoro di Kutools per Excel può aiutarti a risolvere rapidamente e facilmente questa operazione.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Attiva la cartella di lavoro che desideri dividere in più file di testo.

2. Clicca su Impresa > Cartella di Lavoro > Dividi Cartella di Lavoro, vedi screenshot:

3. Nella finestra di dialogo Dividi Cartella di Lavoro:

(1.) Seleziona i fogli di lavoro che desideri dividere.

(2.) Seleziona Specifica formato di salvataggio, quindi scegli il formato di file che desideri salvare, ad esempio, puoi scegliere il formato di file txt, csv, pdf, xlsx o xls secondo necessità.

(3.) Quindi clicca sul pulsante Dividi, nella finestra di dialogo successiva specifica una cartella per esportare i file separati.

4. Quindi clicca sul pulsante OK, e i fogli di lavoro selezionati verranno divisi e salvati nella cartella desiderata nel formato scelto.