Sut i allforio colofnau lluosog i ffeiliau testun unigol yn Excel?
Fel rheol, gallwch allforio taflen waith i ffeil txt yn Excel yn gyflym ac yn hawdd trwy ddefnyddio'r swyddogaeth Save As. Ond, a ydych erioed wedi ceisio arbed data pob colofn i ffeil testun yn unigol o daflen waith Excel? Yr erthygl hon, byddaf yn siarad am sut i ddatrys y swydd hon mor gyflym â phosibl.
Allforio colofnau lluosog i ffeiliau testun unigol gyda chod VBA
Allforio colofnau lluosog i ffeiliau testun unigol gyda chod VBA
Gall y cod VBA canlynol eich helpu i arbed data pob colofn i ffeil testun yn unigol yn Excel, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.
Cod VBA: Allforio colofnau lluosog i ffeiliau testun unigol:
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. Ar ôl pasio'r cod, pwyswch F5 allwedd i redeg y cod hwn, ac a Browser blwch deialog wedi'i popio allan, yna dewiswch ffolder i roi'ch ffeiliau testun a allforiwyd, gweler y screenshot:
4. Yna cliciwch OK botwm, ac mae data pob colofn mewn taflen waith weithredol wedi'i allforio i ffeil testun yn unigol, gweler y screenshot:
Allforio taflenni gwaith lluosog i mewn i destun unigol / ffeiliau pdf / csv gyda Kutools ar gyfer Excel
Os oes angen i chi allforio taflenni gwaith lluosog i ffeiliau testun unigol, pdf neu csv, bydd y Kutools ar gyfer Excel'S Llyfr Gwaith Hollti gall nodwedd wneud ffafr i chi.
Ar ôl gosod Kutools ar gyfer Excel, gwnewch y camau canlynol:
1. Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti, gweler y screenshot:
2. Yn y Llyfr Gwaith Hollti blwch deialog, gwiriwch y taflenni gwaith rydych chi am eu cadw fel ffeiliau txt, pdf, csv, ac yna gwiriwch Cadw fel math opsiwn, yna dewiswch y math o ffeil rydych chi am ei chadw fel, ac yna cliciwch Hollti botwm, yn yr arddangos Porwch Am Ffolder blwch deialog, dewiswch ffolder i roi'r ffeiliau sydd wedi'u hallforio, gweler y screenshot:
3. Yna cliciwch OK botwm, ac mae'r taflenni gwaith a ddewiswyd gennych wedi'u hallforio i'r fformat ffeil penodol unigol yn ôl yr angen, gweler y screenshot:
Cliciwch i Lawrlwytho a threialu am ddim Kutools ar gyfer Excel Nawr!
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!