スポンサーサイト
    Kapok の資産運用スポンサー広告
    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。
    --.--.-- / コメント:: - / トラックバック:: - / PageTop↑

    VBAで「PER取得マクロ」を作成しました
    Kapok の資産運用PCExcel VBA
    株価指標のPERをYahoo!ファイナンスから取得し、Excelシートにコピーするマクロを作成しました。ソースを公開します。


    1. 動作と仕組み


    1-1. 動作

    マクロを実行すれば、下図のように、エクセルシートにPER等の情報が一覧で取得できます。

    VBA_getPER.png
    ※クリックで拡大します。


    1-2. 仕組み

    Yahoo!ファイナンスのページから、データを取得します。
    順位・コードの文字列を検索し、それを目印に銘柄・PER等のデータをコピーします。

    VBA_getPER2.png
    ※クリックで拡大します。


    1-3. 動作保障はしません

    私のPCのExcel2010では動きましたが、動作は保障しません。


    2. ソースコード



    Sub getper()
    Dim url As String
    Dim ii As Integer
    Dim srow As Integer 'ソースの行 検索用

    Dim dst_sh As Worksheet

    '貼り付け先のシートを覚えておく
    Set dst_sh = ActiveSheet

    For ii = 1 To 58

    'URLを作り、ファイルを開く
    url = "http://info.finance.yahoo.co.jp/ranking/?kd=10&tm=d&vl=a&mk=1&p=" & ii
    Workbooks.Open Filename:=url

    '順位・コードの文字を目印に、データの行を取得
    srow = 1
    Do While (Cells(srow, 1) <> "順位") * (Cells(srow, 2) <> "コード")
    srow = srow + 1
    Loop

    'コピーする
    Range(Cells(srow + 1, 1), Cells(srow + 50, 9)).Copy

    'ペーストする
    dst_sh.Activate
    Cells((ii - 1) * 50 + 2, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

    '使ったファイルを閉じる
    Windows("info.finance.yahoo.co.jp").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Close


    Next ii
    End Sub



    3. 参考ページ


    mochiさんの記事: エクセルで株価を自動取得するVBAコードを紹介します

    で勉強させていただきました。
    少し改造していますが、基本設計はほとんど同じです。

    ①VBAマクロでwebサイトからデータを取得
    ②必要なデータを抽出

    という方法を、今まで私は知りませんでしたので、大変参考になりました。

    Excelが思っていた以上に便利だと分かりました。今後は資産運用のツールとして利用できるように、もっとExcelの勉強をしていこうと思います。




    関連記事
    2013.10.24 / コメント:: 2 / トラックバック:: 0 / PageTop↑




    コメント:

    Secret


    Pagetop↑
    トラックバック:
    Pagetop↑
    Pagetop↑
    ブログ内検索
    プロフィール

    Kapok

    Author:Kapok


    個人投資家。1986年生まれのサラリーマンです。将来、資産運用で財産を築き、自由に暮らす事を夢見ています。

    ブログについて
    「資産運用について調べた事・考えたこと」をブログのメイン記事にしています。

    記事の情報の正確さには注意を払っていますが、保証はしません。投資判断は自己責任でお願いします。

    Kapok
    資産運用の方針
    資産運用は、下記の規定の範囲内で行っています。私Kapokが、どのような個人投資家であるかがよく分かるファイルになっています。

    Kapok の資産運用規定

    最近の記事・コメント

    アクセスカウンター
    ↑ポインタを合わせると、1週間のアクセス数推移が確認できます。

    Since Mar.17/2011
    Twitter
    おすすめ書籍
    ウォール街のランダム・ウォーカー 株式投資の不滅の真理
    Kapokの投資哲学に大きな影響を与えた1冊。個人投資家必読の書。

    スポンサー
    相互リンク
    資産運用全般

    株式個別銘柄投資 etc.

    投資信託 etc.

    債券・預貯金

    FX・派生商品 etc.

    その他 有価証券

    資産運用以外
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。