Please help me to Data Transfer from PDF to Excel

[sampath]

Hello,

I have 200 sheets of pdf file and need to convert that pdf file to excel(.xls) in single shot. every pdf sheet data transfer to every column in excel. please help me for this.

I do not have any specific software for that. I can not use in my office if available.

Warm Regards,
Sampath.S

 

[kchiba]

Hi Sampath,

I am sure that you must have done it, but if not Google "PDF to Excel", this will give you a number of options including sites that will do the conversion for you.

cheers
kanti

 

[sampath]

Hello Kanti,

Thanks for your prompt reply,

I have confidential pdf data it could not share to goole. kindly help me for the same.

Warm regards,
Sampath.S

 

[kchiba]

Hi Sampath,

I am sorry I am not sure that I can help you further, you may be able to do it if you have Adobe Pro.

Is it possible to upload a single pdf sheet, so that we can test if it can be opened and read for import into Excel.

cheers

kanti

 

[Abhijeet R. Joshi]

Hi Sampath,

I have a similar requirement and organizational barriers as yours, however I use the below code to copy paste the data but this will not bifurcate the data into excel columns but push it all into a single...

Hope this is of some help...

Private Sub StartAdobe()
Application.ScreenUpdating = False
Sheets("Recon").Select
cb = Sheets("Recon").Cells(1, 1).Value'path for the pdf file
Sheets("Data").Select
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
Sheets("Data").Select
Range("A1").Select
AdobeApp = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"
Sheets("Summary").Select
Sheets("Recon").Select
AdobeFile = Cells(1, 1).Value & ".pdf"
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
Call FirstStep
Application.ScreenUpdating = True
End Sub
 
Private Sub FirstStep()
 
SendKeys ("^a")
SendKeys ("^c")
SendKeys ("^q")
Application.OnTime Now + TimeValue("00:00:05"), "SecondStep"
End Sub
 
Private Sub SecondStep()
AppActivate ("MICROSOFT EXCEL")
Sheets("Data").Select
Range("A1").Select
SendKeys ("^v")
dx = ActiveWorkbook.Name
End Sub