Открыть файл 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
Рубрики: Метки: , ,

1 Comment

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход /  Изменить )

Google photo

Для комментария используется ваша учётная запись Google. Выход /  Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход /  Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход /  Изменить )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.