Встретил пару недель назад потребность у человека не просто открывать 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
Reblogged this on Киборги и Чародеи and commented:
Кое-кому буд
НравитсяНравится