Поскольку ваши пути содержат пробелы, оба пути должны быть заключены в кавычки ""
App_Path = """C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe"""
File_Path = """C:\Users\Desktop\USER MANUAL.pdf"""
Также должен быть пробел между Page_Num
и File_Path
, поэтому замените & "" &
на & " " &
.
Shell App_Path & " /A Page=" & Page_Num & " " & File_Path, vbMaximizedFocus