Excel VBA,打开网址而不打开浏览器

时间:2016-03-25 14:09:53

标签: excel vba excel-vba

我正在开发一个项目,该项目需要excel用户和Web服务器之间的一定程度的交互性。

我知道你可以使用

    hyperlink.follow 

在默认浏览器中打开网址的方法。

然而,我想要完成的是能够在幕后打开网址而不在浏览器中打开页面。

有谁知道如何实现这一目标。

以下限制适用。

  1. 我们不能假设用户安装了特定的浏览器,即。例如,我们也不能假设用户完全安装了浏览器。
  2. 我们不能假设用户都拥有相同的操作系统。有些可能有win7,有些可能有win10。我们只是不知道。
  3. 我们可以假设计算机已连接到互联网并具有IP地址,并且防火墙不会成为问题。

1 个答案:

答案 0 :(得分:1)

您可以打开(阅读整个内容)其Url指定的网页,如以下Excel VBA代码段所示:

Option Explicit

'sample procedure to read entire url content
Sub ReadUrlDoc()
  'sample url address
  Const url As String = "http://www.examn8.com"
  Dim urlText As String

  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", url, False
    .Send
    'url content
    urlText = .ResponseText
  End With
End Sub

解决方案无法打开/依赖于Web浏览器。希望这可能有所帮助。