Показать расположение файла.

[riniks17]

Добрый день, уважаемые. Подскажите пжлст, существует ли функция, показывающая расположение файла? Гиперссылка открывает сам файл, а хочется, что б открылась папка и подсветился искомый файл. Спасибо.

[IgorGO]

функции нет, есть такое приложение explorer для просмотра структуры дисков, папок, файлов

Shell "explorer.exe " & ПУТЬ_К_ПАПКЕ, vbNormalFocus

[EducatedFool]

Sub ShowFile(ByVal FilePath$)
    ' открывает файл FilePath$ в Проводнике Windows
    On Error Resume Next
    CreateObject("wscript.shell").Run "explorer.exe /e,/select,""" & FilePath$ & """"
End Sub

пример использования в коде:

ShowFile "C:\Users\Игорь\Desktop\маршрут.xlsx"

[riniks17]

Добрый день, уважаемые. Не хватает знания мат.части. Есть несколько вопросов.

Sub ShowFile()
Shell "explorer """ & "D:\Projects\Actual\Kleven\Contract s\Contracts B591\4607_001 signed.pdf" & "", vbNormalFocus
End Sub

1. В таком виде код сразу открывает файл, а не подсвечивает его в папке.
2. Вместо 4607_001 signed.pdf надо вставить (ActiveCell). В этой ячейке название файла без расширения. У меня после такой замены сразу открывается другая папка (My documents)
3. Вместо Contracts B591 хотелось ба вставить название активного листа. Оно соответствует названию папки с контрактами.
И последнее. Возможно при перемещении папки c контрактами и списком на другой комп оставить работающими и гиперссылки и этот код? Просмотр, конечно, на том же компе.

Код EducatedFool не запускается. Буду разбираться.
Спасибо.

[IgorGO]

Sub ShowFile()
  Dim s As String
  s = "D:\Projects\Actual\Kleven\Contract s\" & ActiveSheet.Name & "\" & ActiveCell & ".pdf"
  CreateObject("wscript.shell").Run "explorer.exe /e,/select,""" & s & """", vbNormalFocus
'  или
  Shell "explorer /e,/select, """ & s & """", vbNormalFocus
End Sub

[riniks17]

Переименовал переменную на i (с s открывал My documents) И все заработало. По этому коду.

Shell "explorer /e,/select, """ &  i  & """", vbNormalFocus

На днях воспользуюсь подписью автора.
Сейчас займусь размещением кнопки на всех листах. Ну и попробую дописать строку кода, что запуск только из полей В:В. (там названия файлов).
Респект автору ответа