Question

我一直在使用我的32位计算机在Excel VBA中使用以下功能，最近升级到64位计算机和64位版本的Excel 2013.它仍然有点工作，但只下载一部分http代码。我到处都看了，我找不到任何建议如何解决这个问题;我真的很感激能帮助你重新开始工作。谢谢戴夫

Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
    Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    oXMLHTTP.Open "GET", vWebFile, False 'Open socket to get the website
    oXMLHTTP.Send 'send request
    Do While oXMLHTTP.readyState <> 4
        DoEvents
    Loop
    oResp = oXMLHTTP.responseBody 'Returns the results as a byte array
    vFF = FreeFile
    If Dir(vLocalFile) <> "" Then Kill vLocalFile
    Open vLocalFile For Binary As #vFF
    Put #vFF, , oResp
    Close #vFF
    Set oXMLHTTP = Nothing
End Function

Answer 1

您是否尝试过oXMLHttp.responseText？

转换64位版本的excel vba的msxml.xmhttp代码

1 个答案: