Note: The other languages of the website are Google-translated. Back to English

Sut i arbed, allforio taflenni lluosog / pob taflen i wahanu ffeiliau csv neu destun yn Excel?

Wrth ddefnyddio Excel, gallwch gadw taflen waith â llaw fel csv neu ffeil testun trwy ddefnyddio'r swyddogaeth Cadw Fel. Fodd bynnag, i drosi taflenni gwaith lluosog neu'r cyfan mewn llyfr gwaith yn ffeiliau csv neu destun ar wahân, sut allwch chi wneud? Yn yr erthygl hon, byddwn yn dangos dulliau i chi o gadw neu drosi dalen luosog neu bob tudalen yn ffeiliau csv neu destun ar wahân.

Cadw, allforio neu drosi pob dalen i csv neu ffeil testun gyda chod VBA
Cadw, allforio neu drosi dalennau lluosog / pob taflen i csv neu ffeil testun gyda Kutools ar gyfer Excel


Cadw, allforio neu drosi pob dalen i csv neu ffeil testun gyda chod VBA

Gyda'r codau VBA isod, gallwch arbed yr holl daflenni gwaith mewn llyfr gwaith i ffeiliau csv neu destun sydd wedi'u gwahanu. Gwnewch fel a ganlyn.

Allforio neu drosi pob dalen yn ffeiliau csv

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Cymhwysiad Sylfaenol Gweledol Microsoft ffenestr.

2. Yn y Cymhwysiad Sylfaenol Gweledol Microsoft ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod canlynol i'r Modiwlau ffenestr.

Cod VBA: Allforiwch bob dalen i ffeiliau csv sydd wedi'u gwahanu

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod. Fe welwch fod yr holl ffeiliau csv a allforiwyd wedi'u lleoli ar y dogfennau ffolder. Gweler y screenshot:

Allforio neu drosi pob dalen yn ffeiliau Testun

Gall y cod canlynol eich helpu i allforio neu drosi'r holl daflenni yn y llyfr gwaith i ffeiliau Testun sydd wedi'u gwahanu.

Cod VBA: Allforiwch bob dalen i ffeiliau Testun sydd wedi'u gwahanu

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

Mae'r ffeiliau Testun a allforiwyd hefyd i'w gweld ar y dogfennau ffolder. Gweler y screenshot:


Cadw, allforio neu drosi dalennau lluosog / pob taflen i csv neu ffeil testun gyda Kutools ar gyfer Excel

Ygall ou allforio neu drosi dalennau lluosog neu bob dalen yn gyflym i ffeiliau csv unigol, ffeiliau testun neu fformat ffeiliau xls yn Excel gyda'r Llyfr Gwaith Hollti cyfleustodau Kutools ar gyfer Excel.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti. Gweler y screenshot:

2. Yn y Llyfr Gwaith Hollti blwch deialog:

  • 1). Os ydych chi am drosi'r holl daflenni yn ffeiliau csv neu destun, dim ond cadw enwau pob dalen yn y Enw'r daflen waith blwch; Os ydych chi am drosi dalennau lluosog yn unig, daliwch i'w gwirio a mynd i ddad-dicio dalenni eraill nad ydych chi am eu trosi.
  • 2). Yn y Dewisiadau adran, edrychwch ar y Cadw fel math blwch ac yna dewis Testun Unicode (*. Txt) or CSV (Macintosh) (*. Csv) o'r rhestr ostwng.
  • 3). Cliciwch y Hollti botwm.

3. Yn y Porwch Am Ffolder blwch deialog, nodwch ffolder i achub y ffeiliau a allforiwyd, ac yna cliciwch ar y OK botwm.

Nawr mae'r holl daflenni neu daflenni penodedig yn cael eu trosi'n ffeiliau csv neu destun wedi'u gwahanu, ac wedi'u lleoli ar y ffolder fel y nodwyd gennych uchod.

  Os ydych chi am gael treial am ddim (

30
-day) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.

