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
————————————————————————–
取得できるのは日足のみだけど、週足と月足は日足から作れるので問題ない。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です