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

Սովորաբար, Excel- ում դուք կարող եք արագ և հեշտությամբ արտահանել աշխատանքային թերթ txt ֆայլին ՝ օգտագործելով Save As գործառույթը: Բայց երբևէ փորձե՞լ եք յուրաքանչյուր սյունակի տվյալներ պահպանել տեքստային ֆայլի մեջ Excel- ի աշխատանքային թերթիկից առանձին: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես հնարավորինս արագ լուծել այս աշխատանքը:

Արտահանեք բազմաթիվ սյուններ VBA կոդով անհատական ​​տեքստային ֆայլերի մեջ

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

Արտահանեք բազմաթիվ սյուններ 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- ը հիմա: