Please help me close this PDF with VBA

[hellfire45]

The below three modules work so well for pasting all the data from a PDF into Excel however, it doesn't close the PDF afterwards so I can go into another PDF in a loop. Based on the code below can somebody please show me how to close the PDF? Thanks so much friends

Sub StartAdobe() 
Dim AdobeApp As String
Dim AdobeFile As String
Dim StartAdobe
 
AdobeApp = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
AdobeFile = "C:\Users\jjoseph\Desktop\ExclaimerInvoiceTEST.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 Application.Caption
 
Range("A1").Activate
SendKeys ("^v")


End Sub