PDF Dosyalarını Birleştirme

23 Temmuz 2021 1656

PDF Dosyalarını Birleştirme isimli kod, farklı farklı isimlerde kaydedilmiş pdf dosyalarını Excel üzerinden birleştirme işlevini görmektedir.

Sub Main()
  Dim MyFiles As String, DestFile As String
  With ActiveSheet
    MyFiles = .Range("A1").Value & "," & .Range("B1").Value
    DestFile = .Range("C1").Value
  End With
  Call MergePDFs01(MyFiles, DestFile)
End Sub

Sub MergePDFs01(MyFiles As String, DestFile As String)
  Dim a As Variant, i As Long, n As Long, ni As Long
  Dim AcroApp As New Acrobat.AcroApp, PartDocs() As Acrobat.AcroPDDoc

  a = Split(MyFiles, ",")
  ReDim PartDocs(0 To UBound(a))

  On Error GoTo exit_
  If Len(Dir(DestFile)) Then Kill DestFile
  For i = 0 To UBound(a)
    If Dir(Trim(a(i))) = "" Then
      MsgBox "File not found" & vbLf & a(i), vbExclamation, "Canceled"
      Exit For
    End If
    Set PartDocs(i) = New Acrobat.AcroPDDoc
    PartDocs(i).Open Trim(a(i))
    If i Then
      ni = PartDocs(i).GetNumPages()
      If Not PartDocs(0).InsertPages(n - 1, PartDocs(i), 0, ni, True) Then
        MsgBox "Cannot insert pages of" & vbLf & a(i), vbExclamation, "Canceled"
      End If
      n = n + ni
      PartDocs(i).Close
      Set PartDocs(i) = Nothing
    Else
      n = PartDocs(0).GetNumPages()
    End If
  Next

  If i > UBound(a) Then
    If Not PartDocs(0).Save(PDSaveFull, DestFile) Then
      MsgBox "Cannot save the resulting document" & vbLf & DestFile, vbExclamation, "Canceled"
    End If
  End If

exit_:

  If Err Then
    MsgBox Err.Description, vbCritical, "Error #" & Err.Number
  ElseIf i > UBound(a) Then
    MsgBox "The resulting file is created:" & vbLf & DestFile, vbInformation, "Done"
  End If

  If Not PartDocs(0) Is Nothing Then PartDocs(0).Close
  Set PartDocs(0) = Nothing
  AcroApp.Exit
  Set AcroApp = Nothing

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

image-20210723022842-1.png

Üst resimdeki gibi alanları kendinize göre doldurup, örnek kodları çalıştırabilirsiniz.

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
UserForm Açılırken Efekt Ekleme
Dar Kenar Boşluğu Yazdırma
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
X Sayı Atlayarak Satır Gizleme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Seçimdeki Alternatif Satırları Vurgulama
Yazı Efekti Verme Kodu
Makro Çalışırken İmlecin Hareket Etmemesi
Roma Rakamlarını Normal Sayılara Dönüştürme
Bilgisayar Bilgilerini Özetleme
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Excel Kapanırken Otomatik İşlem Yaptırma
Google Üzerinde Arama Yapma
TextBox Nesnesine Harf Girilmesini Engelleme
Tek Sütunu Kes Kopyala ve Yapıştır
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Birden Çok Satır Ekleme
R1C1 Referans Stilini Etkinleştirme
Hücre Aralığını Kes Kopyala ve Yapıştır
Salt Okunur Excel Dosyasını Kontrol Etme
Derece Simgesi Ekleme
Belirli Metni Vurgulama
Bir Dizeden Sayısal Veriler Elde Etme
Bir Sayfadaki Veriyi Diğer Sayfalara Kopyalama
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Tarih ve Saatten Tarihi Kaldırma
Başka Dosyada Şifreli Userform Oluşturmak
Metnin İçinden TC Kimlik Numarasını Ayırma
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Gizlenmiş Makro Örnekleri
Aç Penceresini Açan Makro
Makro ile Açılan Liste Oluşturma
Açılışta Üç Kere Şifre Hakkı Vermek
Aktif Satırı ve Sütunu Vurgulama
Transparan UserForm Oluşturmak
Makrolar ile Klasör Silme
Hücrenin Arka Plan Rengini Değiştirme
Aktif Hücrenin Sütun Numarasını Bulma
Klavyeye Makro Atama ve Çalıştırma
Yardım Menüsünü Açma
Aktif Hücreye Açıklama Ekleme
PDF Dosyalarını Birleştirme
Toplu Sütun Silme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
Bağlantılı Resim Ekleme
Toplu Satır Silme
Seçili Aralığı PDF Olarak Kaydetme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...