Macro for getting value from pdf to excel

[Brijesh]

Dear All

I want to copy some value from a pdf file and to paste it in a particular excel file. I am using following code but not able to do the desired.

Sub Shell_Copy_Paste()

Dim o As Variant
Dim wkSheet As Worksheet

Set wkSheet = ActiveSheet

o = Shell("C:\Program Files\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe C:\Users\Victor Lan\Documents\sample.pdf", vbNormalFocus)

Application.Wait (Now + TimeSerial(0, 0, 2)) 'Wait for Acrobat to load

SendKeys "^a" 'Select All
SendKeys "^c" 'Copy
SendKeys "%{F4}" 'Close shell application

wkSheet.Range("B5").Select
SendKeys "^v" 'Paste

End Sub


I have got the above code from a website. The macro runs but the problem is that it does not paste anything in excel.

Thanks in advance
Brijesh

 

[NARAYANK991]

Hi Brijesh ,

Can you go through this link , and do what is posted there ?

The code you have posted will not work , and the reason why is mentioned in the link.

http://www.xtremevbtalk.com/showthread.php?t=299104

Narayan

 

[Brijesh]

Thanks Narayan

I went to the link but i found nothing useful for my purpose. In between I tried the above code for copying value from word to excel. Again it was giving the same problem. The macro ran, the word file opened, value in word file selected (and i think copied also), after that word file closed but ultimately no value pasted in excel.
After that i replace the last line of above coding

SendKeys "^v" 'Paste

With this one

ActiveSheet.Paste

And the macro gave the desired output

Can you please tell why the last line of earlier coding was not working?

Brijesh