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 več besedilnih datotek na več listov?

Če v mapi v računalniku obstaja več tekstovnih datotek, zdaj želite te besedilne datoteke uvoziti v delovni zvezek Excel in postaviti vsako besedilno datoteko v ločene delovne liste. Kopiranje in lepljenje posamezne tekstovne datoteke na delovni list za posameznika bo veliko časa, tukaj lahko govorim o nekaterih trikih, ki vam bodo pomagali rešiti ta problem.

Uvozite več besedilnih datotek, da ločite delovne liste s kodo VBA

Delite delovni zvezek z več različnimi datotekami text / pdf / csv / xlsx s programsko opremo Kutools for Excel


Združite / uvažate več delovnih listov v enega delovnega lista ali delovnega zvezka:
V vsakodnevnem delu lahko združite več delovnih listov ali delovnih zvezkov v en delovni list ali delovni zvezek, lahko veliko in glavno delo. Ampak, če imate Kutools za Excel, s svojo močno korist - Združite, lahko hitro združite več delovnih listov, delovnih zvezkov v delovni list ali delovni zvezek.
doc združuje več delovnih listov

puščica modra desno mehurček Uvozite več besedilnih datotek, da ločite delovne liste s kodo VBA


Naslednja VBA koda vam lahko pomaga, da vsako besedilno datoteko uvozite v ločene liste v novem delovnem zvezku hkrati, storite na naslednji način:

1. Drži dol ALT + F11 ključe v Excelu, da odprete Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: uvozite več besedilnih datotek, da ločite delovne liste:

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. Po lepljenju zgornje kode pritisnite F5 ključ za zagon te kode in v pop-up oknu, določite mapo, ki vsebuje besedilne datoteke, pojdite v mapo, da izberete tekstovne datoteke, ki jih želite uvoziti v preglednice, si oglejte posnetek zaslona:

doc uvozi več besedilnih datotek 1

4. Nato kliknite Odprto gumb, so bile vse izbrane besedilne datoteke uvožene v novo delovno zvezo in vsaka datoteka, ki se nahaja na enem delovnem listu posebej.

5. Končno lahko shranite novo delovno knjigo, kot jo potrebujete.


puščica modra desno mehurček Delite delovni zvezek z več različnimi datotekami text / pdf / csv / xlsx s programsko opremo Kutools for Excel

Včasih boste morda morali narediti nekaj nasprotnih operacij zgoraj navedene naloge, to pomeni, da morate razdeliti delovni zvezek za ločevanje besedilnih datotek. Kutools za ExcelJe Delovni zvezek Split pripomoček vam lahko pomaga hitro in enostavno rešiti to delo.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, prosimo, naredite naslednje :( Brezplačno prenesete Kutools za Excel zdaj! )

1. Aktivirajte delovni zvezek, ki ga želite razdeliti v več besedilnih datotek.

2. Kliknite Podjetje > Delovni zvezek > Delovni zvezek Split, si oglejte sliko zaslona:

excel dodatki deljeno delovno knjižico funkcijo

3. v Delovni zvezek Split pogovorno okno:

(1.) Preverite delovne liste, ki jih želite razdeliti.

(2.) Preverite Določite format za shranjevanje, nato izberite obliko datoteke, ki jo želite shraniti, na primer, lahko izberete txt, csv, pdf, xlsx or xls format datoteke, kot jo potrebujete.

(3.) Nato kliknite Split v naslednjem pozivnem polju določite mapo za izdajo ločenih datotek.

excel add-in deljeno pogovorno okno delovni zvezek  2 excel dodatki izberite lokacijo

4. Nato kliknite OK gumb in izbrani delovni listi bodo razdeljeni in shranjeni v želeno mapo z želeno obliko.

excel dodatek ločene datoteke

Brezplačno prenesete Kutools za Excel zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

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.
  • To post as a guest, your comment is unpublished.
    Thuva · 1 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 ?