Open an html page in default browser with VBA?

by

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

As given in comment, to make it work in 64-bit, you need add PtrSafe in the Private Declare Line as shown below:

Private Declare PtrSafe Function ShellExecute _

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.

More Related Contents:

  1. Does VBA have Dictionary Structure?
  2. Get reference to additional Inbox
  3. VBA, ADO.Connection and query parameters
  4. How to create and write to a txt file using VBA
  5. Save text file UTF-8 encoded with VBA
  6. Outlook VBA – Run a code every half an hour
  7. Excel VBA deleting rows in a for loop misses rows
  8. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  9. Hidden features of VBA
  10. Difference between Visual Basic 6.0 and VBA
  11. Download attachment from Outlook and Open in Excel
  12. What is the most efficient/quickest way to loop through rows in VBA (excel)?
  13. Embed picture in outlook mail body excel vba
  14. VBA: Selecting range by variables
  15. Use autofilter on more than 2 criteria
  16. Where does VBA Debug.Print log to?
  17. How do I display a messagebox with unicode characters in VBA?
  18. VBA Adding a class to a collection [duplicate]
  19. Excel VBA – Combine rows with duplicate values in one cell and merge values in other cell
  20. Load csv file into a VBA array rather than Excel Sheet
  21. MS Access: how to compact current database in VBA
  22. How do you extract email addresses from the ‘To’ field in outlook?
  23. Can I Get the Source Range Of Excel Clipboard Data?
  24. How to create dynamic variable names VBA
  25. finding latest file in a folder and opening it (vba access)
  26. reading and writing a csv file using FileSystemObject
  27. How can I automatically populate the VBA Editor with line numbers?
  28. VBA hash string
  29. Debugging an Outlook 2007 script fired by a rule
  30. How do I activate a specific workbook and a specific sheet?

Leave a Comment