こんにちは、以下のコードを使用して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 ですが、ある PC では正しいデータが返されますが、同じ構成の別の PC では別のデータが返されます。何が問題なのですか? ブラウザで URL を開いたところ、両方の HTML ソースが同じです。