Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Ki jan yo ekspòte ran de selil nan Excel dosye CSV?

Nan Excel, nou ka sove fichye a tout antye kòm dosye CSV lè l sèvi avèk la Sove tankou fonksyon, men, èske ou janm eseye ekspòte yon ran de selil ki sòti nan yon fichye nan yon dosye CSV? Nan atik sa a, ou pral jwenn metòd yo rezoud pwoblèm sa a nan Excel.

Ranje ekspozisyon nan selil nan Excel dosye CSV ak kòd VBA

Ranje ekspozisyon nan selil nan Excel CSV dosye ak Kutools pou Excel


Ranje ekspozisyon nan selil nan Excel dosye CSV ak kòd VBA


Isit la, mwen gen yon kòd VBA pou ekspòte yon seri selil ki sòti nan Excel nan dosye CSV, tanpri fè jan sa a:

1. Kenbe desann la ALT + F11 kle, epi li ouvè a Microsoft Visual Basic pou aplikasyon pou fenèt.

2. Klike sou Antre > Modil, epi kole kòd sa a nan la Modil Fenèt.

VBA postal: Ekspòte yon seri de sa ki nan dosye CSV

Sub ExportRangetoFile()
'Update 20150628
Dim Rng As Range
Dim WorkRng As Range
Dim xFile As Variant
Dim xFileString As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.Copy
Application.ActiveSheet.Cells.Clear
WorkRng.Copy Application.ActiveSheet.Range("A1")
Set xFile = CreateObject("Scripting.FileSystemObject")
xFileString = Application.GetSaveAsFilename("", filefilter:="Comma Separated Text (*.CSV), *.CSV")
Application.ActiveWorkbook.SaveAs Filename:=xFileString, FileFormat:=xlCSV, CreateBackup:=False
End Sub

3. Lè sa a, peze F5 kle nan kouri kòd sa a, ak yon bwat èd memwa pral pòp soti nan fè ou sonje ranje nan selil ke ou vle ekspòte kòm dosye CSV.

doc ekspòte seri CSV 1

4. Lè sa a, klike sou OK bouton, presize yon anyè pou mete nouvo Csv ranpli a, epi bay yon non pou dosye CSV a nan bwat tèks File File la, al gade Ekran:

doc ekspòte seri CSV 2

5. Lè sa a, klike sou Save bouton, ak seri a chwazi te sove kòm dosye CSV, ou ka ale nan katab espesifye ou a wè li.


Ranje ekspozisyon nan selil nan Excel CSV dosye ak Kutools pou Excel

Si ou pa enterese nan kòd la VBA, isit la, mwen ka entwodui ou yon zouti fasil - Kutools pou Excel, Ak li yo Ranje ekspòtasyon nan dosye karakteristik, ou ka byen vit rezoud travay sa a.

Kutools pou Excel : ak plis pase 300 sou la men Excel ajoute-ins, gratis eseye ki pa gen okenn limit nan jou 60.

Apre enstale Kutools pou Excel, tanpri fè ak etap sa yo:

1. Chwazi ranje a done ke ou vle ekspòte nan dosye CSV.

2. Lè sa a, klike sou Enterprise > Import / Export > Ranje ekspòtasyon nan dosye, gade D:

Dokiman ekspozisyon doc CSV 3

3. Nan Ranje ekspòtasyon nan dosye bwat dyalòg, chwazi CSV (Comma delimite) ki soti nan fòma dosye opsyon, ak Lè sa a, presize a Save anyè pou konsève pou dosye a nouvo CSV, gade Ekran:

Dokiman ekspozisyon doc CSV 4

4. Lè sa a, klike sou Ok bouton, yon bwat èd memwa pral pòp soti nan raple ou presize yon non pou sa a nouvo CSV dosye jan ou bezwen, ak Lè sa a, klike sou OK yo fèmen bwat sa a, ak done yo chwazi yo pral ekspòte kòm yon dosye CSV nan yon fwa.

