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:
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:
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.
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:
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:
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:
Cliceáil chun Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!