satyaananth143
New Member
- Joined
- Jul 9, 2018
- Messages
- 4
Hi, I am trying to copy and paste the data from pdf to excel. Below is the code that I'm using but didn't work well.
Sub PDF_Excel()
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
AdobeApp = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\AcroRd32.exe"
AdobeFile = "C:\test\March18.pdf"
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
Application.Wait Now + TimeValue("00:00:05")
SendKeys ("^a")
SendKeys ("^c")
Application.Wait Now + TimeValue("00:00:10")
SendKeys ("%fx")
AppActivate "Microsoft Excel"
ThisWorkbook.Activate
Sheets1.Activate
Range("A1").Activate
SendKeys ("^v")
End Sub
Sub PDF_Excel()
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
AdobeApp = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\AcroRd32.exe"
AdobeFile = "C:\test\March18.pdf"
StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1)
Application.Wait Now + TimeValue("00:00:05")
SendKeys ("^a")
SendKeys ("^c")
Application.Wait Now + TimeValue("00:00:10")
SendKeys ("%fx")
AppActivate "Microsoft Excel"
ThisWorkbook.Activate
Sheets1.Activate
Range("A1").Activate
SendKeys ("^v")
End Sub