Dokiman ekspozisyon doc CSV 5

nòt:

Sove valè aktyèl la: Li pral montre valè aktyèl yo nan dosye final la.

Sove valè yo jan yo montre sou ekran: Li pral montre valè yo nan dosye final la menm jan ou li yo sou ekran an òdinatè.

Louvri dosye a apre ekspòtasyon: Li pral otomatikman louvri dosye final la apre ekspòte ranje a si ou tcheke opsyon sa a.

Klike sou yo konnen plis bagay sou Range Export sa a nan sèvis piblik File.

Download ak gratis Kutools jijman pou Excel Kounye a!


Demo: Ranje ekspozisyon nan selil nan ksv / pdf / txt / html dosye ak Kutools pou Excel

Kutools pou Excel: ak plis pase 200 sou la men Excel ajoute-ins, gratis eseye ki pa gen okenn limit nan jou 60. Download ak gratis jijman Koulye a!


Zouti Excel pwodiktivite

Riban nan Excel (ak Kutools pou Excel enstale)

300 + karakteristik avanse ogmante pwodiktivite ou pa 70%, epi ede w kanpe soti nan foul!

Èske ou ta renmen ranpli travay chak jou ou byen vit ak parfe? Kutools Pou Excel pote XNX + fre ak pwisan karakteristik avanse (Konbine liv travay, sòm pa koulè, divize sa ki nan selil, konvèti dat, ak sou sa ...) pou ... XNUMS + travay senaryo, ede ou rezoud XN / Excel pwoblèm.

  • Fè fas ak tout travay konplike an segonn, ede amelyore kapasite travay ou, jwenn siksè nan konpetisyon an feròs, epi pa janm enkyete sou ke yo te revoke.
  • Sove yon anpil tan travay, kite anpil tan pou ou renmen ak swen fanmi an epi jwi yon lavi konfòtab kounye a.
  • Diminye dè milye de klik ak sourit chak jou, soulaje je fatige ou ak men ou, epi ba ou yon kò ki an sante.
  • Vin yon ekspè Excel nan kèk minit, epi jwenn admirasyon ti koutje sou nan men kòlèg ou oswa zanmi.
  • Pa bezwen sonje okenn fòmil douloure ak kòd VBA, gen yon lide ap detann e bèl, ba ou yon frison ou pa janm te gen anvan an.
  • Pase sèlman $ 10, men vo pase $ 39 fòmasyon lòt moun. Yo te itilize pa elit 110,000 ak 300 + byen li te ye-konpayi yo.
  • 60-jou san limit jijman gratis. 60-jou garanti dèyè lajan. Gratis ajou ak sipò pou 2 ane. Achte yon fwa, itilize pou tout tan.
  • Chanje fason ou travay kounye a, epi ba ou yon lavi miyò imedyatman!

Tab Biwo Pote efikas ak sou la men Tabs nan biwo (gen ladan Excel), jis tankou Chrome, Firefox, ak nouvo IE

  • Ogmante pwodiktivite ou pa 50% lè gade ak koreksyon dokiman miltip.
  • Diminye dè santèn de klik sourit pou ou chak jou, di orevwa nan men sourit.
  • Louvri ak kreye dokiman nan nouvo onglè nan menm fenèt, olye ke nan nouvo fenèt yo.
  • Ede w travay pi vit ak fasil kanpe soti nan mitan foul moun yo! Yon dezyèm chanje ant plizyè douzèn dokiman ouvè!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    D Pritchard · 6 months ago
    Hi,


    this doesn't actually work


    It still exports the entire sheet even when a range is selected.


    Please fix it
  • To post as a guest, your comment is unpublished.
    Bill James · 1 years ago
    Thank you for this macro, it is very helpful.

    Do you know why on some existing large sheets I get extra rows appended? I am selecting the header row cells along with a few data row cells which might be 1000's of rows down in the sheet. These appended rows show up in the output .csv file with a comma for each column in the source selection. If I manually create a small sheet such as your example this does not happen.