excel sayfasını makro ile pdf yapma

[karakayalı]

herkese iyi geceler...excel sayfa1 de yer alan bilgilerimi masaüstüne kaydedecek şekilde pdf e çevirmek istiyorum. ancak pdf dosyasının adını o günün tarihi ile kaydetmesini istiyorum... 22 OCAK 2023 şeklinde...yardımlarınız için şimdiden teşekkürler...

 

[Mdemir63]

Selamlar

Kodları modül içine kopyalayıp deneyin

Sub PdfYap()
    Dim savePath As String
    Dim fileName As String
    

    Dim currentDate As String
    currentDate = Format(Now, "dd.mm.yyyy")
    savePath = "C:\Users\M Demir\Desktop" 'Burayı siz kendi bilgisayarınızdaki masa üstüne göre değiştirin
    fileName = currentDate & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard
    
    MsgBox "PDF dosyası başarıyla oluşturuldu: " & fileName, vbInformation
End Sub

 

[karakayalı]

Selamlar

Kodları modül içine kopyalayıp deneyin

Sub PdfYap()
    Dim savePath As String
    Dim fileName As String
   

    Dim currentDate As String
    currentDate = Format(Now, "dd.mm.yyyy")
    savePath = "C:\Users\M Demir\Desktop" 'Burayı siz kendi bilgisayarınızdaki masa üstüne göre değiştirin
    fileName = currentDate & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard
   
    MsgBox "PDF dosyası başarıyla oluşturuldu: " & fileName, vbInformation
End Sub

sayın Mdemir63 emeğinize sağlık teşekkür ederim

 

[Mdemir63]

Rica ederim.
İyi çalışmalar