Pan Active Market Database を VBscript から使用する

日経平均価格のデータ取得を Yahoo Finance から Pan Active Market Database へ変更した。
Yahoo Financeは、無料でデータ取得ができるけど、htmlのソース記述が時々変更されるので、メンテナンスが大変だからだ。
Pan Active Market Databaseは、パンローリング社の「チャートギャラリー」という3万円くらいのソフトを購入すれば無料で利用できて、Visual Basic系の言語で使うのに最適である。
過去30年間の日経平均の4本値データをCSV形式で取得するのに、
VBScript (WSH) で、次のシンプルなスクリプトで済むのだから便利だ。
————————————————————————–
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set Calendar = CreateObject(“ActiveMarket.Calendar”)
Set Prices = CreateObject(“ActiveMarket.Prices”)
‘ファイル出力
outFile = ★ファイル名★
Set SaveFile = fso.CreateTextFile(outFile, true)
For DatePos = Prices.Begin to Prices.End
‘休場日でないならば、
If Not Prices.IsClosed(DatePos) Then
TempLine = “”
TempLine = TempLine & Calendar.Date(DatePos) & “,” ‘日付
TempLine = TempLine & Prices.Open(DatePos) & “,” ‘始値
TempLine = TempLine & Prices.High(DatePos) & “,” ‘高値
TempLine = TempLine & Prices.Low(DatePos) & “,” ‘安値
TempLine = TempLine & Prices.Close(DatePos) ‘終値
SaveFile.WriteLine TempLine
End If
Next
————————————————————————–
取得できるのは日足のみだけど、週足と月足は日足から作れるので問題ない。


My Company Links

合資会社ユースマネージメント
ドメインサービス
インターネット活用の入り口

My Website Links

細野俊一のトレーディング日記
日経225+JPX400銘柄の PPP(パンパカパン) 一覧
株価指数+外国為替(FX)の PPP(パンパカパン) 状態
「生命の科学」学習メモ
大安心と大冒険を求めて

Facebook Pages

ポイント&フィギュア活用研究会
合資会社ユースマネージメント
アダムスキー「生命の科学」活用研究会
細野俊一 (宇宙哲学研究家)