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

or

Bagaimana batasan menukar banyak fail Excel ke fail CSV dalam Excel?

Dalam Excel, kami boleh menukar buku kerja ke fail CSV dengan fungsi Save as tetapi anda boleh tahu cara mengumpul banyak fail Excel untuk memisahkan fail CSV? Dalam artikel ini, saya memperkenalkan kod VBA untuk mengumpul semua fail Excel dalam folder ke fail CSV dalam Excel.

Batch menukar fail Excel folder ke fail CSV dengan VBA

Menukar lembaran buku kerja ke dalam fail CSV berasingan dengan Kutools untuk Excelidea yang baik3

Melayari penyemakan & mengedit beberapa buku kerja Excel / Dokumen Word sebagai Firefox, Chrome, Internet Explore 10!

Anda mungkin terbiasa melihat beberapa halaman web di Firefox / Chrome / IE, dan beralih di antara mereka dengan mengklik tab yang sesuai dengan mudah. Di sini, Tab Office menyokong pemprosesan yang sama, yang membolehkan anda menyemak imbas buku kerja Excel atau dokumen Word dalam satu tetingkap Excel atau tetingkap Word, dan dengan mudah bertukar di antara mereka dengan mengklik tab mereka. Klik untuk percubaan 45 hari Tab Pejabat!

ot excel

Batch menukar fail Excel folder ke fail CSV dengan VBA

Dalam Excel, tiada fungsi terbina dalam dapat menyelesaikan tugas ini dengan cepat kecuali VBA.

1. Dayakan Excel, dan tekan Alt + F11 kunci terbuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul untuk membuat Modul baru.

3. Salin di bawah kod dan tampalkannya ke tetingkap Modul baru.

VBA: Batch menukar fail Excel ke CSV

Sub WorkbooksSaveAsCsvToFolder () 'UpdatebyExtendoffice20181031 Dim xObjWB As Workbook Dim xObjWS As Worksheet Dim xStrEFPath As String Dim xStrEFFile As String Dim xObjFD As FileDialog Dim xObjSFD As FileDialog Dim xStrSPath As String Dim xStrCSVFName As Application String.ScreenUpdating = Application False.EnableEvents = Application False. Perhitungan = xlCalculationManual On Error Resume Set Set xObjFD = Application.FileDialog (msoFileDialogFolderPicker) xObjFD.AllowMultiSelect = False xObjFD.Title = "Kutools untuk Excel - Pilih folder yang mengandungi fail Excel" Jika xObjFD.Show <> -1 Kemudian Keluar Sub xStrEFPath xObjFF.SelectedItems (1) & "\" Set xObjSFD = Application.FileDialog (msoFileDialogFolderPicker) xObjSFD.AllowMultiSelect = False xObjSFD.Title = "Kutools untuk Excel - Pilih folder untuk mencari fail CSV" Jika xObjSFD.Show <> -1 Kemudian Exit Sub xStrSPath = xObjSFD.SelectedItems (1) & "\" xStrEFFile = Dir (xStrEFPath & "* .xls *") Do While xStrEFFile <> "" Set xObjWB = Workbook s.Open (Filename: = xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & Kiri (xStrEFFile, InStr (1, xStrEFFile, ".") - 1) & ".csv" xObjWB.SaveAs Filename: = xStrCSVFName, FileFormat: = xlCSV xObjWB . Tutup savechanges: = False xStrEFFile = Application Dir Loop.Computer = xlCalculationAutomatic Application.EnableEvents = Application True.ScreenUpdating = True End Sub

4. Akhbar F5 kekunci, pilih folder mengandungi fail Excel yang anda ingin tukar ke fail CSV dalam dialog pop timbul pertama.
batch doc ke csv 1

5. klik OK, kemudian dalam dialog popping kedua, pilih folder untuk meletakkan fail CSV.
batch doc ke csv 2

6. klik OK, sekarang fail Excel dalam folder telah ditukar kepada fail CSV dan disimpan dalam folder lain.
batch doc ke csv 3


Menukar lembaran buku kerja ke dalam fail CSV berasingan dengan Kutools untuk Excel

Seperti yang diketahui, kami hanya boleh menukar keseluruhan buku kerja ke dalam satu fail CSV dalam Excel dengan fungsi Save As. Tetapi dalam beberapa masa, anda mahu menukar helaian tunggal ke dalam fail CSV, dalam kes ini, Buku Kerja Split utiliti Kutools untuk Excel boleh membantu anda.

Kutools untuk Excel, dengan lebih daripada 200 fungsi yang berguna, menjadikan pekerjaan anda lebih mudah.

Selepas memasang Kutools untuk Excel, sila lakukan seperti di bawah:(Muat turun Percuma Kutools untuk Excel Sekarang!)

1. Dayakan buku kerja yang anda mahu menukar helaian sebagai fail CSV berasingan, klik Kutools Lebih > Buku kerja > Buku Kerja Split.
batch doc ke csv 4

2. Di dalam Buku Kerja Split dialog, periksa nama kunci yang anda mahu pisah (semua helaian ditandakan secara lalai), periksa Simpan sebagai jenis, pilih CSV (Macintosh) (* .CSV) dari senarai juntai bawah.
batch doc ke csv 5

3. klik Split untuk keluar a Semak imbas Untuk Folder dialog, pilih atau buat folder untuk meletakkan fail CSV.
batch doc ke csv 6

4. klik OK, kini buku kerja telah dibahagikan sebagai fail CSV berasingan.
batch doc ke csv 7


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.
    Sam · 19 days ago
    Another small remark:

    If the cells in the original Excel files are all formatted as "General", some accuracy is lost when the file is saved as a CSV
    For example, if a cell value in Excel is 0.123456789123456, then the value in the CSV will be 0.123456789 (missing the remaining decimals), as long as the cell was formatted as 'General'. This can be solved by formatting all cells in the Excel file to anything else than 'General' (for example, 'Text'). In that case, the CSV *will* still have the full detail/accuracy. I.e. the values in the Excel files will be fully intact after saving as a CSV.

    How could this macro be changes, so it sets the formatting of all cells in the Excel file to 'Text', before saving as a CSV?
    I imagine that it must somehow make use of the following, but I can't figure out how to correctly include in within the macro:

    Cells.Select
    Selection.NumberFormat = "@"
  • To post as a guest, your comment is unpublished.
    Sam · 26 days ago
    Works great, thanks for the code!
    My only remark would be that this code cuts of file names when there is a "." in the filename itself (e.g. file.123.csv turns into file.csv).
  • To post as a guest, your comment is unpublished.
    Aman · 5 months ago
    Ty it really works dear !!