Skip to main content

Conas ilcholúin a easpórtáil i gcomhaid téacs aonair in Excel?

De ghnáth, is féidir leat bileog oibre a easpórtáil go comhad txt in Excel go tapa agus go héasca tríd an bhfeidhm Save As a úsáid. Ach an ndearna tú iarracht riamh sonraí gach colúin a shábháil i gcomhad téacs ina n-aonar ó bhileog oibre Excel? An t-alt seo, labhróidh mé faoi conas an post seo a réiteach chomh tapa agus is féidir.

Easpórtáil colúin iolracha i gcomhaid téacs aonair le cód VBA

Easpórtáil iliomad bileoga oibre i gcomhaid téacs / pdf / csv aonair le Kutools for Excel


Easpórtáil colúin iolracha i gcomhaid téacs aonair le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat sonraí gach colúin a shábháil ar chomhad téacs ina n-aonar in Excel, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.

Cód VBA: Easpórtáil colúin iolracha i gcomhaid téacs aonair:

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. Tar éis duit an cód a ghreamú, brúigh le do thoil F5 eochair chun an cód seo a rith, agus a bhrabhsálaí tá bosca dialóige popped amach, ansin roghnaigh fillteán chun do chomhaid téacs a onnmhairítear a chur, féach ar an scáileán:

colúin onnmhairiúcháin doc go txts 1

4. Ansin cliceáil OK cnaipe, agus rinneadh gach sonraí colún i mbileog oibre gníomhach a onnmhairiú isteach i gcomhad téacs ina n-aonar, féach an scáileán:

colúin onnmhairiúcháin doc go txts 2


Easpórtáil iliomad bileoga oibre i gcomhaid téacs / pdf / csv aonair le Kutools for Excel

Más gá duit iliomad bileoga oibre a easpórtáil i gcomhad téacs aonair, pdf nó csv, beidh an Kutools le haghaidh Excel'S Leabhar Oibre Scoilt is féidir le gné fabhar a dhéanamh duit.

nótaí:Chun é seo a chur i bhfeidhm Leabhar Oibre Scoilt, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan na céimeanna seo a leanas le do thoil:

1. Cliceáil Kutools Plus > Leabhar Oibre > Leabhar Oibre Scoilt, féach ar an scáileán:

colúin onnmhairiúcháin doc go txts 3

2. Sa an Leabhar Oibre Scoilt bosca dialóige, seiceáil na bileoga oibre a theastaíonn uait a shábháil mar chomhaid txt, pdf, csv, agus ansin seiceáil Ach amháin mar chineál rogha, ansin roghnaigh an cineál comhaid is mian leat a shábháil mar, agus ansin cliceáil Scoilt cnaipe, sa taispeáint Brabhsáil Chun Fillteán bosca dialóige, roghnaigh fillteán chun na comhaid a onnmhairítear a chur, féach ar an scáileán:

colúin onnmhairiúcháin doc go txts 4

3. Ansin cliceáil OK cnaipe, agus rinneadh do bhileoga oibre roghnaithe a easpórtáil chuig an bhformáid comhaid shonrach aonair de réir mar a theastaíonn uait, féach an scáileán:

colúin onnmhairiúcháin doc go txts 5

Cliceáil chun Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great code. Worked like a charm.
Can you tweak this code to not include first raw?
This comment was minimized by the moderator on the site
Hi there. Thanks in advance for the VBA code. I was wondering if instead of saving each .txt file as ANSI coding it can be made as UTF-8. Is it possible? Regards.
This comment was minimized by the moderator on the site
Great, you made my day with the code to export multiple columns into individual text files! Many thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations