pdf dosyasını kopyalamak için yardım

[byenerji]

arkadaşlar pdf dosyasını (5 sayfa ) makro ile sayfaları secip excelle kopyalaya biliriyim. forumda aradım buna benzer bir çalışma bulamadım. bu konuda yardım edebilirmisiniz.

 

[gojjira]

PDf yi excele çeviren programlar var.Yaklaşık 150-200 Mb.civarında yer kablıyor.keylisini bul.İşini halleder.Kolay gelsin gojjira fine reader.İnterentten ara bulursun

 

[merken]

Çok sağlıklı sonuçlar veremeyebiliyor aradığınız programlar.

 

[leumruk]

arkadaşlar pdf dosyasını (5 sayfa ) makro ile sayfaları secip excelle kopyalaya biliriyim. forumda aradım buna benzer bir çalışma bulamadım. bu konuda yardım edebilirmisiniz.

Aşağıdaki kod isteğinizi nispeten çözebilir.

Sub pdf_kopyala_yapıstır()
CreateObject("Shell.Application").Open ThisWorkbook.Path & "\mdr.pdf"
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "^a", True
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "^c", True
Cells(1, 1).PasteSpecial
End Sub

 

[byenerji]

sayın leumruk
bu kotlara kopyalanacak pdf dosyasını seçme işlemini ekleyebilirmisiniz.

 

[leumruk]

sayın leumruk
bu kotlara kopyalanacak pdf dosyasını seçme işlemini ekleyebilirmisiniz.

Sub pdf_kopyala_yapıstır()
ChDir "c:\"
dsy = Application.GetOpenFilename(",*.pdf*")
If dsy = False Then Exit Sub
CreateObject("Shell.Application").Open dsy
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "^a", True
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "^c", True
Cells(1, 1).PasteSpecial
End Sub