0

希望有人可以提供帮助。我正在尝试通过 URL 链接下载 MS Access 数据库和 Excel 文件，但如果文件更新，我的下载脚本不会更新流。当变量设置为空时，缓存不会清除。下次我尝试运行代码时，会下载原始文件而不是更新的文件。

我尝试在多个地方添加“设置为空”，但我认为我的问题，正如我在类似的帖子中发现的那样，我对对象变量的声明并不更具体。我对 VBA 的这方面不是很有经验。

Dim sFo as string
Dim oStrm As Object
Dim HttpReq As Object
Dim nwLBUDir As String

sFo = "http://10.38.111.342/Shared_Docs//Docs/Locfile.mdb"
nwLBUDir = Application.CurrentProject.Path

Set HttpReq = CreateObject("microsoft.XMLHTTP")
    HttpReq.Open "GET", sFo, False
    HttpReq.send

    sFo = HttpReq.responseBody
    If HttpReq.Status = 200 Then
        Set oStrm = CreateObject("ADODB.Stream")
        oStrm.Open
        oStrm.Type = 1
        oStrm.Write HttpReq.responseBody
        oStrm.SaveToFile nwLBUDir & "\" & "Locfile.mdb", 2
        oStrm.Close
    End If
    Set oStrm = Nothing

如果有人能指出我没有做些什么来让变量设置为空，我将不胜感激。提前谢谢你。:)

4

0 回答 0