Soru Bir tık ile Dosya adına sayfa adını ekleyerek tüm sayfaları/istediğim sayfaları aynı klasöre PDF çıkartma

[gurayavci]

Merhaba,

Forumda arama yaptığımda direkt bu başlığa uygun bir formülasyon bulamadım, desteğinizi rica ediyorum.
Excel içerisinde 5 adet sayfa var fakat 3 tanesini excel dosya adının sonuna sayfa adını ekleyerek isimlendirip aynı klasöre pdf çıktısı almasını istiyorum

 

[tahsinanarat]

Deneyiniz,

Option Explicit

Sub PDF_KAYDET()
    Dim Sayfa As Worksheet

    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    MsgBox "Belirtilen sayfalar PDF olarak kayıt edilmiştir."
End Sub

 

[gurayavci]

Tahsin Bey elinize sağlık

Çalıştı fakat PDF adına excel dosyasının adını eklemiyor, sadece sayfa adını ekliyor, excel dosyasının adını da pdfe nasıl ekleyebiliriz ?

 

[gurayavci]

Yardımcı olabilecek kimse yok mu ?

 

[bmutlu966]

Bu şekilde deneyin.

Sub PDF_KAYDET()
    Dim Sayfa As Worksheet

    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name &"_"& Sayfa.Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    MsgBox "Belirtilen sayfalar PDF olarak kayıt edilmiştir."
End Sub

 

[gurayavci]

Bu şekilde deneyin.

Sub PDF_KAYDET()
    Dim Sayfa As Worksheet

    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name &"_"& Sayfa.Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    MsgBox "Belirtilen sayfalar PDF olarak kayıt edilmiştir."
End Sub

Teşekkür ederim, Dosya adını çekiyor şimdi, Sadece dosya adının yanında uzantısı da geliyor "Dosyaadi.xlsm-Sayfa-adı.PDF" xlsm dosya türünü yazmasını nasıl engelleyebiliriz ?

 

[bmutlu966]

Deneyin.

Sub PDF_KAYDET()
    Dim Sayfa As Worksheet

    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_" & Sayfa.Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    MsgBox "Belirtilen sayfalar PDF olarak kayıt edilmiştir."
End Sub

 

[gurayavci]

Deneyin.

Sub PDF_KAYDET()
    Dim Sayfa As Worksheet

    For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI"))
        Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_" & Sayfa.Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    MsgBox "Belirtilen sayfalar PDF olarak kayıt edilmiştir."
End Sub

İlginize çok teşekkür ediyorum, çok güzel oldu