PDF dosyayı macro ile excel atmak

[celofb]

Merhaba Arkadaşlar;

PDF dosyayı macro ile excel atmak ve PDF dosyasındaki belli bir hücredeki bilgiyi ( her PDF dosyasında aynı yerde ) excel 'e nasıl alırım.
yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[celofb]

Konu Hk yardımcı olacak arkadaş yokmu ?

 

[Tevfik_Kursun]

Merhaba,
12.02.2019 da bu konu yine vardı ve ortaya çıkan dosyalar da ekli. Aynı şekilde hazırlanmış dosyalarda değerler bir aşağı, bir yukarı gidebiliyor. O nedenle ben pek kullanamadım. Belki siz kullanabilirsiniz.
İyi çalışmalar

 

[celofb]

Teşekkürler ben bi deneme yaparım sonucunu sizinle paylaşırım.

 

[Tevfik_Kursun]

bekliyorum
iyi çalışmalar

 

[celofb]

Merhaba Deneme yaptım ama tam istediğim bu değil
Yapmak istediğim PDF sayfasında ölçüm sonucu var.Buda 6 satırdan oluşuyor ve bu sonuçları macro ile excel de isteğim hücreye almak. Anlatabilmi mi ? bilmiyorum.
İlginize teşekkürler.

 

[Haluk]

Merhaba Deneme yaptım ama tam istediğim bu değil
Yapmak istediğim PDF sayfasında ölçüm sonucu var.Buda 6 satırdan oluşuyor ve bu sonuçları macro ile excel de isteğim hücreye almak. Anlatabilmi mi ? bilmiyorum.
İlginize teşekkürler.

Lisanslı Adobe Acrobat varsa yapabilirsiniz, başka türlü olmaz...

.

 

[Tevfik_Kursun]

Bu bilgi çok faydalı Haluk Hocam. Teşekkürler

 

[veyselemre]

Merhaba Arkadaşlar;

PDF dosyayı macro ile excel atmak ve PDF dosyasındaki belli bir hücredeki bilgiyi ( her PDF dosyasında aynı yerde ) excel 'e nasıl alırım.
yardımcı olacak arkadaşlara şimdiden teşekkürler.

Örnek birkaç pdf dosyası ve almak istediğiniz bölüm leri bildirirseniz deneme yapmak isterim.

 

[Tevfik_Kursun]

Merhaba,
Dosyalar aynı çalışmanın sonuçları. Ad soyad, no, cinsiyet ve numara alınacak. Numara, birinde 96, diğerinde 98. satırda. 100 örneğin % 70 inde karmaşa var.
Size kolay gelsin
Saygılarımla

 

[veyselemre]

Merhaba,
Dosyalar aynı çalışmanın sonuçları. Ad soyad, no, cinsiyet ve numara alınacak. Numara, birinde 96, diğerinde 98. satırda. 100 örneğin % 70 inde karmaşa var.
Size kolay gelsin
Saygılarımla

Ekteki exe yi bir deneyin. Pdfleri klasörün içine atın, çalışacak mı sonucu bildirirseniz sevinirim, txt dosyası oluşacak.

Txt oluşursa;

Sub txtDenOku()
    Cells.ClearContents
    Const adReadLine = -2&
    With CreateObject("ADODB.Stream")
        .Charset = "utf-8"
        .Open
        .LoadFromFile ThisWorkbook.Path & "\veyselEMRE.txt"
        Do Until .EOs
            sat = sat + 1
            Cells(sat, 1).Resize(, 2).Value = Split(.ReadText(adReadLine), ":")
        Loop
        .Close
    End With
End Sub

 

[Tevfik_Kursun]

Merhaba Sayın Veysel Hocam,
Önceki örneğe uygun dosyaların 43 tanesini anında çok düzgün biçimde açtı. Ekli örneklerin olduğu durumda Dene.jpg te görülen hatayı verdi.
Saygılarımla

 

[veyselemre]

Merhaba Sayın Veysel Hocam,
Önceki örneğe uygun dosyaların 43 tanesini anında çok düzgün biçimde açtı. Ekli örneklerin olduğu durumda Dene.jpg te görülen hatayı verdi.
Saygılarımla

Hata vermesi normal, çünkü exe önceki dosyaya göre dizayn edildi. Soruyu sorarken bu örnekleri de ekleseydiniz, ona göre bir çözüm düşünülürdü.

 

[Tevfik_Kursun]

Muhterem Veysel Hocam,
Standart bir durum yok, bütün değerlere de ihtiyaç yok. Sadece üst bölgedekiler (ad soyad, numara, sınıf ve cinsiyet) yeterli. Okullarda kütük dosyaları var, yine pdf. Onlar daha farklı. Eğer hazırladığınızın exe yerine düzenlenebileni olursa süper olur. Txt dosya da, her pdf için pdf in kendi adıyla dışarı atılırsa daha da süper olur. Tabi olursa. İmkansızsa unuturum. Lütfen benim için kendinizi çok yormayın.
Excel, benim boş oturmamı engelliyor ve beni heyecanlandırıyor. En önemlisi saçma düşüncelerden kurtarıyor.
Saygılarımla

 

[veyselemre]

exe Güncelleme

 

[Tevfik_Kursun]

Sayın Hocam,
34. dosyada aynı hatayı verip durdu.
Saygılarımla

 

[veyselemre]

Sayın Hocam,
34. dosyada aynı hatayı verip durdu.
Saygılarımla

örnek dosya

 

[Tevfik_Kursun]

34. dosya
Kolay gelsin

 

[veyselemre]

Güncelleme

 

[Tevfik_Kursun]

Sayın Veysel Emre Hocam,
Şimdiki gerçekten harika olmuş. Tip değiştiğinde umarım size yazmak zorunda kalmam.
Çok teşekkür ederim.
Saygılarımla