VBA调用浏览器打开指定网页的几种方法
   
下面的几段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, "", vbNullString, vbNullString, vbNormalFocus
    End Sub
    方法二：用“FollowHyperlink”方法：
    Sub OpenWebPage2()
      ActiveWorkbook.FollowHyperlink Address:="l123", NewWindow:=True
    End Sub
    注意网址中要包含“”。
    方法三：用“InternetExplorer”对象
    Sub OpenWebPage3()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
      IE.Visible = Trueweb浏览器在哪里打开
      IE.Navigate ("")
    End Sub
    方法四：用Shell语句
    这个方法可以用指定的浏览器打开某个网页。例如调用IE打开网址“l123”
    Sub OpenWebPage4()
    Dim url As String
    url = ""
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & url, vbNormalFocus
    End Sub
    说明：
    1.将“C:\Program Files\Internet Explorer\IEXPLORE.EXE ”换成其他浏览器程序，则可用指定的浏览器打开网页。例如系统中已安装遨游浏览器（Maxthon），并安装在“C:\Maxthon2”文件夹中，将上述语句更改为“C:\ ”将用Maxthon打开指定的网页。
    2.注意“C:\Program Files\Internet Explorer\IEXPLORE.EXE ”的结尾处有一空格。如果忽略此空格，Excel将出现错误提示“文件未到”。
 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。