Bagaimana cara menyimpan data lembar kerja sebagai file csv dengan / tanpa tanda kutip ganda?
Saat Anda mengekspor atau menyimpan berbagai data dari Excel ke file csv, biasanya, data csv tidak ada dengan tanda kutip ganda, tetapi, jika nilai sel Anda dipisahkan oleh koma atau baris baru, data csv yang diekspor akan ada dengan ganda tanda kutip. Dan artikel ini, saya akan berbicara tentang cara menyimpan data lembar kerja sebagai file csv dengan atau tanpa tanda kutip ganda sesuai kebutuhan.
Simpan data lembar kerja sebagai file csv dengan tanda kutip ganda
Simpan data lembar kerja sebagai file csv tanpa tanda kutip ganda
Simpan data lembar kerja sebagai file csv dengan tanda kutip ganda
Untuk menyimpan data normal sebagai file csv dengan tanda kutip ganda, kode VBA berikut dapat membantu Anda, lakukan hal berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Simpan data lembar kerja sebagai file csv dengan tanda kutip ganda:
Sub CSVFile()
'updateby Extendoffice
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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda simpan sebagai file csv dengan tanda kutip ganda, lihat tangkapan layar:
4. Lalu klik OK tombol, dan a Save As jendela muncul, tentukan nama file dan lokasi, lalu klik Save tombol, lihat tangkapan layar:
5. Dan a Kutools untuk ExcelKotak prompt muncul untuk mengingatkan Anda bahwa file csv baru telah disimpan ke lokasi yang Anda tentukan, lihat tangkapan layar:
6. Klik OK untuk menutup dialog, dan sekarang, saat Anda membuka file csv baru, semua data dikelilingi oleh tanda kutip ganda seperti gambar berikut yang ditampilkan:
Simpan data lembar kerja sebagai file csv tanpa tanda kutip ganda
Jika data Anda dipisahkan oleh koma, baris baru dalam sel, saat Anda menyimpan data sebagai file csv, data akan diapit oleh tanda kutip ganda seperti yang ditunjukkan berikut ini:
Untuk menyimpan data sebagai file csv tanpa tanda kutip ganda, harap terapkan kode VBA berikut.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Simpan data lembar kerja sebagai file csv tanpa tanda kutip ganda:
Sub Export()
'updateby Extendoffice
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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda simpan sebagai csv tanpa tanda kutip ganda, lihat tangkapan layar:
4. Klik OK tombol, dan a Save As jendela ditampilkan, tentukan nama file dan lokasi untuk file csv baru Anda, lihat tangkapan layar:
5. Dan kemudian klik Save tombol, a Kutools untuk ExcelKotak prompt muncul untuk memberi tahu Anda bahwa file csv baru telah disimpan ke lokasi yang Anda tentukan, lihat tangkapan layar:
6. Klik OK untuk menutup dialog, dan, saat Anda membuka file csv baru, tanda kutip ganda yang dikelilingi data akan dihapus seperti gambar berikut yang ditampilkan:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!