您的位置: 首页 > EXCEL技巧 > ExcelVBA >

VBA调用浏览器打开指定网页的几种方法

时间:2013-12-10 整理:docExcel.net

下面的几段VBA代码都可以打开浏览器并打开指定的网页:

方法一:用API打开默认的浏览器

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 OpenWebPage1()
  ShellExecute 0&, vbNullString, "www.excel123.cn", vbNullString, vbNullString, vbNormalFocus
End Sub

方法二:用“FollowHyperlink”方法:

Sub OpenWebPage2()
   ActiveWorkbook.FollowHyperlink Address:="http://www.excel123.cn", NewWindow:=True
End Sub

注意网址中要包含“http://”。

方法三:用“InternetExplorer”对象

Sub OpenWebPage3()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("www.excel123.cn")
End Sub

方法四:用Shell语句

这个方法可以用指定的浏览器打开某个网页。例如调用IE打开网址“www.excel123.cn”

Sub OpenWebPage4()
Dim url As String
url = "www.excel123.cn"
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & url, vbNormalFocus
End Sub

说明:

1.将“C:\Program Files\Internet Explorer\IEXPLORE.EXE ”换成其他浏览器程序,则可用指定的浏览器打开网页。例如系统中已安装遨游浏览器(Maxthon),并安装在“C:\Maxthon2”文件夹中,将上述语句更改为“C:\Maxthon2\Maxthon.exe ”将用Maxthon打开指定的网页。

2.注意“C:\Program Files\Internet Explorer\IEXPLORE.EXE ”的结尾处有一空格。如果忽略此空格,Excel将出现错误提示“文件未找到”。

未来不是Web与App的生死之争,而是Web和App的融合 问题:未来不是Web与App的生死之争,而是Web和App的融合
回答:...无需安装大量的 App,影响注意力; 对开发者而言:手机览器跨操作系统,App 开发商一次开发,就可以部署在 Android,iOS,WP 等不同平台的手机览器上,开发效率远超 App; 对互联网公司而言:基于 Web 访问业务,可以方便地...
用VBA判断指定的工作簿是否打开 问题:用VBA判断指定的工作簿是否打开
回答:...以将下面的VBA代码放入标准模块中,然后在子过程中进行调用。 Function IsWkbOpened(sWkbName As String) As Boolean 如果目标工作簿已打开则返回TRUE,否则返回FALSE Dim i As Long For i = Workbooks.Count To 1 Step -1   If Workbooks(i).Name = sWkbName Then &n...
微信开放11类接口,开发者可以基于微信打造真正 问题:微信开放11类接口,开发者可以基于微信打造真正
回答:...平台。 其实,类似的这种 Web 应用大家在国内外的一些览器上应该都已经用过,比如像 UC、Firefox 这些都曾基于览器构建过 Web 应用托管服务。在 Andro
Win 10依然有IE浏览器:与Spartan“合体”兼容旧式 问题:Win 10依然有IE浏览器:与Spartan“合体”兼容旧式
回答: 代号为“Spartan”的览器是最新发布的 Windows 10 的一大亮点,它采用了新的 UI 设计,加入了涂鸦标注、截图分享、内置 Cortana 语音助手等功能。那么用了很多年的 IE 呢?微软官方给出了答案:这两款览器将会共存。 ...
性能提升令人震惊:斯巴达跑分完胜IE 11 问题:性能提升令人震惊:斯巴达跑分完胜IE 11
回答:...变巨大的系统更迭,这其中就包含“斯巴达”新型览器。尽管斯巴达览器目前仍然处于试验阶段,并没有出现在最新放出的 Build 9926 技术预览版中,但用户依旧可以在 IE 11 中调用一些斯巴达浏览...
为什么Word新建文档里没有“电子邮件” 问题:为什么Word新建文档里没有“电子邮件”
回答:那是因为你安装office时木有选择安装outlook这个组件,可以去下载一个安装上,再打开览器登陆你的邮箱,安装邮箱帮助去设置你的outlook默认账户。设置好,word就可以调用了。
相关推荐: