[Yardım]  Pdf Dosyasından Veri Alma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Pdf Dosyasından Veri Alma

İleti#1)  okan32 » 12 Şub 2020 14:59

KLASÖRDEKİ PDF DOSYASINDAN RENKLİ İŞARETLENEN YERLERİ TABLODAKİ İLGİLİ HÜCRELERE ALDIRMAK İSTİYORUM.
ÇOK UĞRAŞTIM AMA YAPAMADIM. YARDIMLARINIZ İÇİN ŞİMDİDEN ÇOK TEŞEKKÜR EDERİM.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
okan32
Yeni Başlamış
 
Kayıt: 26 Ekm 2015 11:08
Meslek: memur
Yaş: 41
İleti: 32
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Pdf Dosyasından Veri Alma

İleti#2)  erseldemirel2 » 12 Şub 2020 15:49

Bir module ekleyip aşağıdaki kodlar yazılınca; sizin dosyada test ettim masaüstündeki ekim.pdf alıp a1'e yapıştırıyor. Geliştirilebilir

Kendi adobe program veri yolunuza dikkat ediniz!

Kod: Tümünü seç
Sub StartAdobe()
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
AdobeApp = "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe" 'BU SATIR SİZE ÖZEL
AdobeFile = "D:\_AppData_\Desktop\ekim.pdf" 'BU SATIR SİZE ÖZEL
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
Application.OnTime Now + TimeValue("00:00:05"), "FirstStep"
End Sub
Private Sub FirstStep()
SendKeys ("^a")
SendKeys ("^c")
Application.OnTime Now + TimeValue("00:00:10"), "SecondStep"
End Sub
Private Sub SecondStep()
'AppActivate "Microsoft Excel"
Range("A1").Activate
SendKeys ("^v")
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 618
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 1 misafir

Bumerang - Yazarkafe