Open an html page in default browser with VBA

Question

How do I open an HTML page in the default browser with VBA  I know it s something like   Shell  http   myHtmlPage com    But I think I have to reference the program which will open the page

User · Answer

You need to call ShellExecute

User · Answer

You can use the Windows API function ShellExecute to do so   Option Explicit  Private Declare Function ShellExecute     Lib  shell32 dll  Alias  ShellExecuteA        ByVal hWnd As Long      ByVal Operation As String      ByVal Filename As String      Optional ByVal Parameters As String      Optional ByVal Directory As String      Optional ByVal WindowStyle As Long   vbMinimizedFocus       As Long  Public Sub OpenUrl        Dim lSuccess As Long     lSuccess   ShellExecute 0   Open    www google com    End Sub   Just a short remark concerning security  If the URL comes from user input make sure to strictly validate that input as ShellExecute would execute any command with the user s permissions  also a format c  would be executed if the user is an administrator

User · Answer

I find the most simple is shell  quot explorer exe URL quot   This also works to open local folders

User · Answer

If you want a more robust solution with ShellExecute that will open ANY file  folder or URL using the default OS associated program to do so  here is a function taken from http   access mvps org access api api0018 htm                 Code Start              This code was originally written by Dev Ashish    It is not to be altered or distributed    except as part of an application    You are free to use it in any application    provided the copyright notice is left unchanged      Code Courtesy of   Dev Ashish   Private Declare Function apiShellExecute Lib  shell32 dll        Alias  ShellExecuteA         ByVal hwnd As Long        ByVal lpOperation As String        ByVal lpFile As String        ByVal lpParameters As String        ByVal lpDirectory As String        ByVal nShowCmd As Long        As Long      App Window Constants    Public Const WIN NORMAL   1          Open Normal Public Const WIN MAX   3             Open Maximized Public Const WIN MIN   2             Open Minimized      Error Codes    Private Const ERROR SUCCESS   32 amp  Private Const ERROR NO ASSOC   31 amp  Private Const ERROR OUT OF MEM   0 amp  Private Const ERROR FILE NOT FOUND   2 amp  Private Const ERROR PATH NOT FOUND   3 amp  Private Const ERROR BAD FORMAT   11 amp                   Usage Examples                         Open a folder       fHandleFile  C  TEMP   WIN NORMAL   Call Email app      fHandleFile  mailto dash10 hotmail com  WIN NORMAL   Open URL            fHandleFile  http   home att net  dashish   WIN NORMAL   Handle Unknown extensions  call Open With Dialog                        fHandleFile  C  TEMP TestThis  Win Normal   Start Access instance                       fHandleFile  I  mdbs CodeNStuff mdb   Win NORMAL                                                         Function fHandleFile stFile As String  lShowHow As Long  Dim lRet As Long  varTaskID As Variant Dim stRet As String      First try ShellExecute     lRet   apiShellExecute hWndAccessApp  vbNullString                stFile  vbNullString  vbNullString  lShowHow       If lRet  gt  ERROR SUCCESS Then         stRet   vbNullString         lRet   -1     Else         Select Case lRet             Case ERROR NO ASSOC                   Try the OpenWith dialog                 varTaskID   Shell  rundll32 exe shell32 dll OpenAs RunDLL                              amp  stFile  WIN NORMAL                  lRet    varTaskID  lt  gt  0              Case ERROR OUT OF MEM                  stRet    Error  Out of Memory Resources  Couldn t Execute               Case ERROR FILE NOT FOUND                  stRet    Error  File not found   Couldn t Execute               Case ERROR PATH NOT FOUND                  stRet    Error  Path not found  Couldn t Execute               Case ERROR BAD FORMAT                  stRet    Error   Bad File Format  Couldn t Execute               Case Else          End Select     End If     fHandleFile   lRet  amp                    IIf stRet       vbNullString        amp  stRet  End Function               Code End              Just put this into a separate module and call fHandleFile   with the right parameters

User · Answer

You can even say   FollowHyperlink  www google com    If you get Automation Error then use http      ThisWorkbook FollowHyperlink  http   www google com

[vba] Open an html page in default browser with VBA?

Examples related to vba

Examples related to browser

Examples related to navigation