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

[mersilen]

Merhabalar,
Bir çok kişinin aradığı ve halen çözümü olmayan (cep tlf yazılımı üreten firmalarınında yapmadığı) cep telefonu renberini excele çıkartıp düzenleyip tekrar yükleme konusunda bir yol üzerinde yardımınıza ihtiyacım var.
Cep teefonundan rehberi virgülle ayrılmış cvv formatında bilgisayara kaydedip excelle açınca 1. sütunda şöyle gözükmektedir.

Grupla,"Soyadı","Adı","Görünen ad","Takma ad","Görünen ad(Soyadı)","Görünen ad(Adı)","Görev başlığı","Şirket adı","Telefon numarası1(Tür)","Telefon numarası1(Telefon numarası)","Telefon numarası1(Hızlı arama)","Telefon numarası2(Tür)","Telefon numarası2(Telefon numarası)","Telefon numarası2(Hızlı arama)"

Burda alt satıra bir satır ekleyip içine kişi ve tlf no yazınca sistem kabul etmektedir.(samsung kies programı ile bilgisayardan dosya al)

1--Bunu excelde sutunlara dağıtıp ekleme ve düzenleme yapıp makro ile tekrar eski haline getirince sistem yanlış dosya demektedir.
'-Aşağıdaki şekilde bir makro yazmak gerkiyor
3-Alternatif çözümleriniz var mı?

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ı

Grupla,"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"

Şekline getirmek.

Bunun için araştırma yaparken aşağıdaki yazıyı buldum,yalnız bu tırnak işaretsiz yapıyor.

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

Kaynak: http://www.teakolik.com/xls-dosyasini-virgullu-csv-dosyasina-cevirmek-makro-kullanarak/

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.

 

[ÖmerBey]

Alıntı:
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ı
Alıntı:
Grupla,"Fırst Name","Last Name","Company","Position","Phone","Email",Tag,"No te","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"
Şekline getirmek.

Eki inceler misiniz?
Sayfa 1'e girdiğiniz veriyi Sayfa 2'ye yukarıdaki şekilde aktarır.

 

[mersilen]

Mucit77 cevap için teşekürler.

Dosyayı csv şeklinde kayıt edip samsung kies programında aç deyince
yine "Wrong CSV file format" uyarısı verdi

 

[ÖmerBey]

Farklı kaydetten diğer csv formatlarını da denediniz mi?
Ya da sadece formata göre veri almıyordur muhtemelen baktığı başka şeyler de olabilir.
Kabul ettiği dosyalardan birkaç satırlık bir örnek dosya paylaşabilir misiniz?

 

[mersilen]

selam
1 numaralı dosyayı kiesten bilgisayara kaydediyorum.Bunu tekrar bilgisayardan rehbere al dediğimde alıyor.
2 numaralı dosyada sadece deneme1 i deneme2 yapıp kaydediyorum.Normal veya farklı kaydette virgülle ayrılmış csv olarakda yapsam yanlış format diyor

 

[ÖmerBey]

Peki deneme2'yi tekrar deneme1 olarak kaydettiğinizde, yani dosyayı ilk haline getirip yeniden kaydettiğinizde kabul ediyor mu? (muhtemelen etmeyecektir.) Neyse anladığım kadarıyla excel açısından iki dosyanın hiçbir farklılığı yok. Ancak her ne kadar excel bu dosyaları açsa da belki format farklılığı olabilir, tekrar kaydettikten sonra yapı bozuluyor olabilir. Ya da ne bileyim dosyanın özelliklerinden girdiğimiz zaman gördüğümüz sahip bilgilerini falan kontrol ediyordur belki...
Her ne olursa olsun bunun samsung kies programının halt yemesi olduğunu söyleyebiliriz.
Ben daha fazla yardımcı olamayacağım...
Size iyi geceler, iyi çalışmalar...