- サマリ: Open Office Basic にてwebサイトのソースデータを取得する方法を教えて下さい。
- 環境: Calc
- 状態: 解決
- 投稿者: new_OOo3?
- 投稿日: 2009-03-27 (金) 01:18:47
質問 
お世話になります。
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
作業途中で変数ａにソースが入力されるかを出力して確認しているのですが、何度行っても空白のままです。
何卒、不具合点、気付き点、ご意見、ご助言を頂けます様宜しくお願いします。
回答
- お騒がせしてすいません。自己解決いたしました。 -- new_OOo3
感想，コメント，メモ
