çalışma sayfası kaydı

[igultekin2000]

iyi akşamlar;
işlemi biten çalışma sayfasını, sadece sayfa olarak içindeki , makro ve formüller, ve butonlar olmadan masaüstüne kaydetmek istiyorum. örnek buldum ama makrosuz kaydetsede kitap olarak kaydediyor. bu kodda revizyon yapılabilirmi. mesela " A1 -L son dolu satır " şeklinde. örnek kod

Sub Makrosuz_Kaydet()
Application.DisplayAlerts = False
    With ThisWorkbook
        .Sheets.Copy
        ActiveWorkbook.SaveAs _
            Filename:=Replace(.FullName, ".xlsm", ".xlsx"), _
            FileFormat:=xlOpenXMLWorkbook
    End With
    ActiveWorkbook.Close False 'xlsx doyayı kapatmak için

End Sub

 

[halit3]

kod:

Sub Farklı_Kaydet()

Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")

dosya_adi = "deneme"
say = CreateObject("Scripting.FileSystemObject").getfolder(Klasor).Files.Count + 1

Sheets(ActiveSheet.Name).Copy
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Klasor & "\" & dosya_adi & say & ".xlsx", FileFormat:=51
ActiveWindow.Close
MsgBox "işlem tamam"

End Sub

 

[igultekin2000]

sorunsuz çalışıyor

kod:

Sub Farklı_Kaydet()

Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")

dosya_adi = "deneme"
say = CreateObject("Scripting.FileSystemObject").getfolder(Klasor).Files.Count + 1

Sheets(ActiveSheet.Name).Copy
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Klasor & "\" & dosya_adi & say & ".xlsx", FileFormat:=51
ActiveWindow.Close
MsgBox "işlem tamam"

End Sub

teşekkürler, tam istediğim gibi olmuş. Hayırlı akşamlar.