Cadw, allforio neu drosi dalennau lluosog / pob taflen i csv neu ffeil testun gyda Kutools ar gyfer Excel


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (36)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i gadw'r ffeiliau CSV i ffolder heblaw'r ffolder Dogfennau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]A oes unrhyw ffordd i gadw'r ffeiliau CSV i ffolder heblaw'r ffolder Dogfennau?Gan Alex K123456789[/quote] Nid wyf wedi ei brofi, ond rwy'n bert y mae "\" yn y llinell hon yn sefyll am y cyfeiriadur gweithio: xcsvFile = CurDir & " \" &xWs.Name & " .csv " Os ydych am newid y cyfeiriadur gweithio, bydd yn rhaid i chi ychwanegu gorchymyn arall. Os ydych chi am ei gadw mewn ffolder o fewn y cyfeiriadur gweithredol, dywedwch mewn ffolder o'r enw newydd eich bod chi'n rhoi "\New\" yn lle \"\". Rhywbeth tebyg i hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr Paul. Gorffennais ei ddarganfod ychydig yn ôl, ond eich ateb yw'r union beth a wneuthum.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Neis! Diolch am yr ateb, mae hefyd yn golygu llawer i mi wybod mai fy ateb yw'r un cywir. Lloniannau!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Alex, A allech chi ddangos y llinell cod a roesoch yn lle'r "\" os gwelwch yn dda? Mae angen i mi allu cadw'r ffeiliau .csv hyn i leoliad ar ein rhwydwaith yn hytrach nag yn fy llyfrgell WS lleol. Mae angen i ni ganiatáu i'n pobl Gwasanaeth Cwsmer allu cyrchu'r ffeil ac ailenwi'r lleoliad bob tro y caiff ei defnyddio. Rwy'n dod ar draws problemau bygiau gyda newid "\" i "\Newydd" yn unig (mae'r cod VBA yn gweithio yn ôl y disgwyl pan gaiff ei gopïo'n syth o'r wybodaeth uchod). Nid wyf yn saavy cod, ond gallaf ddilyn cyfarwyddiadau yn weddol dda, felly mae unrhyw help yn cael ei werthfawrogi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Helo Alex, allech chi ddangos y llinell cod a roesoch yn lle'r "\" os gwelwch yn dda? Mae angen i mi allu cadw'r ffeiliau .csv hyn i leoliad ar ein rhwydwaith yn hytrach nag yn fy llyfrgell WS lleol. Mae angen i ni ganiatáu i'n pobl Gwasanaeth Cwsmer allu cyrchu'r ffeil ac ailenwi'r lleoliad bob tro y caiff ei defnyddio. Rwy'n dod ar draws problemau bygiau gyda newid "\" i "\Newydd" yn unig (mae'r cod VBA yn gweithio yn ôl y disgwyl pan gaiff ei gopïo'n syth o'r wybodaeth uchod). Nid wyf yn saavy cod, ond gallaf ddilyn cyfarwyddiadau yn weddol dda, felly mae unrhyw help yn cael ei werthfawrogi!Gan Dawn[/dyfyniad] Helo Dawn, fe wnes i orffen gorfod ail-ysgrifennu dognau ac fel yr awgrymodd Paul, defnyddiais orchymyn ychydig yn wahanol. Isod mae'r gorchymyn a ysgrifennais i adnewyddu'r data yn fy llyfr gwaith o'n Warws Data, yna adnewyddu tablau colyn ac yn y pen draw arbed un o'r taflenni fel PDF i'm gyriant: ActiveWorkbook.RefreshAll Sheets("Karth").Select Range(" B22").Dewiswch ActiveSheet.PivotTables("Karth_Appd_Wkly").PivotCache.Refresh Sheets("Start").Select Sheets("Karth").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "K:\K\Analytics\ Adroddiadau\Sales\SM Reports\SM Summary_Karth.pdf" _ , Ansawdd:=xlQualityStandard, IncludeDocProperties:=Gwir, IgnorePrintAreas _ :=Gau, OpenAfterPublish:=Diwedd Diwedd Anwir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am y cod, a yw'n bosibl hepgor rhai dalennau ac arbed ychydig yn unig? Does gen i ddim syniad sut dylwn i ddechrau. Allech chi fy helpu? Nicolas
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y macros, roedden nhw'n union yr hyn yr oeddwn ei angen. Fodd bynnag, mae defnyddio "CurDir" i adeiladu'r llwybr ffeil allbwn yn beryglus iawn gan nad yw o reidrwydd yn ffolder y ffeil Excel a agorwyd - yn gyffredinol dyma'r ffolder cyfredol yn explorer felly gallai eich ffeiliau gael eu hysgrifennu bron yn unrhyw le yn y pen draw. Dylech ddefnyddio Application.ThisWorkbook.Path yn lle hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ysgrifennu i benderfynu a all eich cais drosi taflenni xls lluosog i un ffeil testun a sut y byddai'n archebu'r rhesi. Mae angen i mi gael opsiwn i archebu'r rhesi yn nhrefn ymddangosiad, un llinell ar y tro un ddalen ar y tro. Taflen 1 , rhes 1; taflen 2, rhes 1, dalen 3, rhes 1, ac ati. Edrychaf ymlaen at eich adborth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am y cod, dim ond eglurhad bach sydd gen i. Ar hyn o bryd pan fydd y ffeil CSV yn cynhyrchu mae'n cael ei hamffinio gan atalnod ",". er bod fy ngosodiad system ar gyfer CSV dylai'r amffiniad fod yn bibell "|". Ddim yn siŵr pam mae'r CSV yn cael ei gynhyrchu gydag amffinydd coma gyda'r cod uchod. A oes unrhyw ffordd y gallaf ddiffinio'r amffinydd ar gyfer y ffeil CSV yn benodol. Chwilio am eich ateb yn fuan. Diolch. Cofion, Amit
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo alex os gwelwch yn dda a allech chi arddangos y cod i gadw'r ffeiliau mewn fformat csv ac eithrio'r ffolder dogfennau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo dwi angen macro sy'n trosi pibell "|" gwahanu csv i mewn i xlsx gan ofyn enw'r ffolder nid un ffeil. dwi ei angen ar frys.


