Kingsoft Spreadsheetsで株価取得 その１

さて、前の記事で作成したKingsoft Spreadsheetsのシートに、
株価更新の機能を追加していきます。

需要はなさそうですが、VBA自体はExcelと同じみたいなので、簡単に説明していきます。
※私の使用しているKingsoft SpreadsheetsはVBA版です。
通常のKingsoft SpreadsheetsだとVBAが使えないと思います。ご了承ください。

データの取得元はYahoo!ファイナンスです。

適当な位置にコマンドボタンを作成して
Visual Basicエディターを起動します。

今回はHTMLDocumentを使用しますので、
参照設定からMicrosoft HTML Object Library を選択します。

コマンドボタンのクリックイベントの中にデータ取得のプログラムを書きます。

Private Sub CommandButton1_Click()     Dim html As MSHTML.HTMLDocument     Set html = New MSHTML.HTMLDocument     Dim resHtml As String                  Dim document As MSHTML.HTMLDocument     Set document = html.createDocumentFromUrl("http://info.finance.yahoo.co.jp/history/?code=6753.T&sy=2012&sm=8&sd=8&ey=2012&em=8&ed=9&tm=d", vbNullString)          Do         DoEvents         If (document.readyState = "complete") Then             Exit Do         End If     Loop While (True)             resHtml = document.body.innerHTML End Sub

 

上の例はとりあえずシャープの時系列を取得しています。
resHtmlにシャープの時系列のページが入っていますので、
そこから終値を抜き出す必要があります。

その前に、シャープ固定だと何の役にも立たないので＾＾；、
次回はシート上のコードからURL文字列を作成したいと思います。

タグ：VBA