PDF to Excel data copy

[vinny2984]

Does anyone if its possible to write code that will select all in a pdf and copy paste to excel?
I've used the following code to get the PDF file open, which works fine, but thats where it stops for me. If its possible I'd like to be able to continue the code to select all in the PDF doc and paste into excel.
Any ideas?
Thanks

Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe C:\users\richard\desktop\RDS\Richard Pay form.pdf"

 

[cgmojoco]

version 8.0, but i changed that in the code

What line does the error generate on?

 

[cgmojoco]

Bump...anyone have some code I can use in my original request?

 

[Emmily]

What line does the error generate on?

This is line it fails on


StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)

 

[cgmojoco]

Reason I asked was because it might be related to the app not being found not just the file...

 

[Obot]

version 8.0, but i changed that in the code

Hello All,
I am new here. I have been following this thread, trying to copy pdf to excel. I have used the codes suggested but having the same challenge as Emmily had. I am using adobe reader 8.0 and am working with excel 2003. Please I need urgent help.

 

[fdht]

Hey i used this code it worked perfect but my problem is that my PDF file has several pages and this code just copys the first page so any idea if there is any possibility to copy all pages?

Hey Vinny, try tinkering with SENDKEYS (sending keys: ctrl+a to select all, ctrl+c to copy and ctrl+v to paste). Below is a simple example. I also used Application.OnTime to allow time for the application to open and time for copying (you can change the timing to suit your needs - it set for 5 second delay on opening and 10 second delay on copying). As a side note, it has always been my experience that copying from PDF files into Excel makes a yucky mess as it always loses its pretty PDF formatting:

Sub StartAdobe()
 
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
 
AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
AdobeFile = "C:\users\richard\desktop\RDS\Richard Pay form.pdf"
 
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

 

[fdht]

Hi Vinny, you can add another SENDKEYS function (see below revised SecondStep procedure - the item in bold face red is what I added.). By the way, when I was doing all this the only App I had open was Excel. So having other apps open will running the macro could cause unexpected results (e.g. if Adobe was already open). I was hoping you would use this as a general guide to provide you with some direction...any further enhancements are up to you.

Private Sub SecondStep()
 
SendKeys ("%fx")
 
AppActivate "Microsoft Excel"
 
Range("A1").Activate
 
SendKeys ("^v")

End Sub

Hi Crimson,

i used this code and it worked perfectly but my problem is that my PDF file has several pages but this code copies just the first page is there any possibility that i can copy all pages?

 

[sai.]

Hi crimson,
Thank you for this code i want more help in this code you select all pdf file but i don't want to this.

I want to select particular text from pdf file. will you please help me. i selected text on pdf and automation is copy selected text and paste into excel file.

 

[avinash85]

Dear Sir,

I used this code but doesn't work. I want to open pdf file and copy text from pdf and paste in doc file by using mouse selected text only not whole pdf file please suggest vba code for this

Regards

Crimson, many thanks it works perfectly. Your right, if the pdf is already open it crashes, so i'll play with that to see if i can check if its open before it attempts to open.
Below is the code i used, which is exacly what you sent. There's been no need to change it.
brilliant, thanks

Sub StartAdobe()
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
 
AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
AdobeFile = "C:\users\richard\desktop\RDS\Richard Pay form.pdf"
 
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()
SendKeys ("%fx")
AppActivate "Microsoft Excel"
ThisWorkbook.Activate
Sheets(1).Activate
Range("A1").Activate
SendKeys ("^v")
End Sub

 

[avinash85]

Dear Sir,

I tried this code but its open only PDf file, I want that after opened PDF file it should automatically copy mouse selected text and paste in new doc file.

Thanks

Hey Vinny, try tinkering with SENDKEYS (sending keys: ctrl+a to select all, ctrl+c to copy and ctrl+v to paste). Below is a simple example. I also used Application.OnTime to allow time for the application to open and time for copying (you can change the timing to suit your needs - it set for 5 second delay on opening and 10 second delay on copying). As a side note, it has always been my experience that copying from PDF files into Excel makes a yucky mess as it always loses its pretty PDF formatting:

Sub StartAdobe()
 
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
 
AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
AdobeFile = "C:\users\richard\desktop\RDS\Richard Pay form.pdf"
 
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