Regards,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennym ni all ddatrys y broblem hon
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi angen macro i drosi'r holl dabiau mewn ffeil Excel i set wahanol o ffeiliau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Pa ffeiliau ydych chi am eu cynnwys yn eich "set wahanol o ffeiliau"?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
1) Mae gen i lyfr gwaith gyda thaflenni lluosog ynddo.
2) Mae gan y taflenni lluosog hynny golofnau lluosog.
3) Mae gen i un golofn ym mhob dalen sy'n cynnwys yr holl golofnau eraill.
4) Nawr, rydw i eisiau tynnu'r golofn gydgatenedig honno i ffeil destun gyda'r un enw ag enw'r ddalen.
5) Y ffordd rydw i eisiau yw gwasgu un botwm yn unig a dylai edrych am yr holl dabiau, tynnwch y golofn honno (dywedwch mai AA yw'r golofn gydgadwynedig) o bob dalen, rhowch hynny mewn ffeil testun, enwch y ffeil testun yr un peth ag enw'r ddalen a storio mewn rhai cyfeiriadur ar fy n ben-desg dywedwch gyriant H.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Mae'n ddrwg gennym ni all helpu gyda hyn, gallwch bostio eich cwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html i gael mwy o gefnogaeth Excel gan ein gweithiwr proffesiynol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A, gwelaf nawr na ddylid copïo'r llinell "Cod VBA: Allforio pob dalen i ffeiliau csv wedi'u gwahanu" i'r ardal cod. Efallai y gall hynny fod yn fwy amlwg i newydd-ddyfodiaid, ac i bobl sy'n dilyn cyfarwyddiadau'n benodol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ken,
Dyna linell ddisgrifiad y cod. Dylai'r llinell "Sub ExportSheetsToCSV()" fod yn llinell gyntaf y cod.
Mae'n ddrwg gen i am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch - sgript ddefnyddiol iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Datrysiad gwych...Mae wedi arbed fy amser...... Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os ydych chi eisiau trosi dalennau lluosog yn unig, daliwch ati i'w gwirio a mynd i ddad-dicio dalennau eraill nad ydych chi am eu trosi
syr ar gyfer cam thuis a oes gennych macro
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Methu helpu gyda chod VBA ar gyfer hyn. Beth am roi cynnig ar y cyfleustodau Split Workbook a ddarparwn yn y post? Bydd yn arbed eich amser a byddwch wrth eich bodd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
diolch yn fawr iawn am macro gwych, mae'n gweithio fel swyn! Ond mae gennyf gwestiwn, beth os hoffwn arbed y macro hwn (fersiwn CSV) ar PERSONAL.xlsb er mwyn ei wneud ar gael ar unrhyw enghraifft excel?

Pan geisiaf, mae CurDir yn cymryd y cyfeiriadur PERSONOL, yn lle'r daflen waith weithredol un ...

Diolch am unrhyw help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mirko,
Gall y dull yn yr erthygl hon wneud ffafr i chi: https://trumpexcel.com/personal-macro-workbook/.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes modd defnyddio'r cod hwn i allforio amrediad penodol yn unig i ffeil .csv o bob dalen mewn llyfr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Efallai y bydd y cod VBA yn yr erthygl hon yn gwneud ffafr i chi: https://www.extendoffice.com/documents/excel/2897-excel-export-range-to-csv.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly, mae hyn yn wych! OND, beth os oes angen i mi rannu llyfr gwaith yn .csv ond ar gyfer PC, nid MAC? Os oes gan unrhyw un ffordd o'i wneud, helpwch fi. Byddaf yn ddiolchgar iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gall y cod VBA cyntaf yn y swydd hon wneud ffafr i chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut byddwn i'n newid y cod i'w gadw mewn fformat ffeil gwahanol fel xlsx? neu ASCII.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Defnyddiais hwn i gadw holl ddalennau fy ffeil .xlsx i mewn i differents .xlsx
Is-Daflenni AllforioToXLSX()
Dim xWs Fel Taflen Waith
Dim xcsvFile Fel Llinynnol
Ar gyfer Pob xWs Mewn Cymhwysiad.ActiveWorkbook.sheets
xWs.Copy
xlsxFile = CurDir &\"&xWs.Name&" .xlsx"
Application.ActiveWorkbook.SaveAs Filename:=xlsxFile, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=Anghywir
Application.ActiveWorkbook.Saved = Gwir
Application.ActiveWorkbook.Close
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am y cod gwych mae'n anhygoel (Allforio pob dalen i ffeiliau Testun wedi'u gwahanu)! Fe'i defnyddiwyd ar sawl achlysur ond rhedodd i mewn i ffeil lle na fydd yn gweithio, dywed dadfygiwr gwall runtime 1004 a methodd y copi dull hwnnw o daflen waith a marcio llinell xWs.Copy. A oes unrhyw reol yn ymwneud ag enw taflen waith na fyddai'n caniatáu i'r cod redeg?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am y cod gwych (Allforio pob dalen i ffeiliau Testun wedi'u gwahanu), gan ei ddefnyddio llawer. Dim ond yn rhedeg i mewn i lyfr gwaith lle na fydd yn gweithio, dadfygiwr yn dweud llinell xWs.Copy yn broblem, popup yn dweud dull copi o lyfr gwaith wedi methu. A oes unrhyw gyfyngiadau ynghylch enw taflen waith neu rywbeth tebyg, fel dim celloedd wedi'u huno ac ati?

Diolch am ateb :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo BI,
Ydy eich taflen waith yn cynnwys tabl colyn? Allwch chi roi eich data i ni ar gyfer profi? Os nad oes ots gennych, uwchlwythwch eich ffeil sampl yma.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL