Klasördeki PDF Dosyalarından Veri Çekme

Hocam üstteki kodlar bana ait değil ama bir deneme şansınız var mı? Belki işe yarar.

Qene' Alıntı:

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

Hocam üstteki kodlar bana ait değil ama bir deneme şansınız var mı? Belki işe yarar.

Genişletmek için tıklayın ...

Hemen kontrol edip döneyim.

Aşağıdaki şekilde uyarı aldım.
Ayrıca alakası var mı bilmiyorum Dim fso satırı da seçili, işaretlenmiş durumda.

Filesystemobject için referans eklemek gerekiyordu galiba

Bu kod ile pdf içindeki yazılara rahatlıkla ulaşabilirsiniz. Ancak pdf dosyasında yazdırılabilir alanlar içindeki bilgilere ulaşamazsınız. Bunun için adobe nin AcroExch yazılımına ihtiyaç var. bunu tek başına çalıştırmak zor. Bu nedenle Acrobat kuruluması gerekiyor( Reader dan bahsetmiyorum) Ancak o zaman mümkün oluyor

cesur' Alıntı:

Bu kod ile pdf içindeki yazılara rahatlıkla ulaşabilirsiniz. Ancak pdf dosyasında yazdırılabilir alanlar içindeki bilgilere ulaşamazsınız. Bunun için adobe nin AcroExch yazılımına ihtiyaç var. bunu tek başına çalıştırmak zor. Bu nedenle Acrobat kuruluması gerekiyor( Reader dan bahsetmiyorum) Ancak o zaman mümkün oluyor

Genişletmek için tıklayın ...

Acrobat Pro var bilgisayarımda.

o halde ben de kurup denemelere başlayayım

bu kdu modulde çalıştırırmısınız. Tüm dosyalarda çalışıyor mu?

dosya yolunu değiştirmeyi unutmayın gülen adam kodu fso.OpenTextFile şeklindedir.

yine bozdu arada nokta var

gönderdiğiniz iki pdf dosyasında sorun yok. Gayet güzel çalışıyor.(xx.pdf ve pdf.pdf)

cesur' Alıntı:

yine bozdu arada nokta var

Genişletmek için tıklayın ...

Ben kopyala yapıştır yapınca nokta değil de alt tireli çıkıyor. Yani boşluklar olmadan o _ O çıkıyor.
Bu şekilde de nokta ile de denedim. Aşağıdaki hatayı verdi.


Bir de doğru anladıysam kod tek dosya için hazırlanmış.
Sanırım ihtiyacımı tam anlatamadım.
Bir klasörde bir çok PDF var, (exceli kopyalacağım klasör varsayılan klasör olarak belirtilebilir). Excel dosyasını kopyalayacağım bu klasördeki bütün PDF'lerden örnek excel dosyasında belirtilen bütün veriler çekilip alt alta listelenecek.
Ekteki exceli güncelleyip 2. satırı da ekledim.
Şimdiden emekleriniz için teşekkürler.

yanlış gelmiş txt olarak göndereyim

@PriveT
buradan kopyalayıp yapıştırın

cesur' Alıntı:

@PriveT
buradan kopyalayıp yapıştırın

Genişletmek için tıklayın ...

Yarın bilgisayar başına geçer geçmez bakayım. Teşekkürler

cesur' Alıntı:

@PriveT
Deneyiniz .Klasör yolunu module1 içinden değiştirmeyi unutmayın. Pdf dosyalarının bulunduğu klasorun adresini yazacaksınız

Genişletmek için tıklayın ...

Merhaba,
Denedim, aşağıdaki satırda hata verdi.
Excel versiyonundan falan kaynaklanabilir mi?

excel dosyasını pdf dosyalarının olduğu yerden farklı bir yere koyun. Sonra koda girin ve değiştirilecek yolu değiştirin. yolu pdf dosyaları klasörü üzerine sağ tıklayın özellikleri seçin ve adresi oradan kopyalayıp yapıştırın. Hepsi bu çalışması gerekiyor.Sonucu bekliyorum

KlasorAdi = "C:\Users\Adnan\Downloads\mesai\" bu şekle benzer olmalı

yolun alınmasında D: dan sonra boşluk olmamalı