...ActiveSheet.Copy
Set gecicikitap = ActiveWorkbook
With gecicikitap
.SaveAs Filename:=dosyam, FileFormat:=xlCSV, CreateBackup:=False
.Close
End With
hata:
Application.DisplayAlerts = True
End Sub
Not:
Yukarıdaki kodda;
Çalıştığınız ilk sayfa "Sayfa1"
Aktarma...
...belirlenen dosyayı oluşturma imkanı tasın isteriz.
Aşağıdaki kod da "Arif" Yazılı yer her bilgisayarın adına esnek olabilir mi?
"
ChDir "C:\Users\Arif\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Arif\Desktop\xxCsv.csv", _
FileFormat:=xlCSV, CreateBackup:=False
"
...hazırladığım en sonunda da bu kod var
" b = "SMS 55 BM " & Format(Range("A30"), "yyyymmdd")
ActiveWorkbook.SaveAs Filename:=b, FileFormat:=xlCSV, CreateBackup:=False "
Birde makroya bu satırı ilave etmek istiyorum " D:\Depo\Say\RAPORLAR\BM " klasörü içine kaydetsin
makro buraya...
Bu kitabı "J2" hücresindeki isimle D:\ECZANELER içine "csv" dosyası olarak kaydet.
Workbook.SaveAs Filename:="D:\ECZANELER\& Worksheets("SONUÇ").Range("J2")&".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Yardımlarınıza ihtiyacım var.
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
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.