Farklı Kaydet

[acetinnster]

Arkadaşlar
Excel dosyasını bulunduğu klasöre (farklı bir dizin değil aynı klasör içine ) aynı isimle .csv uzantı olarak kaydetme kodları nasıl dır
Konu ile ilgili yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[turist]

Aşağıdaki kodu deneyiniz.

Sub CSVKaydet()
Dim dosyaismi As String
dosyaismi = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".csv"
Application.DisplayAlerts = False
      ActiveWorkbook.Save
      ActiveWorkbook.SaveAs Filename:=dosyaismi, FileFormat:=xlCSV
Application.DisplayAlerts = True
ActiveWorkbook.Close False
Application.Quit
End Sub

 

[acetinnster]

Sayın turist hocam

Çok teşekkürler tam istediğim gibi oldu

 

[turist]

Sağolun.