Çalışma sayfası verilerini çift tırnak işaretli / çift tırnaksız csv dosyası olarak nasıl kaydedebilirim?
Excel'den csv dosyasına bir dizi veriyi dışa aktardığınızda veya kaydettiğinizde, normalde csv verileri çift tırnak işareti içermez, ancak hücre değerleriniz virgül veya satır sonu ile ayrılmışsa, dışa aktarılan csv verileri çift alıntılar. Ve bu yazıda, çalışma sayfası verilerini ihtiyaç duyduğunuzda çift tırnaklı veya çift tırnaksız csv dosyası olarak nasıl kaydedeceğinizden bahsedeceğim.
Çalışma sayfası verilerini çift tırnak işaretleriyle csv dosyası olarak kaydedin
Çalışma sayfası verilerini çift tırnak işareti olmadan csv dosyası olarak kaydedin
Çalışma sayfası verilerini çift tırnak işaretleriyle csv dosyası olarak kaydedin
Normal verileri çift tırnak işaretli csv dosyası olarak kaydetmek için aşağıdaki VBA kodu size yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Çalışma sayfası verilerini çift tırnak işaretleriyle csv dosyası olarak kaydedin:
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. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve csv dosyası olarak kaydetmek istediğiniz veri aralığını çift tırnakla seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OK düğmesini ve bir Farklı Kaydet penceresi açıldığında, lütfen dosya adını ve konumunu belirtin ve ardından İndirim düğmesi, ekran görüntüsüne bakın:
5. Ve bir Kutools for ExcelYeni csv dosyasının belirttiğiniz konuma kaydedildiğini size hatırlatmak için komut istem kutusu açılır, ekran görüntüsüne bakın:
6. tıklayın OK iletişim kutusunu kapatmak için ve şimdi, yeni csv dosyanızı açtığınızda, aşağıdaki ekran görüntüsü gibi tüm veriler çift tırnak içine alınır:
Çalışma sayfası verilerini çift tırnak işareti olmadan csv dosyası olarak kaydedin
Verileriniz virgülle ayrılmışsa, bir hücrede satır sonu, verileri csv dosyası olarak kaydettiğinizde, veriler aşağıda gösterildiği gibi çift tırnak içine alınacaktır:
Verileri çift tırnak işaretleri olmadan csv dosyası olarak kaydetmek için lütfen aşağıdaki VBA kodunu uygulayın.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Çalışma sayfası verilerini çift tırnak işareti olmadan csv dosyası olarak kaydedin:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve csv olarak kaydetmek istediğiniz veri aralığını çift tırnaklar olmadan seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. tıklayın OK düğmesini ve bir Farklı Kaydet penceresi görüntülenir, lütfen yeni csv dosyanız için bir dosya adı ve konumu belirtin, ekran görüntüsüne bakın:
5. Ve sonra tıklayın İndirim düğme, bir Kutools for ExcelYeni csv dosyasının belirttiğiniz konuma kaydedildiğini bildirmek için komut istem kutusu açılır, ekran görüntüsüne bakın:
6. Tıkla OK iletişim kutusunu kapatmak için ve yeni csv dosyanızı açtığınızda, verilerle çevrili çift tırnaklar aşağıda gösterilen ekran görüntüsü gibi kaldırılır:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!