Открыть файл PDF на нужной странице из Excel

Встретил пару недель назад потребность у человека не просто открывать pdf файл из экселя, но еще при этом и конкретную страницу.

Способ открытия файлов из Excel базируется на использовании функции гиперссылки.

Стандартный формат этой функции имеет следующий вид.

=HYPERLINK("E:\\test\pdf-test.pdf#2")

Не срабатавыет часть формулы #2 которая указывает на номер страницы. При этом способы экранирования тоже не срабатывают. Но у меня есть универсальный ответ – макросы.

Следующий код

Sub PDF-PAGE-OPENING()
Dim myLink As String ‘адрес по которому расположен нужный файл
Dim TargetPage As Double ‘номер страницы
Dim objIE As New InternetExplorer 
myLink = "path/filename.pdf" ‘формируем строку адреса
TargetPage = 7 'явно задаем искомую страницу
With objIE ‘используя браузер	
Navigate myLink & "#page=" & TargetPage ‘переходим на нужную ссылку – открывая PDF на нужной странице
.Visible = True
End With
End Sub