Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ներմուծել բազմաթիվ տեքստային ֆայլեր բազմաթիվ թերթերի մեջ:

Ենթադրենք, որ ձեր համակարգչի պանակում կան բազմաթիվ տեքստային ֆայլեր, այժմ դուք ցանկանում եք ներմուծել այս տեքստային ֆայլերը Excel- ի աշխատանքային գրքում և տեղադրել յուրաքանչյուր տեքստային ֆայլ առանձին աշխատանքային թերթերի մեջ: Յուրաքանչյուր տեքստային ֆայլ մեկ առ մեկ պատճենելն ու տեղադրելը շատ ժամանակ կվատնի, այստեղ ես կարող եմ խոսել այս խնդրի լուծման որոշ հնարքների մասին:

Ներմուծեք բազմաթիվ տեքստային ֆայլեր ՝ VBA կոդով աշխատաթերթերն առանձնացնելու համար

Բաշխեք աշխատանքային գիրքը բազմաթիվ առանձին տեքստի / pdf / csv / xlsx ֆայլերի Excel- ի համար Kutools- ով


նետ կապույտ աջ պղպջակ Ներմուծեք բազմաթիվ տեքստային ֆայլեր ՝ VBA կոդով աշխատաթերթերն առանձնացնելու համար

Հետևյալ VBA կոդը կարող է օգնել ձեզ յուրաքանչյուր տեքստային ֆայլ միանգամից նոր աշխատանքային գրքում ներմուծել առանձին թերթեր, արեք հետևյալը.

1, Պահեք պահեք ALT + F11 Excel- ում ստեղներ `բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ներմուծեք բազմաթիվ տեքստային ֆայլեր ՝ աշխատանքային թերթերն առանձնացնելու համար.

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, Վերոնշյալ կոդը տեղադրելուց հետո սեղմեք F5 ստեղնը այս կոդն աշխատեցնելու համար, և դուրս եկած պատուհանում խնդրում ենք նշել այն պանակը, որը պարունակում է տեքստային ֆայլեր, անցեք պանակ ՝ տեքստային ֆայլերը ընտրելու համար, որոնք ցանկանում եք ներմուծել աշխատանքային թերթերում, տեսեք,

փաստաթուղթ ներմուծել բազմաթիվ տեքստային ֆայլեր 1

4. Այնուհետեւ կտտացրեք բաց կոճակը, բոլոր ընտրված տեքստային ֆայլերը ներմուծվել են նոր աշխատանքային գրքույկ, և յուրաքանչյուր ֆայլ առանձին գտնվում է մեկ աշխատանքային թերթում:

5, Վերջապես, դուք կարող եք պահպանել նոր աշխատանքային գիրքը, որքան ձեզ հարկավոր է:


նետ կապույտ աջ պղպջակ Բաշխեք աշխատանքային գիրքը բազմաթիվ առանձին տեքստի / pdf / csv / xlsx ֆայլերի Excel- ի համար Kutools- ով

Երբեմն կարող է անհրաժեշտ լինել կատարել վերը նշված առաջադրանքի որոշ հակառակ գործողություններ, այսինքն ՝ հարկավոր է աշխատանքային տետր բաժանել ՝ տեքստային ֆայլերն առանձնացնելու համար: Excel- ի համար նախատեսված գործիքներ'S Պառակտում աշխատանքային գրքույկ օգտակարությունը կարող է օգնել ձեզ արագ և հեշտությամբ լուծել այս աշխատանքը:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնեք Kutools Excel- ի համար հիմա: )

1, Ակտիվացրեք աշխատանքային գիրքը, որը ցանկանում եք բաժանել բազմաթիվ տեքստային ֆայլերի:

2: Սեղմեք ձեռնարկություն > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, տես նկարի նկարը.

3, Մեջ Պառակտում աշխատանքային գրքույկ երկխոսության տուփ:

(1.) Ստուգեք այն թերթերը, որոնք ցանկանում եք բաժանել:

(2.) Ստուգեք Նշեք պահպանման ձևաչափը, ապա ընտրեք այն ֆայլի ձևաչափը, որը ցանկանում եք պահպանել, օրինակ, կարող եք ընտրել txt, CSV, որոնվածը, xlsx or xls ֆայլի ձևաչափ ՝ ըստ անհրաժեշտության:

(3.) Ապա կտտացրեք պառակտում կոճակը, հետևյալ հուշման վանդակում նշեք պանակ ՝ առանձին ֆայլերը դուրս բերելու համար:

Excel լրացումներ բաժանված աշխատանքային գրքույկ երկխոսության տուփ 2 Excel- ի հավելանյութերի ընտրության վայրը

4. Այնուհետեւ կտտացրեք OK կոճակը, և ձեր ընտրած աշխատանքային թերթերը կբաժանվեն և կպահվեն ձեր ուզած թղթապանակում `ըստ ձեզ անհրաժեշտ ձևաչափի:

Excel- ի հավելյալ առանձին ֆայլեր

Անվճար ներբեռնեք Kutools Excel- ի համար հիմա:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (9)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ հետևյալ ծածկագիրը, բայց տարածությունը չի սահմանազատել: Turned Tab:=True, Space:=True, բայց այն չաշխատեց: Իմ Txt ֆայլի ձևաչափն է- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Որևէ լուծում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
«Ներմուծել մի քանի տեքստային ֆայլեր VBA կոդով առանձին աշխատաթերթերի համար» ծածկագիրը աշխատում է ինձ համար, ԲԱՅՑ կտրում է յուրաքանչյուր բջիջի տվյալները 255 նիշով: Կարծում եմ, որ այն լռելյայնացված է GeneralFormat բջջային տվյալների համար, բայց ինձ անհրաժեշտ է, որ այն լինի TextFormat: Ցավոք, ես չեմ կարող պարզել, թե ինչպես կարգավորել կոդը՝ դա շտկելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է հաջորդականորեն մի քանի txt ֆայլեր բացել մեկ թերթում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս շատ օգտակար կոդի համար: Մի հարց էլ ունեմ. Ինչ կարող եմ փոխել տվյալների տեսակը Ընդհանուրից տեքստի փոխարկելու համար, քանի որ ներկայումս այն ներմուծում է միայն տվյալները Ընդհանուր ձևաչափի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես կարող եմ փոխել այս մակրոները՝ ցուցադրելու տեքստային ֆայլը, որը պահպանված է որպես UTF-8 կամ այլ կերպ ասած՝ օգտագործելով Պլատֆորմ = 65001, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս կոդի համար, սա հիանալի է աշխատում: Ես ուզում եմ բոլոր ընտրված թերթիկը միավորել մեկ թերթիկի մեջ, եթե դա հնարավոր է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն, մի քանի տեքստային ֆայլեր տարբեր աշխատաթերթերի կոդը աշխատել են:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը օգնեց ինձ ճշգրիտ լուծել իմ խնդիրը, շնորհակալություն կոդի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ պետք է փոխեմ կոդի մեջ, որպեսզի այն չբացի դրանք նոր աշխատանքային գրքում:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից