2016-05-16 46 views
-1

同様の「403」スレッドを検索しましたが、回答が見つかりませんでした。403 HTTPリクエストでエラーが発生しました

I持って有効と作業で、以下のURL - www.investing.com/equities/apple-computer-inc-earnings

そして、私のコード:

Sub GetSourceCode() 

    Dim XMLHTTP As Object 
    Dim URL As String 
    Dim data As String 

    URL = "http://www.investing.com/equities/apple-computer-inc-earnings" 
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 
    XMLHTTP.Open "GET", URL, False 
    XMLHTTP.send 
    data = XMLHTTP.responseText 
End Sub 

しかし、文字列「データ」が「403禁止」エラーの代わりに返されます私が達成しようとしているソースコードです。

解決策または回避策(または重複参照)は高く評価されます。

おかげ

+1

あなたは、この文字列に取得するために何をしようとしているの前に?あなたは確かに、あなたがウェブサイト上で見るすべてをこの文字列に入れることを期待していません。このソリューションを見て、試してみることをお勧めします:http://stackoverflow.com/questions/8798260/html-parsing-of-cricinfo-scorecards/8846791#8846791このソリューションを使用できない場合でも少なくともあなたがウェブサイトから検索したいアイテムをよりよく識別するのに役立つかもしれません。 – Ralph

+0

ありがとうございます。でも、URLをURL = "http://www.google.com"に置き換えると、期待どおりに動作しているように見え、ソースコードは完全に文字列に格納されます。もちろん、私はその文字列の小さなデータにしか興味がありませんが、まずそれを完全にダウンロードする必要がありますか? – David912

+0

短い答え:いいえ、あなたはウェブサイト全体をダウンロードする必要はありません。 – Ralph

答えて

0

セットリクエストヘッダだけ.send

XMLHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 
関連する問題