Merhaba, Aynı dizinde 100 tane isimleri farklı pdf dosyamız var diyelim (Tek sayfa) Aynı dizinde x.pdf, y.pdf isimlerinde tek sayfalık 2 farklı pdf dosyamız varsayalım. VBA ile; 100 tane isimleri farklı pdf dosyalarımızın her birinin içine x.pdf'i 2. sayfa; y.pdf'i 3. sayfa olarak ekletebilir miyiz? Sorduğum işlemi aşağıdaki youtube linkinde anlatmışlar ancak tek bir dosya için anlatımı var Combine pdfs together automatically using VB kodlamada aşağıdaki gibi Option Explicit Sub combine_pdf_files() Dim aapp As Acrobat.AcroApp Dim todoc As Acrobat.AcroPDDoc Dim fromdoc As Acrobat.AcroPDDoc Set aapp = CreateObject("AcroExch.App") Set todoc = CreateObject("AcroExch.PDDoc") Set fromdoc = CreateObject("AcroExch.PDDOc") aapp.Show todoc.Open ("C:\Users\allso\Desktop\blank_pdf.pdf") fromdoc.Open ("C:\Users\allso\Desktop\201753431466049.pdf") If todoc.InsertPages(-1, fromdoc, 0, fromdoc.GetNumPages(), True) = False Then 'Here by using -1 we are trying to copy the frompdf to the first 'page of topdf,if the number is 0 it will be the next page from the first,if it is 1 it will be the second page from beginning Debug.Print "Failed to insert the page" End If If todoc.Save(PDSaveFull, "C:\Users\allso\Desktop\excel_to_pdf\merged_firstpage.pdf") = False Then Debug.Print "Failed to save the file" Else Debug.Print "Saved" End If todoc.Close fromdoc.Close aapp.Exit Set aapp = Nothing Set todoc = Nothing Set fromdoc = Nothing 'closing the blank window of Acrobat Dim sKillExcel As String sKillExcel = "TASKKILL /F /IM Acrobat.exe" Shell sKillExcel, vbHide End Sub

JavaScript devre dışı. Daha iyi bir deneyim için, önce lütfen tarayıcınızda JavaScript'i etkinleştirin.

Soru Pdf Dosyadan Diğer Pdf Dosyaya Ekleme

Konuyu başlatan merakli
Başlangıç tarihi 10 Nis 2022

merakli

Site Üyesi

10 Nis 2022

Excel Versiyonu: Excel 2016

Excel Sürümü: 64 Bit

Excel Dili: Türkçe

Merhaba,
Aynı dizinde 100 tane isimleri farklı pdf dosyamız var diyelim (Tek sayfa)

Aynı dizinde x.pdf, y.pdf isimlerinde tek sayfalık 2 farklı pdf dosyamız varsayalım.

VBA ile;
100 tane isimleri farklı pdf dosyalarımızın her birinin içine x.pdf'i 2. sayfa; y.pdf'i 3. sayfa olarak ekletebilir miyiz?

Sorduğum işlemi aşağıdaki youtube linkinde anlatmışlar ancak tek bir dosya için anlatımı var

Combine pdfs together automatically using VB

kodlamada aşağıdaki gibi

VBA:

Görüntülemek için giriş yapmanız gerekmektedir.
(46 satır)

Moderatörün son düzenlenenleri: 10 Nis 2022

Yanıt için giriş yapmanız veya üye olmanız gerekir.

Paylaş:

Facebook X (Twitter) LinkedIn Reddit Pinterest Tumblr WhatsApp E-posta Link

Gizliliğinize önem veriyoruz,

Bu yüzden sadece web sitemizin çalışması yönelik temel çerezleri ve deneyiminizi geliştirmek için isteğe bağlı çerezleri kullanıyoruz.

Çerezler hakkında daha fazla bilgi görüntülemek ve tercihlerinizi yapılandırmak için tıklayın

Tüm çerezleri kabul et İsteğe bağlı çerezleri reddet
Başlıca Gerekli Çerezler

Çerezler, güvenlik, ağ yönetimi ve erişilebilirlik gibi temel işlevleri etkinleştirmek için gereklidir. Bunları reddetmeden kabul etmenizi öneririz.

İsteğe bağlı çerezler

Bu tanımlama bilgilerini ayarlayarak tarama deneyiminiz için gelişmiş işlevsellik sunuyoruz. Bunları reddederseniz gelişmiş işlevsellik kullanılamayacaktır.

Üçüncü taraf çerez bilgileri

Çerezler, güvenlik, analitik, performans veya reklam amaçlarıyla çeşitli hizmet sağlayıcılarla bağlantılı olarak işlevselliği güçlendirmek için üçüncü taraflarca ayarlanan tanımlama bilgileri için gerekebilir.

Ayrıntılı çerez kullanımı

Gizlilik Politikası

Üst

Soru Pdf Dosyadan Diğer Pdf Dosyaya Ekleme

merakli

Site Üyesi

Gizliliğinize önem veriyoruz,