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 data lembaran kerja sebagai fail csv dengan / tanpa petikan berganda?

Apabila anda mengeksport atau menyimpan pelbagai data dari Excel ke fail csv, secara normal, data csv tidak ada dengan petikan berganda, tetapi, jika nilai sel anda dipisahkan oleh koma atau baris garisan, data csv yang dieksport akan ada dengan double sebut harga. Dan artikel ini, saya akan membincangkan cara menyimpan data lembaran kerja sebagai fail csv dengan atau tanpa tanda kutip berganda yang anda perlukan.

Simpan data lembaran kerja sebagai fail csv dengan petikan berganda

Simpan data lembaran kerja sebagai fail csv tanpa petikan berganda


anak panah gelembung kanan biru Simpan data lembaran kerja sebagai fail csv dengan petikan berganda


Untuk menyimpan data biasa sebagai fail csv dengan petikan berganda, kod VBA berikut boleh membantu anda, sila lakukan seperti berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Simpan data lembaran kerja sebagai fail csv dengan petikan berganda:

Sub CSVFile()
'updateby Extendoffice 20160530
    Dim xRg As Range
    Dim xRow As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xSep As String
    Dim xTxt As String
    Dim xName As Variant
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    xSep = Application.International(xlListSeparator)
    Open xName For Output As #1
    For Each xRow In xRg.Rows
        xStr = ""
        For Each xCell In xRow.Cells
            xStr = xStr & """" & xCell.Value & """" & xSep
        Next
        While Right(xStr, 1) = xSep
            xStr = Left(xStr, Len(xStr) - 1)
        Wend
        Print #1, xStr
    Next
    Close #1
    If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak prompt muncul untuk mengingatkan anda memilih julat data yang anda ingin simpan sebagai fail csv dengan petikan berganda, lihat tangkapan skrin:

simpan csv doc dengan sebut harga 1

4. Kemudian klik OK butang, dan a Save As tingkap muncul, sila nyatakan nama fail dan lokasi, dan kemudian klik Simpan butang, lihat tangkapan skrin:

simpan csv doc dengan sebut harga 2

5. Dan a Kutools untuk ExcelKotak prompt muncul untuk mengingatkan kepada anda bahawa fail csv baru telah disimpan ke lokasi tertentu anda, lihat tangkapan skrin:

simpan csv doc dengan sebut harga 3

6. Klik OK untuk menutup dialog, dan sekarang, apabila anda membuka fail csv anda, semua data dikelilingi oleh petikan berganda seperti tangkapan skrin berikut:

simpan csv doc dengan sebut harga 4


anak panah gelembung kanan biru Simpan data lembaran kerja sebagai fail csv tanpa petikan berganda

Sekiranya data anda dipisahkan dengan koma, pemecahan baris dalam sel, apabila anda menyimpan data sebagai fail csv, data akan dikelilingi oleh petikan berganda seperti berikut yang ditunjukkan:

simpan csv doc dengan sebut harga 5

Untuk menyimpan data sebagai fail csv tanpa petikan berganda, sila gunakan kod VBA berikut.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Simpan data lembaran kerja sebagai fail csv tanpa petikan berganda:

Sub Export()
'updateby Extendoffice 20160530
    Dim xRg As Range
    Dim xRow As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xTxt As String
    Dim xName As Variant
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    Open xName For Output As #1
    For Each xRow In xRg.Rows
        xStr = ""
        For Each xCell In xRow.Cells
            xStr = xStr & xCell.Value & Chr(9)
        Next
        While Right(xStr, 1) = Chr(9)
            xStr = Left(xStr, Len(xStr) - 1)
        Wend
        Print #1, xStr
    Next
    Close #1
    If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak prompt muncul untuk mengingatkan anda memilih julat data yang anda ingin simpan sebagai csv tanpa petikan berganda, lihat tangkapan skrin:

simpan csv doc dengan sebut harga 6

4. Klik OK butang, dan a Save As tetingkap dipaparkan, sila nyatakan nama fail dan lokasi untuk fail csv baru anda, lihat tangkapan skrin:

simpan csv doc dengan sebut harga 7

5. Kemudian klik Simpan butang, a Kutools untuk ExcelKotak prompt muncul untuk memberitahu anda fail csv yang baru telah disimpan ke lokasi tertentu anda, lihat tangkapan skrin:

simpan csv doc dengan sebut harga 8

6. Klik OK untuk menutup dialog, dan, apabila anda membuka fail csv baru anda, petikan berganda yang dikelilingi dengan data akan dialih keluar sebagai tangkapan skrin berikut:

simpan csv doc dengan sebut harga 9


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.
    Bárbara · 2 months ago
    Sério eu te amo rsrsrsr
    Me ajudou demais, muito obrigada!
  • To post as a guest, your comment is unpublished.
    Rodrigo · 2 months ago
    Olá!
    Muito obrigado! O conteúdo me ajudou muito. Precisava gerar um arquivo txt eliminando as aspas duplas no início e no final de cada linha e não estava conseguindo resolver. Agora consegui.