copy password protected pdf to excel via vba

36 views Asked by At

I'm using acrobat reader and the file path of the exe is: "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32"

And I have an PDF file, the location of that file: " C:\Users\caglayan\Desktop\CAGLAYAN\aaa.PDF"

The password of that PDF: "4pLByo"

How can I copy the whole PDF to excel?

I try to use that but failed:

Sub pdfexport()

Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1")
strPassword = "4pLByo"
Application_Path = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32"

PDF_Path = "C:\Users\caglayan\Desktop\CAGLAYAN\\"

Shell_Path = Application_Path & " C:\Users\caglayan\Desktop\CAGLAYAN\aaa\"

Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus)

Application.Wait Now + TimeValue("0:00:03")

SendKeys "%vpc"
SendKeys "^a"
SendKeys "^c"

MyWorksheet.Range("A1").PasteSpecial Paste:=xlPasteAll

''Call Shell("TaskKill /F /IM AcroRd32.exe", vbHide)

End Sub
0

There are 0 answers