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

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…