AppActivate Application.Caption
AppActivate "Excel"
Sub startadobe()
Dim AdobeApp As String
Dim AdobeFile As String
Dim startadobe
AdobeApp = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
AdobeFile = "M:\TEST1\CARS\Unit134\Combined.pdf"
startadobe = Shell(Q(AdobeApp) & " " & Q(AdobeFile), 1)
Application.OnTime Now + TimeValue("00:00:10"), "FirstStep"
End Sub
Private Sub FirstStep()
SendKeys ("^a")
SendKeys ("^c")
Application.OnTime Now + TimeValue("00:00:10"), "SecondStep"
End Sub
Private Sub SecondStep()
AppActivate "Excel"
Range("A1").Activate
SendKeys ("^v")
End Sub
Private Function Q(text As String)
Q = Chr(34) & text & Chr(34)
End Function
Option Explicit
Public Sub Copy_and_Paste_From_PDF_File()
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
ActiveSheet.Cells.Clear
AdobeApp = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
AdobeFile = "M:\TEST1\CARS\Unit134\Combined.pdf"
StartAdobe = Shell(Q(AdobeApp) & " " & Q(AdobeFile), 1)
Application.OnTime Now + TimeValue("00:00:03"), "FirstStep"
End Sub
Private Sub FirstStep()
SendKeys "^a^c", True
Application.OnTime Now + TimeValue("00:00:03"), "SecondStep"
End Sub
Private Sub SecondStep()
AppActivate Application.Caption
ActiveSheet.Range("A1").Select
SendKeys "^v", True
End Sub
Private Function Q(text As String)
Q = Chr(34) & text & Chr(34)
End Function