日経平均価格のデータ取得を Yahoo Finance から Pan Active Market Database へ変更した。
Yahoo Financeは、無料でデータ取得ができるけど、htmlのソース記述が時々変更されるので、メンテナンスが大変だからだ。

Pan Active Market Databaseは、パンローリング社の「チャートギャラリー」という３万円くらいのソフトを購入すれば無料で利用できて、Visual Basic系の言語で使うのに最適である。

過去３０年間の日経平均の４本値データを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
--------------------------------------------------------------------------

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