Top > OOobbs2 > 172

OOobbs2/172 Edit

  • サマリ: Open Office Basic にてwebサイトのソースデータを取得する方法を教えて下さい。
  • 環境: Calc
  • 状態: 解決
  • 投稿者: new_OOo3?
  • 投稿日: 2009-03-27 (金) 01:18:47

質問 Edit

お世話になります。

Open Office BasicにてWeb上の株価を入手する為に、任意のURLのソースデータを入手方法を教えて下さい。 現在、下記コードを記しているのですが、サーバーからのテキストデータが受信できません。

******* マクロコード ******** Edit

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にソースが入力されるかを出力して確認しているのですが、何度行っても空白のままです。

何卒、不具合点、気付き点、ご意見、ご助言を頂けます様宜しくお願いします。

回答 Edit

  • お騒がせしてすいません。自己解決いたしました。 -- new_OOo3 2009-04-09 (木) 17:46:08

感想,コメント,メモ Edit



Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes