Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako uvoziti besedilne datoteke v Excel kot ločene liste z izvirnimi imeni v Excelu?

Ali ste kdaj poskusili uvoziti besedilne datoteke v Excel kot ločene liste z izvirnimi imeni datotek v Excelu? V tem članku uvajam kodo VBA za hitro uvoz besedilnih datotek iz ene mape v Excel z imeni.
doc uvozno besedilo kot originalno ime 1

Uvozite besedilne datoteke v Excel z imeni

Hitro razdelite več delovnih list v ločeni delovni zvezek v Excelu

V programu Microsoft Excel lahko shranite ali razdelite delovni list iz ene delovne knjige kot novo Excelovo datoteko tako, da kopirate in prilepite ta delovni list v novo delovno knjigo. Zdi se težavno, če želite, da vsak delovni list / delovni list velike delovne zveze razdelite kot ločene datoteke Excel, txt, csv, pdf. Ampak s Kutools za ExcelJe Delovni zvezek Split uporabnost, lahko hitro rešite to. Kliknite za brezplačni preskus 60 dni!
doc split delovni zvezek 1
Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Uvozite besedilne datoteke v Excel z imeni

1. Omogočite Excel, pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno, nato kliknite Vstavi > Moduli.
doc uvozno besedilo kot originalno ime 2

2. Kopirajte in prilepite spodnjo kodo na Moduli skripta.

VBA: uvozite besedilne datoteke z imeni

Sub LoadPipeDelimitedFiles () 'UpdatebyExtendoffice20181010 Dim xStrPath As String Dim xFileDialog Kot FileDialog Dim xFile As String Dim xCount As Long Dim xWS Kot delovni list Napaka GoTo ErrHandler Nastavi xFileDialog = Application.FileDialog (msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = Lažno xFileDialog.Title = "Izberite mapo [Kutools for Excel] "Če xFileDialog.Show = -1 Potem xStrPath = xFileDialog.SelectedItems (1) Konec Če Če xStrPath =" "Potem zapustite Sub Application.ScreenUpdating = False xFile = Dir (xStrPath &" \ *. txt ") Dokler xFile <>" "xCount = xCount + 1 Nastavi xWS = Listi (xCount) xWS.Select xWS.Name =" TEXT "in levo (xFile, Len (xFile) - 4) z ActiveSheet.QueryTables.Add Pripomočki: = "TEXT;" _ & xStrPath & "\" & xFile, Destination: = Range ("A1") .Name = "a" & xCount .FieldNames = True. RowNumbers = Lažno. FillAdjacentFormulas = Resnično .RefreshOnFileOpen = Lažno .RefreshStyle = xlInsertDeleteCells .SavePassword = Lažno .SaveData = Res .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: = Lažno xFile = Končaj z aplikacijo Loop.ScreenUpdating = True Exit Sub ErrHandler: MsgBox "ne datoteke txt", "Kutools for Excel" End Sub

3. Pritisnite F5 da zaženete kodo, nato pa izberite mapo, ki vsebuje besedilne datoteke, ki jih želite uvoziti v Excel Izberite mapo dialog.
doc uvozno besedilo kot originalno ime 3

4. klik OKso bile besedilne datoteke v mapi uvožene v Excel kot en list s svojimi imeni.


Brskanje po spletnem brisanju in urejanje več dokumentov z Wordom / delovni zvezki Excel kot Firefox, Chrome, Internet Raziščite 10!

Morda ste pozabljeni, da si ogledate več spletnih strani v Firefoxu / Chrome / IE in preklopite med njimi tako, da preprosto kliknete ustrezne jezičke. Tu tabla Office podpira podobno obdelavo, ki vam omogoča brskanje po več dokumentih Word ali Excelovih delovnih zvezkov v enem oknu programa Word ali Excel ter preprosto preklapljate med njimi tako, da kliknete njihove zavihke.
Kliknite brezplačno preskusno različico Office Tab!

Brskanje po več besednih dokumentih v enem oknu kot Firefox


Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.