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

or

Come importare file di testo in Excel come fogli separati con nomi originali in Excel?

Hai mai provato a importare file di testo in Excel come fogli separati con i nomi originali dei file in Excel? In questo articolo, introduco un codice VBA per importare rapidamente i file di testo da una cartella in Excel con i nomi.
doc importa il testo come nome originale 1

Importa file di testo in Excel con nomi

Suddividi rapidamente più fogli di lavoro in una cartella di lavoro separata in Excel

In Microsoft Excel, è possibile salvare o dividere un foglio di lavoro da una cartella di lavoro come un nuovo file di Excel copiando e incollando questo foglio di lavoro in una nuova cartella di lavoro. Sembra problematico, se si desidera dividere ogni foglio / foglio di lavoro di una cartella di lavoro di grandi dimensioni come file Excel, txt, csv, pdf separati. Ma con Kutools for Excel'S Cartella di lavoro divisa utilità, puoi gestirlo rapidamente. Fai clic per la prova gratuita di 60 giorni!
cartella di lavoro divisa per documenti 1
Kutools per Excel: con più di 200 pratici componenti aggiuntivi di Excel, liberi di provare senza limiti nei giorni 60.

Importa file di testo in Excel con nomi

1. Abilita Excel, premi Alt + F11 chiavi per abilitare Microsoft Visual Basic, Applications Edition finestra, quindi fare clic inserire > Modulo.
doc importa il testo come nome originale 2

2. Copia e incolla sotto il codice per Modulo script.

VBA: importa file di testo con nomi

Sub LoadPipeDelimitedFiles () 'UpdatebyExtendoffice20181010 Dim xStrPath As String Dim xFileDialog As FileDialog Dim xFile As String Dim xCount As Long Dim xWS As Worksheet On Error GoTo ErrHandler Set xFileDialog = Application.FileDialog (msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Seleziona una cartella [Kutools per Excel] "Se xFileDialog.Show = -1 Then xStrPath = xFileDialog.SelectedItems (1) End If If xStrPath =" "Quindi Exit Sub Application.ScreenUpdating = False xFile = Dir (xStrPath e" \ *. txt ") Do While xFile <>" "xCount = xCount + 1 Set xWS = Fogli (xCount) xWS.Select xWS.Name =" TEXT "& Sinistra (xFile, Len (xFile) - 4) Con ActiveSheet.QueryTables.Add ( Connessione: = "TEXT;" _ & xStrPath & "\" & xFile, Destinazione: = Intervallo ("A1")) .Name = "a" & xCount .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = Vero .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False. TextFileOtherDelimiter = "|" .TextFileColumnDataTypes = Array (1, 1, 1) .TextFileTrailingMinusNumbers = True. Refresh BackgroundQuery: = False xFile = Dir End With Loop Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox "nessun file txt",, "Kutools per Excel" Fine Sub

3. Stampa F5 per eseguire il codice, quindi selezionare una cartella che contiene i file di testo che si desidera importare in Excel nel Seleziona una cartella dialogo.
doc importa il testo come nome originale 3

4. Clic OK, i file di testo nella cartella sono stati importati in Excel come fogli singoli con i loro nomi.


Navigazione a schede e modifica di più documenti di Word / cartelle di lavoro di Excel come Firefox, Chrome, Internet Esplora 10!

Potrebbe essere familiare visualizzare più pagine Web in Firefox / Chrome / IE e passare da una all'altra facendo clic sulle schede corrispondenti facilmente. Qui, Office Tab supporta l'elaborazione simile, che consente di sfogliare più documenti di Word o cartelle di lavoro di Excel in una finestra di Word o in una finestra di Excel e passare facilmente da una all'altra facendo clic sulle relative schede.
Clicca per la prova gratuita di Office Tab!

Sfoglia più documenti di parole in una finestra come Firefox

Kutools per Excel risolve la maggior parte dei problemi e 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 30-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.

Be the first to comment.