Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyimpan, mengeksport berbilang / semua helaian untuk memisahkan csv atau fail teks dalam Excel?

Semasa menggunakan Excel, anda boleh menyimpan lembaran kerja secara manual sebagai fail csv atau teks dengan fungsi Save As. Walau bagaimanapun, untuk menukarkan berbilang atau semua helaian dalam buku kerja untuk memisahkan csv atau fail teks, bagaimana anda boleh melakukannya? Dalam artikel ini, kami akan menunjukkan kepada anda cara-cara menyimpan atau menukar banyak atau semua helaian untuk memisahkan csv atau fail teks.

Simpan, eksport atau ubah semua helaian ke csv atau fail teks dengan kod VBA

Simpan, eksport atau tukar pelbagai / semua helaian ke csv atau fail teks dengan Kutools untuk Excel


Anda mungkin berminat dalam:

Menggabungkan berbilang lembaran kerja / buku kerja ke dalam satu lembaran kerja / buku kerja:

Menggabungkan pelbagai lembaran kerja atau buku kerja ke dalam satu lembaran kerja atau buku kerja mungkin menjadi tugas yang besar dalam kerja harian anda. Tetapi, jika anda ada Kutools untuk Excel, utiliti yang berkuasa - Gabungkan boleh membantu anda dengan cepat menggabungkan pelbagai lembaran kerja, buku kerja ke dalam satu lembaran kerja atau buku kerja.

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 30. Percuma Muat turun Sekarang


anak panah gelembung kanan biru Simpan, eksport atau ubah semua helaian ke csv atau fail teks dengan kod VBA


Dengan kod VBA di bawah, anda boleh menyimpan semua lembaran kerja dalam buku kerja untuk memisahkan csv atau fail teks. Sila buat seperti berikut.

Eksport atau tukar semua helaian ke fail csv

1. Akhbar Alt + F11 kunci pada masa yang sama untuk membuka Aplikasi Visual Basic Microsoft tingkap.

2. Di dalam Aplikasi Visual Basic Microsoft tetingkap, klik Memasukkan > Modul. Kemudian salin dan tampal kod berikut ke dalam Modul tingkap.

Kod VBA: Eksport semua helaian untuk memisahkan fail csv

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. Tekan butang F5 kunci untuk menjalankan kod. Anda akan melihat semua fail csv yang dieksport terletak di dokumen folder. Lihat tangkapan skrin:

Eksport atau tukar semua helaian ke fail Teks

Kod berikut boleh membantu anda mengeksport atau menukar semua helaian dalam buku kerja untuk memisahkan Fail teks.

Kod VBA: Eksport semua helaian ke Fail teks yang dipisahkan

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

Fail teks yang dieksport juga terletak di dokumen folder. Lihat tangkapan skrin:


anak panah gelembung kanan biru Simpan, eksport atau tukar pelbagai / semua helaian ke csv atau fail teks dengan Kutools untuk Excel

You boleh dengan cepat mengeksport atau menukarkan berbilang atau semua helaian ke fail csv individu, fail teks atau format fail xls dalam Excel dengan Buku Kerja Split utiliti Kutools untuk Excel.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

1. klik Enterprise > Buku kerja > Buku Kerja Split. Lihat tangkapan skrin:

2. Di dalam Buku Kerja Split kotak dialog:

1). Sekiranya anda mahu menukar semua helaian ke csv atau fail teks, simpan semua nama helaian yang tertera di dalam Nama lembaran kerja kotak; Jika anda hanya ingin menukar berbilang helaian, terus semaknya dan pergi untuk menyahtanda helaian lain yang anda tidak mahu menukar.

2). Di dalam Pilihan seksyen, periksa Simpan sebagai jenis kotak dan kemudian pilih Teks Unicode (*. Txt) or CSV (Macintosh) (*. Csv) dari senarai juntai bawah.

3). Klik Split butang.

3. Di dalam Semak imbas Untuk Folder kotak dialog, nyatakan folder untuk menyimpan fail yang dieksport, dan kemudian klik OK butang.

Sekarang semua helaian atau helaian tertentu ditukar kepada csv atau fail teks berasingan, dan cari pada folder seperti yang anda nyatakan di atas.


anak panah gelembung kanan biru Simpan, eksport atau tukar pelbagai / semua helaian ke csv atau fail teks dengan Kutools untuk Excel

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma sekarang!


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.
    Mirko · 3 months ago
    Hello,
    thank you so much for a great macro, it works like a charm! But I have a question, what if I would like to save this macro (CSV version) on PERSONAL.xlsb as to make it available on any excel instance?

    When I try, CurDir takes the PERSONAL directory, instead of the active worksheet one...

    Thank you for any help!
  • To post as a guest, your comment is unpublished.
    AK sharma · 9 months ago
    If you just want to convert multiple sheets, keep checking them and going to uncheck other sheets you don’t want to convert
    sir for thuis step do you have macro
    • To post as a guest, your comment is unpublished.
      crystal · 9 months ago
      Good day,
      Can't help with VBA code for this. Why not try the Split Workbook utility we provide in the post? It will save your time and you will love it.
  • To post as a guest, your comment is unpublished.
    sai · 10 months ago
    Superb solution.....Its saved my time.......Thank you
  • To post as a guest, your comment is unpublished.
    Cameron Stewart · 1 years ago
    Thanks - script very useful
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    A, I see now that the line "VBA code: Export all sheets to separated csv files" should not be copied into the code area. Perhaps that can be more explicit for newbies, and for people who follow instructions explicitly.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ken,
      That's the description line of the code. The line "Sub ExportSheetsToCSV()" should be the first line of the code.
      I'm sorry for the inconvenience.