内容提要:文章介绍在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打开网页的代码将打开咱们的
下面再来学习打开某个excel工作薄文件,自动打开网页的相关代码:
打开文件时自动打开网页的方法是:
按组合键,打开VBE编辑器,双击工程窗口的ThisWorkbook模块,在代码窗口粘贴下面的代码,并将文件保存为“excel启用宏的工作薄”即.xlsm格式。关闭工作薄文件,再次打开文件时,会自动打开指定的网页。
Private Sub Workbook_Open()
ThisWorkbook.FollowHyperlink "http://www.blwbbs.com"
End Sub
截图如下:
再介绍一种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