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…
BU YAZIYA YAPILAN YORUMLAR