ヤフーファイナンスの株価時系列データをEXCELのVBAでデータ取り込み

ヤフーファイナンスの株価時系列データを、EXCELのVBAでデータの取り込み方をご教授ください。
Sheet1、B1に銘柄コードを記入し、日付、始値、高値、安値、終値、出来高のデータを同Sheet1のV4に貼り付けたいのですが、どのようなコードになるでしょうか？

取得期間は”デイリー”(YYYY/MM/DD)で過去１年から現在までの期間で抽出できれば完璧です。
ご協力して頂ける方、大変お手数おかけしますが是非お願い致します。

質問者からの補足コメント

• WEBクリエではなく、マクロでのデータ取得を希望しています。

    補足日時：2017/08/26 20:28

No.3 回答者： xs200 回答日時： 2017/08/26 23:01

https://info.finance.yahoo.co.jp/history/?code=7 …

の形式で1回に20営業日のデータがとれ、それを繰り返せばいいので簡単にVBAは組めます。

しかし、Yahoo!ファイナンス掲載情報の自動取得（スクレイピング）は禁止されています。禁止されていることはやらずにダウンロードできるサイトからにしましょう。
https://www.yahoo-help.jp/app/answers/detail/p/5 …

過去1年からでいいなら。
http://k-db.com/stocks/7203-T

どうしてもYahoo!ファイナンスから取得したいのであればVIP倶楽部に入りましょう。
https://info.finance.yahoo.co.jp/vip/pr/

VIP倶楽部に入ると1983年からのデータが取得できますが、1999年からでよければこのサイトでダウンロードできます。1日遅れなので注意。
https://stooq.com/q/d/?s=7203.jp

VBAでCSVを読み込む方法はこちら。
http://www.tipsfound.com/vba/18014


自分で組まなくても自動取得プログラムがネットにあるのでそれを使うのが簡単。

No.2 回答者： 2014itochan 回答日時： 2017/08/26 20:10

ヤフーファイナンスの株価時系列データ

の構造が分からないので（アドレスが有れば・・・）

基本
http://k-db.com/futures/F102-0000
のようなら、AN-1のアドレスの中の
「Web クエリを他のデータ ソースにリダイレクトする」
になるでしょう。

事前にエクセルにＷＥＢデータを貼り付ける作業を手作業で済ませれば
kueri.Range("$ak$2:$ar$500").QueryTable.Refresh BackgroundQuery:=False
この一行で　日々の更新は完了します

No.1 回答者： zircon3 回答日時： 2017/08/26 13:54

とりあえず以下を読んで基本を理解されるとよいです。

https://support.office.com/ja-jp/article/Web-%E3 …

あとはYahoo!ファイナンスのページ内容を見ていかにするかでしょう。
Googleなどで「Webページ内容のExcelへの取り込み」といった適当なキーワードで検索すると様々な解説ページがヒットすると思います。それらも参考になるでしょう。