excel - 如何在 VPN 外使用 MSXML2.XMLHTTP 对象？

Question

我在下面编写了这几行代码。当我通过 VPN 连接时代码正常工作，但在 VPN 外不再工作。返回的状态码是 12007 出 VPN 和 200 与 VPN。

例如，您可以使用 myUrl ：“https://www.boursedirect.fr/fr/marche/euronext-paris/lyxor-ep-na-us-LU1832418856-MUA-EUR-XPAR/seance”

你知道如何解决这个困难吗？

Public Function InterrogationCours(myUrl) As Double
  Dim avant as String, apres as String, cotation As String

  avant = "quotation-last bd-streaming-select-value-last"
  apres = "</span"

  On Error Resume Next
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", myUrl, False
    .Send
    Debug.Print .Status
    If .Status = 200 Then cotation = Split(Split(Split(.responseText, avant)(1), ">")(1), apres)(0)
  End With
  InterrogationCours = Nettoyage(cotation)
End Function

标签： excelvbamsxml2