Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как макросом отрыть файл НЕ Excel., Нужно что бы макрос сработал как гиперссылка.
 
#1
14.09.2013 15:03:22
Всем здравствуйте.
Столкнулся с проблемой - нужно макросом открыть файл, в данном случае ПДФ, просто для просмотра. Записал макрорекордером:
Код
Workbooks.Open Filename:= _
        "C:\Users\Михаил\Desktop\Проба\№17-13.09.2013.pdf"

но файл открывается в формате excel, a не .pdf...

Можно, конечно, поставить гиперссылку, но тогда возможно случайное открытие файла, что не всегда удобно.
 
 
 
#2
14.09.2013 15:05:00
Shell?
 
 
 
#3
14.09.2013 15:09:02
Юрий, а можно чуть подробнее?
..хотя б кусочек кода.
 
 
 
#4
14.09.2013 15:16:53
Посмотрел справку по Shell, попробовал такой вариант
Код
  
   Dim a
 a = Shell("C:\Users\Михаил\Desktop\Сохрнение Excel\№17-13.09.2013.pdf", 1)
не работает :(
 
 
 
#5
14.09.2013 15:22:42
Вот здесь похожая тема.
 
 
 
#6
14.09.2013 15:24:33
Ещё и ещё
 
 
 
#7
14.09.2013 15:27:23
Спасибо, а то я сам не нашел. Просмотрел несколько тем - но там и близко не мой вопрос.
 
 
 
#8
14.09.2013 15:31:37
Попробуйте
Код
    Dim pShell As Object
    Set pShell = CreateObject("Shell.Application")
    pShell.Open "d:\path\filename.pdf"
 
 
 
#9
14.09.2013 15:42:50
У меня вот так срабатывает:
Код
Shell ("C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe D:\Downloads\Cook.pdf")
 
 
 
#10
14.09.2013 15:44:28
Код anvg тоже срабатывает корректно.
 
 
 
#11
14.09.2013 15:52:40
вот так работает:
 
Код
  
   Dim a, s, p
   p = ActiveWorkbook.Path
  s = "\№17-13.09.2013.pdf"
  a = """" & p & s & """"
 CreateObject("WScript.Shell").Run a

Файл ПДФ в той же папке, что и Excel, имя (s) берется из ячейки.
 
 
 
#12
14.09.2013 16:03:43
Юр, ваш код не на всех компьютерах сработает - у меня, например, нет "Adobe\Reader 10.0", у меня "Adobe\Acrobat 11.0\Acrobat.exe". А кто-то вообще альтернативные программы для пдф использует...
 
 
 
#13
14.09.2013 16:17:09
Михаил, а зачем вам знать путь к программе Acrobat.exe?
Вам же дали ссылку на пример кода, который откроет любой файл в той программе, которая назначена для этого типа файлов по-умолчанию:

Код
Sub Запускфайла() 
ПутьКФайлу = """d:\path\filename.pdf""" 
CreateObject("WScript.Shell").Run ПутьКФайлу 
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#14
14.09.2013 16:40:19
EducatedFool, я этим вариантом и воспользовался. Спасибо
 
 
 
Страницы: 1
Читают тему
Наверх