室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

vba打开网页的四种方法

[日期:2012-03-06]   来源:IT部落窝  作者:IT部落窝   阅读:10953[字体: ]
内容提要:文章介绍在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打开网页的代码将打开咱们的IT部落窝论坛的官方网站。

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

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

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

Private Sub Workbook_Open()
    ThisWorkbook.FollowHyperlink "http://www.blwbbs.com"
End Sub

  截图如下:

vba打开网页

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

  再介绍一种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

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程