小编use*_*523的帖子

我已经为以下问题苦苦挣扎了一段时间，但尚未找到解决方案。

有一个包含 XML 文件的 iShare 页面，我想使用 VBA 代码下载该文件，然后处理该 XML 文件并将其保存到 MS Access 数据库中。

我已经使用下面的代码大约 4 年了，它工作得很好，没有任何问题。但这周突然停止工作了。有什么想法吗？

代码：

Private Function GetRequests() As Boolean
  On Error GoTo ErrHandler

  Dim oDoc As MSXML2.DOMDocument
  Dim Url As String
  Dim sFileName As String

  Set oDoc = New MSXML2.DOMDocument
  oDoc.async = False
  Url = cUrlDatabase & "/" & cApplicationName & "/In/" & cReqXmlFile

  UpdateStatus "Loading " & cReqXmlFile

  If Not oDoc.Load(Url) Then
    c_sLastError = "Could not load XML " & Url
    GoTo EndProc
  End If

  sFileName …