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

Yazar: TEAkolik Tarih: 15.05.2010 Kategori: Diğer , Microsoft , Yazılım Şeker: 5

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…

Bu Yazıya İki Şeker Atmaya Ne Dersin?

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.

    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

    Bir Cevap Yazın

    E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir