Sayfa ismiyle kaydet

[muratgunay48]

Arkadaşalar, sayın hocalarım aşağıdaki kodda dosya ismiyle değil de aktif sayfa adıyla kaydet nasıl yazılır.
Teşekkür ederim.

Private Sub CommandButton2_Click()
    ChDir "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\Sayfayı PDF olarak mail gönder.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

 

[Ömer]

Merhaba,

"C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\Sayfayı PDF olarak mail gönder.pdf" _

yerine aşağıdaki gibi yazarak deneyiniz.

"C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\" & ActiveSheet.Name & ".pdf" _

 

[muratgunay48]

Merhaba,

"C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\Sayfayı PDF olarak mail gönder.pdf" _

yerine aşağıdaki gibi yazarak deneyiniz.

"C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\" & ActiveSheet.Name & ".pdf" _

Hocam çok teşekkür ederim.