Ինչպե՞ս ներմուծել բազմաթիվ տեքստային ֆայլեր բազմաթիվ թերթերի մեջ:
Ենթադրենք, որ ձեր համակարգչի պանակում կան բազմաթիվ տեքստային ֆայլեր, այժմ դուք ցանկանում եք ներմուծել այս տեքստային ֆայլերը Excel- ի աշխատանքային գրքում և տեղադրել յուրաքանչյուր տեքստային ֆայլ առանձին աշխատանքային թերթերի մեջ: Յուրաքանչյուր տեքստային ֆայլ մեկ առ մեկ պատճենելն ու տեղադրելը շատ ժամանակ կվատնի, այստեղ ես կարող եմ խոսել այս խնդրի լուծման որոշ հնարքների մասին:
Ներմուծեք բազմաթիվ տեքստային ֆայլեր ՝ VBA կոդով աշխատաթերթերն առանձնացնելու համար
Աշխատանքային գիրքը բաժանեք մի քանի առանձին տեքստի / pdf / csv / xlsx ֆայլերի Kutools for Excel
Ներմուծեք բազմաթիվ տեքստային ֆայլեր ՝ 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 ստեղնը այս կոդն աշխատեցնելու համար, և դուրս եկած պատուհանում խնդրում ենք նշել այն պանակը, որը պարունակում է տեքստային ֆայլեր, անցեք պանակ ՝ տեքստային ֆայլերը ընտրելու համար, որոնք ցանկանում եք ներմուծել աշխատանքային թերթերում, տեսեք,
4. Այնուհետեւ կտտացրեք բաց կոճակը, բոլոր ընտրված տեքստային ֆայլերը ներմուծվել են նոր աշխատանքային գրքույկ, և յուրաքանչյուր ֆայլ առանձին գտնվում է մեկ աշխատանքային թերթում:
5, Վերջապես, դուք կարող եք պահպանել նոր աշխատանքային գիրքը, որքան ձեզ հարկավոր է:
Աշխատանքային գիրքը բաժանեք մի քանի առանձին տեքստի / pdf / csv / xlsx ֆայլերի Kutools for Excel
Երբեմն կարող է անհրաժեշտ լինել կատարել վերը նշված առաջադրանքի որոշ հակառակ գործողություններ, այսինքն ՝ հարկավոր է աշխատանքային տետր բաժանել ՝ տեքստային ֆայլերն առանձնացնելու համար: Kutools for Excel'S Պառակտում աշխատանքային գրքույկ օգտակարությունը կարող է օգնել ձեզ արագ և հեշտությամբ լուծել այս աշխատանքը:
| Kutools for Excel : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Kutools for Excelխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնում Kutools for Excel Now! )
1, Ակտիվացրեք աշխատանքային գիրքը, որը ցանկանում եք բաժանել բազմաթիվ տեքստային ֆայլերի:
2: Սեղմեք ձեռնարկություն > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, տես նկարի նկարը.
3, Մեջ Պառակտում աշխատանքային գրքույկ երկխոսության տուփ:
(1.) Ստուգեք այն թերթերը, որոնք ցանկանում եք բաժանել:
(2.) Ստուգեք Նշեք պահպանման ձևաչափը, ապա ընտրեք այն ֆայլի ձևաչափը, որը ցանկանում եք պահպանել, օրինակ, կարող եք ընտրել txt, CSV, որոնվածը, xlsx or xls ֆայլի ձևաչափ ՝ ըստ անհրաժեշտության:
(3.) Ապա կտտացրեք պառակտում կոճակը, հետևյալ հուշման վանդակում նշեք պանակ ՝ առանձին ֆայլերը դուրս բերելու համար:
 |
 |
 |
4. Այնուհետեւ կտտացրեք OK կոճակը, և ձեր ընտրած աշխատանքային թերթերը կբաժանվեն և կպահվեն ձեր ուզած թղթապանակում `ըստ ձեզ անհրաժեշտ ձևաչափի:
Անվճար ներբեռնում Kutools for Excel Now!
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
