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...
...Sheets("Sonuç").Select
Sheets("Sonuç").Copy
ActiveWorkbook.SaveAs Filename:=adres & "\" & isim & ".csv",FileFormat:=xlCSV, CreateBackup:=False
Her çalıştırdıımda sayfayı csv uzantılı kaydediyor.Yalnız şöyle bir problem var.Bu dosyayı java tabanlı bir programda okutuyorum.Dosyanın...
...yazıp dosya ismi yazacağım yerede Filename:=isim
doğru bir kodmudur
uzun uğraş sonucu istediğim sonuca ulaştım sıkıntı bir kod eksikliğindenmiş buyrun
Dim dosya As String
dosya = ActiveWorkbook.Name
ActiveWorkbook.SaveAs "E:\ADRESLER\" & dosya & ".csv", FileFormat:=xlCSV, CreateBackup:=False
...yapıyor.
Bunun Nedeni Ne acaba????
Sheets("10 GÜNLÜK").Select
ChDir "C:\Documents and Settings\,,,,,,\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\,,,,,\Desktop\10 GÜNLÜK.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Sheets("ana").Select
...yapıyorum, en sonunda csv formatında kaydetmem gerekiyor
ActiveWorkbook.SaveAs Filename:="C:\users\x\desktop\WS102B.TXT", FileFormat :=xlCSV, CreateBackup:=False
makronun kodunu en son bu şekilde yazıyorum ancak kaydettikten sonra csv değilde txt olarak kaydediyor.
benmi hata yapıyorum...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.