Csv kaydeden makro-isim sorunu

[samet.erdem.e]

Xls dosyasını csv olarak kaydeden kodları yazdım ancak birşeyi yapamıyorum.örneğin aaa.xls dosyasını oluşturduğum makro ile csv kaydederken oluşturulan csv nin adıda aaa.csv olsun ama malum birden çok çalışma kitabını bu şekilde kaydedeceğim için makroda "aktif çalışma kitabının adı ile kaydet" gibi bir komut varmıdır hangi kitap ile çalışırsam çalışayım makroyu çalıştırınca orjinal dosya adı ile kaydetsin

Birde
isim = activeworkbook.fullname 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

 

[hamitcan]

activeworkbook.name

şeklinde deneyin.