XLS Dosyasını Virgüllü CSV Dosyasına Çevirmek. (Makro Kullanarak)

Tarih: 15 Mayıs 2010 | Kategori: Diğer | Yazar: | 5 Yorum

Samet arkadaşım XLS dosyasını CSV’ye farklı kayıt et ile çevirdiğini fakat aralara virgül koyarak dataların dizilmediğini söyledi.  CSV dosyasında data aralarına virgül konulmuş olarak kullanması gerekiyormuş.

Normalde Excell dosyasını açıp farklı kayıt et yaptığınızda stunlar aynı şekilde CSV içerisinde yer almakta. Samet’in istediği format ise şu

Fırst Name Last Name Company
test test test
test test test
test test test
test test test
test test test
test test test
test test test

Şeklindeki XLS dosyasını

Fırst Name,Last Name,Company,Position,Phone,Email,Tag,Note,Owner,
test,test,test,test,test,test,test,test,test,test,test,
test,test,test,test,test,test,test,test,test,test,test,
test,test,test,test,test,test,test,test,test,test,test,
test,test,test,test,test,test,test,test,test,test,test,
test,test,test,test,test,test,test,test,test,test,test,

Şekline getirmek.

Bunun için makro yazmanın en kolay çözüm olacağını düşündüm.   Aşağıdaki şekilde bir makro yazıp excell içerisine kayıt ederseniz.  Makroyu çalıştırdığınız zaman otomatik olarak CVS dosyasını datalar arasında virgül koyarak kayıt edebilirsiniz.

Yazacağımız makro ;

Sub cevir()
Sheets("Sayfa1").Copy
' Üst satırdaki Sayfa1 sizin Excell içerisinde Sheet1 olarak geçebilir.
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "" & "Cevirilmis_Dosya.csv", FileFormat:=xlCSV
' Üst satırda çalışma kitabını CVS formatına dönüştürüyoruz.
' .Path & "" & aynı dizine kayıt etmek için. Path belirleyebilirsiniz.
' Cevirilmis_Dosya adı ile aynı klasöre kayıt ediyor. Değiştirebilirsiniz.
ActiveWorkbook.Close True
End Sub

Bu makroyu yazdıktan sonra çalıştırdığınız zaman otomatik olarak dosya ile aynı dizine cevirilmis_dosya.cvs isminde dosya kayıt edecektir. Dosyanın içeriğine baktığınızda virgüllü olarak dataları ayırdığını görebilirsiniz. Hadi kolay gelsin…


Etiketler: , , , , , , , , , , , ,
Yönetici Notu

Lütfen yapacağınız yorumlarda kişi ve kurumlara hakaret etmeden, kişilik haklarına zarar vermeden görüşlerinizi bildiriniz. Oluşabilecek zararlarda ve gözden kaçabilecek durumlarda tüm sorumluluk yorumu yapan kişiye aittir. Gizlilik sayfamızda bu bilgiler açıkça belirtilmiştir.

5 Yorum Yapıldı:

  1. Kemal ONUR

    Teşekkürler…

  2. Samet

    Teşekkür ederim güzel bir çalışma olmuştu :)

  3. web tasarım

    Macro Nasıl atanıyor bunuda yazsaydınız çok güzel olacaktı.

  4. snoopy

    nereye eklenecek bu kod ya nasıl eklenecekkk

  5. cemoka

    aynı verileri tırnak içinde CSV olarak kaydetme imkanı var mı ? Yani “test”, “test”, … şeklinde… Export edeceğim uygulama öyle istiyor

Yorum Gönder