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
--------------------------------------------------------------------------


取得できるのは日足のみだけど、週足と月足は日足から作れるので問題ない。