Çözüldü Klasör içindeki PDF dosyalarını seçerek birleştirme

[DataMaestro]

Sayın Formdaş arkadaşlar,

Ekteki çalışma ile bir klasörde bulunan, Excel dosyalarını seçerek PDF fotmatına çevirerek kayıt edebiliyorum.
Yapmak istediğim ve bir türlü yapamadığım, aşağıdaki konu hakkında yardımlarınıza ihtiyacım var.
Bir klasör içerisinde arşiv amaçlı tutulan yüzlerce PDF dosyası bulunmaktadır.
Klasör içerisinden çoklu PDF dosyası seçerek ve bunları birleştirerek, tek bir PDF dosyası olarak kayıt etmek istiyorum.
Birleştirilen PDF dosyası ismini "D5" ve "D6" hücresinden "25.04.2021 - Günlük Raporlar" şeklinde almalıdır.
Bu senaryoyu gerçekleştirmek için mevcut çalışmadaki kodu nasıl revize etmeliyim.
Benim içim çok değerli olan yardımlarınızı rica ediyorum.

Saygılarımla,

 

[Patron]

Sayın @Omerullah hoşgeldiniz.
Bilgisayarınızda Adobe acrobat kurulu olmalı.
VBA penceresinden Tools>References sekmesinden acrobatla ilgili bileşenleri aktif edin.
Dosyanızda B sütununa bilgileri girip birleştir butonuna basınız.
Dosyanız ektedir.

 

[DataMaestro]

Sayın @Omerullah hoşgeldiniz.
Bilgisayarınızda Adobe acrobat kurulu olmalı.
VBA penceresinden Tools>References sekmesinden acrobatla ilgili bileşenleri aktif edin.
Dosyanızda B sütununa bilgileri girip birleştir butonuna basınız.
Dosyanız ektedir.
Ekli dosyayı görüntüle 1048
Ekli dosyayı görüntüle 1049

Günaydın Sayın Balta,

Sanırım bu çalışma Excel uzantılı dosyalar için tasarlanmış.
PDF'lerin bulunduğu klasörd PDF'leri göremiyorum.
Filt = "Excel Files (*.xls*),*.xls*" satırını Filt = "Excel Files (*.pdf*),*.pdf*" şeklinde değiştirince ise oluşturulan PDF dosyasının içeriği bozuluyor.

Saygılarımla,

 

[Patron]

Bahsettiğiniz kodlar dosyanızda mevcut olan ve excelden pdf yapan kodlar sanırım.
Benim verdiğim kod (pdf birleştir butonu) işinizi görmedi mi?

 

[DataMaestro]

Aşağıdaki hatayı almaktayım.

 

[Patron]

Bende düzgün çalışıyor.
ss=. daki noktayı silip
SS satırını with bloğunun üstüne taşıyıp dener misiniz.

 

[DataMaestro]

Maalesef aynı hata almaktayım.

 

[Patron]

Hatalı hali ile dosyayı paylaşırmısınız

 

[DataMaestro]

Çok özür dilerim eğitimdeydim.

 

[Patron]

Bende sorunsuz çalışıyor ama
bir de böyle deneyin.

 

[DataMaestro]

Şimdi de bu hatayı aldım.

 

[Patron]

#2 nolu mesajda belirtmiştim.
Bilgisayarınızda Adobe acrobat kurulu olmalı.
VBA penceresinden Tools>References sekmesinden acrobatla ilgili bileşenleri aktif edin.

 

[DataMaestro]

Adobe kurulu söylediğiniz References penceresinden bileşenler aktif durumda.
En son aşağıdaki hatayı alıyorum.
AcroApp.Exit satırını işaret etmektedir.

 

[Patron]

Bende gayet düzgün çalışıyor.
Acrobat programınızla ilgili bir sorun olabilir.

 

[DataMaestro]

Evet oldukça mantıklı