VBA, MS Access MS Access в примерах

Открытие файла программой по умолчанию (Wscript & FollowHyperlink)


Файл поссыллке:

Public Sub WScriptFollowHyperLink(vLinkOrFilePath)
' Открытие ссылки или файла программой по умолчанию
' es - 26.03.2022 - LE 21.09.2023 v003
' FollowHyperlink is not working properly !!!
'----------------------------------------------------------------------------------------------
'Пример эксплуотации:
'   WScriptFollowHyperLink "d:\Temp\Book1.xlsx"
'----------------------------------------------------------------------------------------------

Dim wsShell As Object
Dim sVal As String
On Error GoTo WScriptFollowHyperlink_Err
    
    sVal = vLinkOrFilePath & ""
    If Len(sVal) & "" < 5 Then Exit Sub

     sVal = Chr(34) & sVal & Chr(34) 'В двойные кавычки!

'Открытие файла программой по умолчанию
    Set wsShell = CreateObject("WScript.Shell")
    wsShell.Run sVal
    DoEvents

WScriptFollowHyperlink_End:
    On Error Resume Next
    Set wsShell = Nothing
    Err.Clear
    Exit Sub

WScriptFollowHyperlink_Err:
    MsgBox "Cannot open document:" & vbCrLf & sVal & vbCrLf & _
    "Contact database administrator.  Err: " & Err.Number, vbExclamation, "Error!"
    'Debug.Print "WScriptFollowHyperlink_Line: " & Erl & "."
    Err.Clear
    Resume WScriptFollowHyperlink_End
End Sub


Можно так же как и ссылки в Internet через Application.FollowHyperlink:
НО говорят бывает что: FollowHyperlink is not working properly !!!
Файл:

Dim strPath As String
'Задаём путь:
    'strPath = "d:\Temp\Book1.xlsx"
    strPath = Me!txtFPatch & ""
    If Dir(strPath) = "" Then
        MsgBox "Файл не найден!", vbExclamation
        Exit Sub
    End If
'Открытие файла программой по умолчанию
    Application.FollowHyperlink strPath


Вариант со ссылкой:

Dim strURL As String
'Задаём URL:
    strURL = "http://msa.polarcom.ru/"
'Открываем ссылку в браузере по умолчанию
    Application.FollowHyperlink strURL

Назад ToTop
L.E. 20.03.2024
Рейтинг@Mail.ru