Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/neo4j/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA MSXML2.XMLHTTP为相同的URL下载不同的内容_Excel_Msxml_Vba - Fatal编程技术网

Excel VBA MSXML2.XMLHTTP为相同的URL下载不同的内容

Excel VBA MSXML2.XMLHTTP为相同的URL下载不同的内容,excel,msxml,vba,Excel,Msxml,Vba,您好,我正在尝试使用下面的代码在excel VBA中打开URL Public Sub downloadCode() Dim xHttp As MSXML2.XMLHTTP Dim hdoc As MSHTML.HTMLDocument Dim hElem As MSHTML.HTMLGenericElement Set xHttp = New MSXML2.XMLHTTP URL = Sheet8.Range("U3").value If InStr(URL, "ebay.co.uk") =

您好,我正在尝试使用下面的代码在excel VBA中打开URL

Public Sub downloadCode()
Dim xHttp As MSXML2.XMLHTTP
Dim hdoc As MSHTML.HTMLDocument
Dim hElem As MSHTML.HTMLGenericElement
Set xHttp = New MSXML2.XMLHTTP
URL = Sheet8.Range("U3").value

If InStr(URL, "ebay.co.uk") = 0 Then
    MsgBox ("Invalid Ebay Link. Row:" & i)
    Exit Sub
End If

xHttp.Open "GET", URL
xHttp.send

Do
    DoEvents
Loop Until xHttp.ReadyState = 4

'put into an htmldocument object
Set hdoc = New MSHTML.HTMLDocument
hdoc.body.innerHTML = xHttp.responseText
xHttp.abort
Dim MyFile1, fnum1
MyFile1 = "C:\hp\outputFromExcel1.txt"
fnum1 = FreeFile()
Open MyFile1 For Output As fnum1
Print #fnum1, hdoc.body.innerHTML
Close #fnum1
Shell "C:\WINDOWS\explorer.exe """ & MyFile1 & "", vbNormalFocus
End Sub
我尝试下载的url是:


我的浏览器是带Windows7的IE9,但是它在一台电脑上返回正确的数据,但在另一台配置相同的电脑上返回不同的数据,会有什么问题?我在浏览器中打开了URL,它们的HTML源代码都是相同的。

也许是个愚蠢的问题——但有什么区别呢?一如既往,MSXML2.XMLHTTP指的是MSXML2.XMLHTTP30。要访问最新的MSXML6版本,您需要MSXML2.XMLHTTP60-使用Excel中的“引用”对话框查看每台机器上使用的MSXML版本的详细信息可能是一个愚蠢的问题-但是有什么区别呢?MSXML2.XMLHTTP60总是指MSXML2.XMLHTTP30。要访问最新的MSXML6版本,需要MSXML2.XMLHTTP60-详细信息,请使用Excel中的“引用”对话框检查每台计算机上使用的MSXML版本