チ便利ツールシリーズビックリマーク

調べ物用に作りました。windows専用です。

以下のコードをメモ帳に貼り付け、「ヤフーファイナンス時系列開く.vbs」という名前で保存します。

そのファイルをダブルクリックすると

銘柄コード -> 市場コード(t/q/j/o) -> 日付(yyyymmdd) を聞いてくるので入力します。

ニッパーのシステムトレード研究所ニッパーのシステムトレード研究所ニッパーのシステムトレード研究所


するとIEでYahooファイナンスの時系列(日付で指定した±5の期間)が開きますわんわん

ニッパーのシステムトレード研究所

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

Option Explicit

dim code
code = InputBox("","銘柄コードを入力してください","0000")
if code = "" then
WScript.Quit
end if
'msgbox code

dim market_id
market_id = InputBox("","市場コードを入力してください","t")
if market_id = "" then
WScript.Quit
end if
'msgbox market_id

dim date
date = InputBox("","日時を入力してください","20090123")
if date = "" then
WScript.Quit
end if
'msgbox date

dim yyyy,mm,dd
yyyy = left(date,4)
mm = mid(date,5,2)
dd = right(date,2)
'msgbox yyyy
'msgbox mm
'msgbox dd

dim startdate
startdate = DateValue(yyyy+"/"+mm+"/"+dd)
startdate = DateAdd("d",-5,startdate)

dim enddate
enddate = DateValue(yyyy+"/"+mm+"/"+dd)
enddate = DateAdd("d",5,enddate)

dim s_yyyy
dim s_mm
dim s_dd
s_yyyy = CStr(Year(startdate))
s_mm = CStr(Month(startdate))
s_dd = CStr(Day(startdate))

dim e_yyyy
dim e_mm
dim e_dd
e_yyyy = CStr(Year(enddate))
e_mm = CStr(Month(enddate))
e_dd = CStr(Day(enddate))

dim url
url="http://table.yahoo.co.jp/t?c="
url=url+s_yyyy
url=url+"&a="
url=url+s_mm
url=url+"&b="
url=url+s_dd
url=url+"&f="
url=url+e_yyyy
url=url+"&d="
url=url+e_mm
url=url+"&e="
url=url+e_dd
url=url+"&g=d&s="
url=url+code
url=url+"."
url=url+market_id
url=url+"&y=0&z="
url=url+code
url=url+"."
url=url+market_id
url=url+"&x=sb"
'http://table.yahoo.co.jp/t?c=2009&a=5&b=24&f=2009&d=8&e=25&g=d&s=4783.q&y=0&z=4783.q&x=sb
'msgbox url


Dim objIE

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Width = 800
objIE.Height = 600

objIE.Left = 0
objIE.Top = 0

objIE.Statusbar = False
objIE.ToolBar = False

objIE.Visible = True

objIE.Navigate url '"http://www.yahoo.co.jp/"

Do Until objIE.Busy = False
WScript.sleep(250)
Loop

objIE.Statusbar = True
objIE.ToolBar = True

Set objIE = Nothing

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

ペタしてね

こちらもペタお願いします->株式投資ランキング