Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Открыть PDF с произвольным именем из определенной папки
 
#1
02.08.2019 13:20:10
Здравствуйте Уважаемые.. Такая вот задачка... перерыл все ничевго не нашел по теме.. нужно сделать кнопку при нажатии на которую будет выплывать окно спрашивающая имя файла и после ввода названия, из определенной папки будет открываться этот файл.

файлы будут пдф формата строго.
все файлы будут в одной папке, тобишь поиск строго должен быть с конкретной папки на рабочем столе
файл таблицы и файлы будут в разных папках..
прошу помочь по возможности
Изменено: Askerov - 02.08.2019 15:14:14
за сим разрешите отклонится..
 
 
 
#2
02.08.2019 17:40:00
Сначала выводим диалоговое окно выбора файла
код есть здесь: https://excelvba.ru/code/GetFileOrFolderPath

когда получили путь к выбранному файлу в переменную FileName , - нужна команда на открытие файла:
Код
 CreateObject("wscript.shell").Run """" & FileName & """"
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
02.08.2019 18:48:36
Цитата
Askerov написал:
Открыть PDF с произвольным именем из определенной папки
Ну какое это произвольное. Это вполне определенное имя.
Цитата
Askerov написал:
выплывать окно спрашивающая имя файла
Возможно под этим подразумевался простой текстовый ввод, хотя вариант от Игорь более универсальный и наглядный.
Изменено: БМВ - 02.08.2019 18:49:01
По вопросам из тем форума, личку не читаю.
 
 
 
#4
06.08.2019 15:28:27
Код
Sub PDFOpen()
    Programm = "c:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
 
    filePath = ThisWorkbook.Path & "\pdf" & Files = InputBox("укажите название.") & " \*.pdf"
 
    Shell Programm & " " & Files, vbNormalFocus
End Sub

//надо сделать так чтобы в открывающемся диалоговом окне можно было ввести имя конкретного файла, и код искал файл из определенной папки и открывал.. (файлы будут строго пдф.. я тут набросал.. но вечно открывает просто пдф файл.. помогите исправить

Цитата
БМВ написал: Возможно под этим подразумевался простой текстовый ввод, хотя вариант от  Игорь  более универсальный и наглядный.
воможно... но подразумевается что в папке будут больше 10к файлов и только по имени можно будет найти. а не пролистывать часами...
Изменено: Askerov - 06.08.2019 15:31:16
за сим разрешите отклонится..
 
 
 
#5
06.08.2019 15:32:07
Цитата
Askerov написал: за сим разрешите отклонится..
слово специально с ошибкой? И какой смысл  этой подписи?
 
 
 
#6
06.08.2019 17:13:08
Цитата
Askerov написал:
я тут набросал.. но вечно открывает просто пдф файл
Вы бы через
Код
msgbox filePath
посмотрели бы, что у Вас получилось :)
Хотя после всех трудов с получением filePath Вы его все равно не используете.

Проверяйте:
Код
Files = InputBox("Укажите название:") & ".pdf"
filePath = ThisWorkbook.Path & "\pdf\" & Files
    
Shell Programm & " " & filePath, vbNormalFocus
Изменено: bigorq - 06.08.2019 17:15:53
 
 
 
#7
07.08.2019 09:44:25
bigorq   огромное спасибо...)
за сим разрешите отклонится..
 
 
 
Страницы: 1
Читают тему
Наверх