OOobbs2/172
質問
お世話になります。 Open Office BasicにてWeb上の株価を入手する為に、任意のURLのソースデータを入手方法を教えて下さい。 現在、下記コードを記しているのですが、サーバーからのテキストデータが受信できません。 ******* マクロコード ********
Sub Main 'On Error GoTo ErrorTrap Dim oHttp As object Dim strURL As String Dim strText As String Dim wRow As Long Dim wArr() As String Dim cell(100,100) as string dim a as object open "c:\test.txt" for output as #1 'オブジェクト変数に参照セットする Set oHttp = CreateObject("Microsoft.XMLHTTP") with oHttp strURL = "http://stocks.finance.yahoo.co.jp/stocks/detail/?code=1301" .Open "GET", strURL, False .setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT" .Send If (.Status < 200 Or .Status >= 300) Then MsgBox "URL読み込みに失敗しました", vbExclamation + vbOKOnly, "Error!" GoTo ExitTrap End If var a = oHttp.responseText Print #1, a stop 作業途中で変数aにソースが入力されるかを出力して確認しているのですが、何度行っても空白のままです。 何卒、不具合点、気付き点、ご意見、ご助言を頂けます様宜しくお願いします。 回答
感想,コメント,メモ
|