По итогу вышел из ситуации следующим кодом:
2 нюанса, которые возникли.
Если в пути содержатся пробелы, добавляем ещё одни наружные кАвычки с помощью Chr$(34)
И если в ссылке присутствует # ("#nameddest="), необходимо в начале адреса указать "file:///", в противном случае # преобразуется в %23
Если кто-то сможет открыть напрямую в ридере, буду рад инфе
не осилил(((
Код |
---|
Sub OpenPDFpage() Dim chromePath, NamedDest, myLink As String chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" NamedDest = Replace_symbols(Cells(ActiveCell.Row, Cells(1, 2).Value)) myLink = "" & "file:///" & Cells(1, 1).Value & "" & "#nameddest=" & NamedDest & "&view=fit""" Shell (chromePath & Chr$(34) & myLink & Chr$(34)) End Sub |
Если в пути содержатся пробелы, добавляем ещё одни наружные кАвычки с помощью Chr$(34)
И если в ссылке присутствует # ("#nameddest="), необходимо в начале адреса указать "file:///", в противном случае # преобразуется в %23
Если кто-то сможет открыть напрямую в ридере, буду рад инфе
Цитата |
---|
БМВ написал: Zulus-007 , добейтесь чтоб из командной строки запуск произошел согласно ваiим ожиданиям, а после эту строку кормите SHELL |