欢迎光临
我们一直用心在做

vba打开网页的四种方法

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

Q:在excel中学习VBA代码时,用vba打开网页的代码如何写?

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

Public Sub vba打开网页()
ActiveWorkbook.FollowHyperlink “https://www.soum.net/”
End Sub

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

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

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

Private Sub Workbook_Open()
ThisWorkbook.FollowHyperlink “https://www.soum.net/”
End Sub

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

Sub vba打开网页()
Dim IE As Object
Set IE = CreateObject(“InternetExplorer.Application”)
IE.Visible = True
IE.Navigate (“https://www.soum.net/”)
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, “https://www.soum.net/”, vbNullString, vbNullString, vbNormalFocus
End Sub

赞(0) 打赏
未经允许不得转载:搜觅网|有车云 » vba打开网页的四种方法
分享到

觉得文章有用就打赏一下文章作者

非常感谢你的打赏,我们将继续给力更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫打赏

微信扫一扫打赏

请使用第三方账号登录

第三方账号登录