1 sayfadan 1. sayfa

Tüm sayfaları ayrı ayrı pdf olarak kaydetme

İletiTarih: 09 Eyl 2018 00:10
batuk9
Merhaba,
100 den fazla sayfadan oluşan dosyamızda A sütununda sayfa isimleri yer almaktadır. A2 den başlayıp A son dolu satıra kadar sayfa isimlerine göre sayfaları tek tek açıp pdf olarak C sürücüsünde dosyaya kaydettirmek istiyorum. Yardımcı olabilir misiniz.

Cevap: Tüm sayfaları ayrı ayrı pdf olarak kaydetme

İletiTarih: 09 Eyl 2018 21:01
elfinito
Merhaba,

Daha önce benzer örnekler forumda mevcut inceleyebilirsiniz. Aşağıdaki kod çalışma kitabının "Sayfa1" isimli sayfasında "A" sütununda bulunan (A2 den itibaren sayfa varlığını kontrol etmeden) sayfa isimleri için ilgili sayfaları "C:\PDF" klasörü içine ".pdf" uzantısıyla kaydetmektedir. İhtiyacınıza göre düzenleyebilirsiniz. Tabi çalışması için bilgisayarınızda "pdf eklentisi" kurulu olmalıdır. Office 2007 kullanıyorsanız arama motoruna "office 2007 pdf eklentisi" yazarak Microsoft'un sitesinden indirip kurulum yapabilirsiniz. İyi çalışmalar.

Kod: Tümünü seç
Sub pdfkaydet()

    adet = WorksheetFunction.CountA(ThisWorkbook.Sheets("Sayfa1").Range("A:A"))

  For i = 2 To adet

    sayfa = ThisWorkbook.Sheets("Sayfa1").Cells(i, 1)
   
    ThisWorkbook.Sheets(sayfa).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\PDF\" & sayfa & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

  Next i

End Sub