vba打开网页的四种方法

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

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

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

PublicSubvba打开网页()
 ActiveWorkbook.FollowHyperlink"http://www.blwbbs.com/"
EndSub

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

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

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

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

PrivateSubWorkbook_Open()
   ThisWorkbook.FollowHyperlink"http://www.blwbbs.com"
EndSub

截图如下：

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

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

Subvba打开网页()
   DimIEAsObject
   SetIE=CreateObject("InternetExplorer.Application")
      IE.Visible=True
      IE.Navigate("www.blwbbs.com")
EndSub

最后这种方法是使用用API打开默认的浏览器来打开网页。VBA代码如下：
PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
   Subvba打开网页()
    ShellExecute0&,vbNullString,"www.blwbbs.com",vbNullString,vbNullString,vbNormalFocus
   EndSub