vba打开网页的四种方法

内容提要：文章介绍在excel中vba打开网页的四种方法，分别使用API、SHELL函数、FollowHyperlink方法、“InternetExplorer”对象来实现。

　　Q：在excel中学习VBA代码时，用vba打开网页的代码如何写？

　　A：按ALT+F11，打开VBE编辑器，插入——模块，复制下面代码，运行即可。

Public Sub vba打开网页()
  ActiveWorkbook.FollowHyperlink "http://www.blwbbs.com/"
End Sub

　　注释：上面这段vba打开网页的代码将打开咱们的IT部落窝论坛的官方网站。

　　下面再来学习打开某个excel工作薄文件，自动打开网页的相关代码：

　　打开文件时自动打开网页的方法是：

　　按<Alt+F11>组合键，打开VBE编辑器，双击工程窗口的ThisWorkbook模块，在代码窗口粘贴下面的代码，并将文件保存为“excel启用宏的工作薄”即.xlsm格式。关闭工作薄文件，再次打开文件时，会自动打开指定的网页。

Private Sub Workbook_Open()
    ThisWorkbook.FollowHyperlink "http://www.blwbbs.com"
End Sub

　　截图如下：

　　另外，还可以使用VBA中的shell函数来打开网页，具体请参考：http://www.ittribalwo.com/show.asp?id=1220

　　再介绍一种vba打开网页的方法，使用下面的代码：

Sub vba打开网页()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
       IE.Visible = True
       IE.Navigate ("www.blwbbs.com")
End Sub

　　最后这种方法是使用用API打开默认的浏览器来打开网页。VBA代码如下：
Private 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
    Sub vba打开网页()
     ShellExecute 0&, vbNullString, "www.blwbbs.com", vbNullString, vbNullString, vbNormalFocus
    End Sub