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
OAT: none; LETTER-SPACING: normal; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">再介绍一种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
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：vba打开网页的四种方法
相关文章
