[Excel VBA]日本株の株価コードから配当利回りの取得方法

2024年5月1日

投稿日：2024年5月1日 | 最終更新日：2024年5月1日

土日パパ

株価周りのVBA関数の需要があるようなので配当利回り取得関数を作りました。
マネーフォワードも愛用していますが、自分なりのカスタマイズした管理帳簿も欲しくてExcelも活用しています。

VBA 日本株の配当利回り取得関数

VBAで自作関数を使うための基礎知識(事前準備)
- VBA使用にはExcelファイルの拡張子をxlsm(マクロ有効ブック)にして保存する必要がある
- Excelのシートタブ上で右クリックして「コードの表示」を選択すればコード入力画面が開く
- コード入力画面左上の「プロジェクト」→「Microsoft Excel Objects」を選択して右クリックして「挿入」→「標準モジュール」を選択すると「Module1」が増える
- 「Module1」をダブルクリックしてActiveにして右のコード記載エリアに自作関数を記載する

Excel VBAで、指定証券コードの現在の配当利回りを取得する関数
- 2024/05/01時点でのWindows11、Office2019上での動作確認済み
  - どの環境でも動作保証してるわけではないので、使用は自己責任で
- コード入力画面に下記をコピペしたらOK

Function STOCKDIVIDENDYIELDJP(code)
    str_url = "https://finance.yahoo.co.jp/quote/" + CStr(code)
    On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", str_url, False
        .send
        Set stm = CreateObject("ADODB.Stream")
        stm.Type = 1
        stm.Open
        stm.Write .responseBody
        stm.Position = 0
        stm.Type = 2
        stm.Charset = "UTF-8"
        buf = stm.ReadText(-1)
    End With
    Err.Clear
    On Error GoTo 0
    tempstr = """shareDividendYield"":"""
    buf = Mid(buf, InStr(buf, tempstr) + Len(tempstr))
    buf = Left(buf, InStr(buf, """") - 1)
    STOCKDIVIDENDYIELDJP = buf
End Function