Открыть путь из активной ячейки

@Sisin · Регистрация: 28.07.2016

Author24 — интернет-сервис помощи студентам

Пользуюсь таким макросом:

Visual Basic

Sub ОткрытьПуть()
Dim sFolder As String
 sFolder = ActiveCell
Shell "explorer " & sFolder, vbNormalFocus
End Sub

открывает путь указанный в выбранной ячейке.

Подскажите, пожалуйста, как дополнить макрос, чтобы в случае, если в ячейке нет пути или путь не существует, то выводилось сообщение "Пути нет"?

В столбце с указанными путями могут быть разные буквы дисков (изменить их не представляется возможным), но все они указывают на одну папку, например, Test. Как сделать так:
Массив [A, B, C...]
Цикл for
Если A:\Test существует, то переменная Диск = A, выход из цикла
Если нет, то дальше

Переменная a = ActiveCell - (минус) первая буква
sFolder = Переменная диск & Переменная a
Shell "explorer " & sFolder, vbNormalFocus

@amd48 · 05.03.2020, 07:10

Visual Basic

Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FolderExists("путь к папке") Then
    MsgBox "папка не существует"
End if

@pashulka · 07.03.2020, 11:49

Sisin, Есть подозрение, что Вы ищите что-то вроде этого :

Visual Basic

Private Sub Test()
    Dim p$: p = ActiveCell
    If Len(p) = 0 Then Exit Sub 'есть смысл заменить 0 на < диск + мин.кол-во симв. в имени файла 
    If IsOpen(p) Then
       ThisWorkbook.FollowHyperlink p
       'Shell "Explorer.exe " + p, vbNormalFocus
    Else
       MsgBox "Облом ...", vbCritical, ""
    End If
End Sub
 
Private Function IsOpen(p$) As Boolean
    On Error Resume Next: Dim i&
    IsOpen = Len(Dir$(p))
    If Not IsOpen Then
       For i = 65 To 90
           Mid$(p, 1, 1) = Chr$(i)
           IsOpen = Len(Dir$(p))
           If IsOpen Then Exit Function
       Next
    End If
End Function

	07.03.2020, 11:49

Открыть путь из активной ячейки

Решение