Using VBA to retrieve specific pages from PDFs

Big_Al_fae_the_rigs

New Member
Joined
Oct 31, 2024
Messages
2
Office Version
  1. 2016
Platform
  1. Windows
Hi,
I'm trying to learn how to better use VBA and Macros to help me and my colleagues with work.
What I am trying to achieve is a workbook with multiple sheets for separate systems and on each sheet, individual buttons which correspond to a specific technical drawing.
The drawings are in packs saved in pdf format, so the code for each button needs to open the correct pdf to the relevant page. I have managed to achieve this step.
However, when I then click a different button which is linked to a different page in the same pdf the code fails (my understanding being that it is not possible to have the same pdf file open multiple times). I searched for a solution for the sub to check if the file was open (if not open, then open as normal) and if it was already open simply change the page which is displayed, but this has proved fruitless so far. Instead of this, I thought a slightly more crude solution would be to perform the same check to see if the file was open (again if not open, then open as normal) and if it was already open then close the file before reopening to the page required.
I have managed (through trial and error and liberal borrowing of code I have managed to find online for parts of the problem) to get the check if file is open to work, and the [if not open, then open] part to work, and have even finally managed to get the [if open, then close] working, but no matter what I have tried so far, I cannot get it to close the file and then re-open to the new required page.

This is the code I have so far.....


Option Explicit

Private Const cAdobeReaderExe As String = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"



Function IsFileOpen(FileName As String)

Dim ff As Long, ErrNo As Long



On Error Resume Next

ff = FreeFile()

Open FileName For Input Lock Read As #ff

Close ff

ErrNo = Err

On Error GoTo 0



Select Case ErrNo

Case 0: IsFileOpen = False

Case 70: IsFileOpen = True

Case Else: Error ErrNo

End Select

End Function



Private Sub ClosePDF()

Shell "taskkill.exe /f /t /im AcroRd32.exe"

End Sub



Private Sub CommandButtonTest_Click()



Dim Ret

Ret = IsFileOpen("filepath.pdf")

Dim PDFFile As String

PDFFile = "filepath.pdf"

Dim AdobeCommand As String

AdobeCommand = " /a ""page=1=Open Actions"" "



If Ret = True Then



Call ClosePDF



Shell cAdobeReaderExe & AdobeCommand & Chr(34) & PDFFile & Chr(34), vbNormal



Else



Shell cAdobeReaderExe & AdobeCommand & Chr(34) & PDFFile & Chr(34), vbNormal



End If

End Sub
 

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.
Hi,
I'm trying to learn how to better use VBA and Macros to help me and my colleagues with work.
What I am trying to achieve is a workbook with multiple sheets for separate systems and on each sheet, individual buttons which correspond to a specific technical drawing.
The drawings are in packs saved in pdf format, so the code for each button needs to open the correct pdf to the relevant page. I have managed to achieve this step.
However, when I then click a different button which is linked to a different page in the same pdf the code fails (my understanding being that it is not possible to have the same pdf file open multiple times). I searched for a solution for the sub to check if the file was open (if not open, then open as normal) and if it was already open simply change the page which is displayed, but this has proved fruitless so far. Instead of this, I thought a slightly more crude solution would be to perform the same check to see if the file was open (again if not open, then open as normal) and if it was already open then close the file before reopening to the page required.
I have managed (through trial and error and liberal borrowing of code I have managed to find online for parts of the problem) to get the check if file is open to work, and the [if not open, then open] part to work, and have even finally managed to get the [if open, then close] working, but no matter what I have tried so far, I cannot get it to close the file and then re-open to the new required page.

This is the code I have so far.....


Option Explicit

Private Const cAdobeReaderExe As String = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"



Function IsFileOpen(FileName As String)

Dim ff As Long, ErrNo As Long



On Error Resume Next

ff = FreeFile()

Open FileName For Input Lock Read As #ff

Close ff

ErrNo = Err

On Error GoTo 0



Select Case ErrNo

Case 0: IsFileOpen = False

Case 70: IsFileOpen = True

Case Else: Error ErrNo

End Select

End Function



Private Sub ClosePDF()

Shell "taskkill.exe /f /t /im AcroRd32.exe"

End Sub



Private Sub CommandButtonTest_Click()



Dim Ret

Ret = IsFileOpen("filepath.pdf")

Dim PDFFile As String

PDFFile = "filepath.pdf"

Dim AdobeCommand As String

AdobeCommand = " /a ""page=1=Open Actions"" "



If Ret = True Then



Call ClosePDF



Shell cAdobeReaderExe & AdobeCommand & Chr(34) & PDFFile & Chr(34), vbNormal



Else



Shell cAdobeReaderExe & AdobeCommand & Chr(34) & PDFFile & Chr(34), vbNormal



End If

End Sub
Any help will be greatly appreciated.
 
Upvote 0

Forum statistics

Threads
1,223,227
Messages
6,170,848
Members
452,361
Latest member
d3ad3y3

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top