Ինչպե՞ս Excel- ում արտահանել բազմաթիվ սյունակներ անհատական տեքստային ֆայլերի մեջ:
Սովորաբար, Excel- ում դուք կարող եք արագ և հեշտությամբ արտահանել աշխատանքային թերթ txt ֆայլին ՝ օգտագործելով Save As գործառույթը: Բայց երբևէ փորձե՞լ եք յուրաքանչյուր սյունակի տվյալներ պահպանել տեքստային ֆայլի մեջ Excel- ի աշխատանքային թերթիկից առանձին: Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես հնարավորինս արագ լուծել այս աշխատանքը:
Արտահանեք բազմաթիվ սյուններ VBA կոդով անհատական տեքստային ֆայլերի մեջ
Արտահանեք բազմաթիվ սյուններ VBA կոդով անհատական տեքստային ֆայլերի մեջ
Հետևյալ VBA կոդը կարող է օգնել ձեզ յուրաքանչյուր սյունակի տվյալներ պահպանել Excel- ում առանձին տեքստային ֆայլում, խնդրում ենք արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ Պատուհանը:
VBA կոդ. Արտադրել բազմաթիվ սյունակներ անհատական տեքստային ֆայլերի մեջ.
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3, Կոդի տեղադրումից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ա Browser երկխոսության տուփը դուրս է եկել, ապա ընտրեք պանակ ՝ ձեր արտահանված տեքստային ֆայլերը տեղադրելու համար, տե՛ս նկարը.
4. Այնուհետեւ կտտացրեք OK կոճակը, և ակտիվ աշխատաթերթի յուրաքանչյուր սյունակի տվյալներն արտահանվել են անհատական տեքստային ֆայլ, տե՛ս նկարը.
Excel- ի համար Kutools- ով արտահանել բազմաթիվ աշխատանքային թերթեր առանձին տեքստային / pdf / csv ֆայլերի մեջ
Եթե Ձեզ անհրաժեշտ է բազմաթիվ աշխատանքային թերթեր արտահանել առանձին տեքստի, pdf կամ csv ֆայլերի, ապա Excel- ի համար նախատեսված գործիքներ'S Պառակտում աշխատանքային գրքույկ հատկությունը կարող է քեզ լավություն դարձնել:
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, Խնդրում ենք անել հետևյալ քայլերով.
1: Սեղմեք Kutools Plus > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, տես նկարի նկարը.
2, Մեջ Պառակտում աշխատանքային գրքույկ երկխոսության տուփ, ստուգեք այն աշխատաթերթերը, որոնք ցանկանում եք պահպանել որպես txt, pdf, csv ֆայլեր, ապա ստուգել Պահել որպես տիպ տարբերակը, ապա ընտրեք ֆայլի տեսակը, որը ցանկանում եք պահպանել որպես, և այնուհետև կտտացրեք պառակտում կոճակը, ցուցադրվում է Թերթիր պանակի համար երկխոսության տուփ, ընտրեք արտահանված ֆայլերը տեղադրելու համար պանակ, տես նկարի նկարը.
3. Այնուհետեւ կտտացրեք OK կոճակը, և ձեր ընտրած աշխատանքային թերթերը արտահանվել են ըստ Ձեզ անհրաժեշտ անհատական ֆայլի ձևաչափի, տես նկարի նկարը.
Կտտացրեք ներբեռնելու և անվճար փորձարկման Kutools- ի համար Excel- ը հիմա:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
