VBA代码大全020:如何用vba打开指定的网页?

​当我们做vba工具时,有时候希望客户访问官网时,会嵌入打开指定的网站的功能。

在vba中打开指定的网页可以有多种方法,这里介绍三种方法。

方法一:用Workbook对象的FollowHyperlink方法打开指定的网页Url,它的帮助文档详见 Workbook.FollowHyperlink

代码如下:

Sub QQ1722187970()
Excel.Application.ActiveWorkbook.FollowHyperlink "http://www.exceloffice.net/"
End Sub

方法二: 如果不是在exce的vba中,则还可以用api函数 ShellExecute 来打开指定的网页。

代码如下:

Public Declare Function ShellExecute 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
Public Const SW_SHOWNORMAL = 1
Sub QQ1722187970()
    ShellExecute 0, "open", "http://www.exceloffice.net/", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

用api函数ShellExecute打开网页的方法比较具有通用性,它不仅可以执行打开操作,还可以执行打印等其它操作,功能强大,推荐使用。

方法三:如果要指定浏览器打开网页,可以使用Shell 函数。代码如下:

Sub QQ1722187970()
    Dim sUrl As String
    sUrl = "http://www.exceloffice.net/"
    Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe " & sUrl, vbNormalFocus
End Sub

掌握了这3种方法,应该是可以应付各种场合了。

       

发表评论