Kako izvoziti več stolpcev v posamezne besedilne datoteke v Excelu?
Običajno lahko delovni list v Excelovo datoteko hitro in enostavno izvozite s funkcijo Shrani kot. Ali ste že kdaj poskušali shraniti podatke vsakega stolpca v besedilno datoteko posebej z Excelovega delovnega lista? V tem članku bom govoril o tem, kako to nalogo rešiti čim hitreje.
Izvozite več stolpcev v posamezne besedilne datoteke s kodo VBA
Z Kutools za Excel izvozite več delovnih listov v posamezne datoteke z besedilom / pdf / csv
Izvozite več stolpcev v posamezne besedilne datoteke s kodo VBA
Naslednja koda VBA vam lahko pomaga shraniti podatke vsakega stolpca v besedilno datoteko posebej v Excelu, naredite tako:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.
Koda VBA: Izvozi več stolpcev v posamezne besedilne datoteke:
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. Po lepljenju kode pritisnite F5 tipko za zagon te kode in a brskalnik Odpre se pogovorno okno, nato izberite mapo, kamor želite shraniti izvožene besedilne datoteke, glejte posnetek zaslona:
4. Nato kliknite OK in podatki o vsakem stolpcu na aktivnem delovnem listu so bili izvoženi v besedilno datoteko posebej, glejte posnetek zaslona:
Z Kutools za Excel izvozite več delovnih listov v posamezne datoteke z besedilom / pdf / csv
Če želite izvoziti več delovnih listov v posamezno besedilo, datoteke pdf ali csv, bo datoteka Kutools za ExcelJe Razdeljeni delovni zvezek funkcija vam lahko naredi uslugo.
Po namestitvi Kutools za Excel, naredite naslednje:
1. Kliknite Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek, glej posnetek zaslona:
2. v Razdeljeni delovni zvezek v pogovornem oknu označite delovne liste, ki jih želite shraniti kot datoteke txt, pdf, csv, in nato označite Shrani kot vrsto izberite vrsto datoteke, ki jo želite shraniti, in kliknite Split na prikazanem gumbu Brskaj po mapi v pogovornem oknu izberite mapo, kamor želite shraniti izvožene datoteke, glejte posnetek zaslona:
3. Nato kliknite OK in izbrani delovni listi so bili po potrebi izvoženi v posamezno obliko datoteke, glejte posnetek zaslona:
Kliknite za prenos in brezplačno preskusno različico Kutools za Excel zdaj!
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
