Numbersで株価情報一覧を自動取得する

2021-02-132022-09-23

Contents

1. 概要
- 1.1. 目的
2. 方法
- 2.1. 準備
- 2.2. 手順
  - 2.2.1. Numbersの起動
  - 2.2.2. AppleScriptの作成
3. まとめ

概要

目的

Numbersのデフォルトの機能を使って株価を自動取得するマクロを作成します。

その他の方法としてPythonでyahoo-finance-api2を使用することで株価を取得できます。方法については「yahoo-finance-api2を用いたPythonによる株価の自動取得」を参照してください。

方法

準備

以下のサイトから東証上場銘柄一覧を取得してください。
その他統計資料 | 日本取引所グループ

手順

NumbersにはExcelのようにマクロはありません。そのためApplescriptを使用します。

Numbersの起動

Numbersを起動して、新規作成を選択します。その後、先程ダウンロードした東証コードが書かれたファイルから、A列にすべての東証コードを貼り付けます。

AppleScriptの作成

Script Editorを起動して、以下のスクリプトを記載します。

property FIRST_ROW : 2
property LAST_ROW : 4089
property STOCK_PRICE : 0
property STOCK_NAME : 1
property STOCK_CHANGE : 2
property STOCK_PERCENT_CHANGE : 3
property STOCK_OPEN : 4
property STOCK_HIGH : 5
property STOCK_LOW : 6
property STOCK_MARKET_CAP : 7
property STOCK_VOLUME : 8
property STOCK_YIELD : 9
property STOCK_ONE_YEAR_TARGET : 10
property STOCK_FIFTY_TWO_WEEK_HIGH : 11
property STOCK_FIFTY_TWO_WEEK_LOW : 12
property STOCK_AVE_THREE_MONTH_VOLUME : 15
property STOCK_BETA : 16
property STOCK_CURRENCY : 19
property STOCK_ANNUAL_DIVIDEND : 20
property STOCK_EPS : 21
property STOCK_EXCHANGE : 22
property STOCK_PE_RATIO : 23
property STOCK_PREVIOUS_CLOSE : 24
property STOCK_SYMBOL : 25

set homePath to "Existing Numbers Folder Path"
set formulaList to {STOCK_PRICE, STOCK_NAME, STOCK_CHANGE, STOCK_PERCENT_CHANGE, ¬
    STOCK_OPEN, STOCK_HIGH, STOCK_LOW, STOCK_MARKET_CAP, STOCK_VOLUME, STOCK_YIELD, ¬
    STOCK_ONE_YEAR_TARGET, STOCK_FIFTY_TWO_WEEK_HIGH, STOCK_FIFTY_TWO_WEEK_LOW, ¬
    STOCK_AVE_THREE_MONTH_VOLUME, STOCK_BETA, STOCK_CURRENCY, STOCK_ANNUAL_DIVIDEND, ¬
    STOCK_EPS, STOCK_EXCHANGE, STOCK_PE_RATIO, STOCK_PREVIOUS_CLOSE, STOCK_SYMBOL}

--Open Number
tell application "Finder"
    activate
    open document file (homePath & "NumbersFileName" as POSIX file)
    delay 2
end tell

tell application "Numbers"
    set cnt to 1
    repeat with i in formulaList
        repeat with j from FIRST_ROW to LAST_ROW
            tell table 1 of sheet 1 of document 1
                set colChar to ASCII character (65 + cnt)
                set value of cell (colChar & j) to "=STOCK($A" & j & " & \".T\"," & i & ")"

                repeat while value of cell (colChar & j) = " … "
                end repeat

                --Delete function
                set value of cell (colChar & j) to value of cell (colChar & j)
            end tell
        end repeat
        set cnt to cnt + 1
    end repeat
end tell

--Sleep PC
tell application "System Events"
    sleep
end tell