エクセルで株価を自動取得するＶＢＡコードを紹介します。（日本株・米国株・投信対応版）

mochi  

Re: 正常なダウンロードができません

こんにちは。りょうさん。

> ダウンロード（Ｖ３．１３）をクリックし、拡張子を.xlsmにしました。エクセルファイルになったようですが、読み込んでも、「ファイルの一部の内容には問題がある」と表示され、さらに進めると、最終的には「ファイル形式またはファイル拡張子が正しくありません。」と表示され、終了してしまいます。ダウンロードができても、作動しない状況です。

当方であらためてダウンロードして再確認したところ問題なく動作しました。
（動作環境：Windows10、MS-Excel2016）
拡張子が.xlsmになっていることを再確認してください。
それ以上は当方では分かりません。

初めて使います。
ダウンロード（Ｖ３．１３）をクリックし、拡張子を.xlsmにしました。エクセルファイルになったようですが、読み込んでも、「ファイルの一部の内容には問題がある」と表示され、さらに進めると、最終的には「ファイル形式またはファイル拡張子が正しくありません。」と表示され、終了してしまいます。ダウンロードができても、作動しない状況です。
　どのようにすれば、正常に動くのか教えてください。
　よろしくお願いします。

mochi  

To tendonさん

こんばんは。tendonさん。

動作確認報告ありがとうございます。
今回は週末休みだったこともあり早めに対応できましたが、平日の障害発生だと時間が掛かってしまうと思います。
ご理解いただければ幸いです (*^^*)

米国株（や投信）は普段管理されていないとのことで、修正は完全なボランタリーワークなのに、早速のご対応、本当にありがとうございます。無事動作を確認できました。
Webサイトの構造変更はたまにありますため、Money Forwardの様に有償のサービスでないとメンテナンスは大変かと思いますが、お手すきの際でも構いませんので、今後も修正願えれば大変助かります。
私も、自分え修正できるようにプログラミングのスキルを付けようと思います（ちょっと時間かかりそうですが）

mochi  

Re: 3/28からエラーが出るようになりました。

こんばんは。tendonさん。

いつものように表示レイアウトの関係？で、目印としている識別コード部分data-reactidの値が変更になったために株価取得できなくなっていました。
今回は前日株価同様に表示文字列から識別コード部分を可変するようにしてみました。
これで少しは継続して動作するようになってくれればよいのですが…

VBAコード変更部分が複数行に渡っていますのでご注意ください。
分からないようであれば基本ファイルをダウンロードできるようにしてありますので、そちらを利用するようにしてください。

いつも株価取得VBAを活用させていただいております。
2020/3/27, 28あたりから、米国Yahooの現在の株価が取得できなくなったようです。
いろいろ見てみると、日本株、投資信託、米国株の前日価格は取得できるようです。
お手すきの時で良いので、修正願えますでしょうか。
宜しくお願い致します。

mochi  

To たかしさん

こんばんは。たかしさん。

> 2019年11月の時と同じような障害が発生しております。

障害内容としては前回とほぼ同じような感じです。
ただ今回は前日値を取得するための識別コード部分が銘柄によって可変しているようです。
それに対応させるためにVBAコード変更部分が複数行に渡っていますのでご注意ください。
分からないようであれば基本ファイルをダウンロードできるようにしてありますので、そちらを利用するようにしてください。

こんにちは。

2019年11月の時と同じような障害が発生しております。
私だけなのかもしれませんが・・・

念のため調査していただけますか？

お忙しいところ恐れ入りますがよろしくお願いいたします。

mochi  

To たかしさん

こんばんは。たかしさん。

> 先ほど動作確認しました。
> 早々に対応していただきありがとうございました。
> 少し確認しない間にアメ株の損失が拡大していました( ；∀；)

ひとまず株価取得できるようになって良かったです。
スクレイピング対策でころころフォーマットを変えてきているんだろうと思います。
おそらく3ヶ月ぐらい経つとまた変えられてエラーがでるようになってしまうかもしれません。
その際はお手数ですがご一報いただけると助かります。
米国株の損失拡大の件はご愁傷様ですとしか言えません。(;・∀・)

先ほど動作確認しました。
早々に対応していただきありがとうございました。

少し確認しない間にアメ株の損失が拡大していました( ；∀；)

mochi  

To たかしさん

はじめまして。たかしさん。

障害連絡ありがとうございます。

取り急ぎ対策方法を回答いたします。
記事中VBAコードを先ほど修正しておきました。

101行目 check_txt = "data-reactid=""42"">"の部分を42→44に変更してください。

はじめまして。
2～3日前くらいに外国株のデータを更新しようと思ったらエラーが出てしまいました。

113行目の
sosa_sh.Cells(check_row, old_price_column) = CDbl(old_price_txt)

の部分で実行時エラー'13'
型が一致しません。

となり更新ができなくなりました。
お忙しいところ恐縮ですが、ご確認いただけますでしょうか。
よろしくお願いいたします。

mochi  

To 鍵コメさん

ご連絡ありがとうございます。
ひとまず動作するようになって良かったです。

> 今日の夕方に出たエラーメッセージは
> http.sendの部分でサーバに接続できないエラーでした。
> サンプルシートでも試しましたが、同じエラーメッセージが出ていました。
> しかし、現在、なぜか解消されています。

サーバーが混み合っているなどの理由で応答が得られずにタイムアップしていたのかもしれません。
今度同じような症状が出た場合は、少し時間を置いてから再実行するようにしてみてください。

このコメントは管理人のみ閲覧できます

mochi  

To 鍵コメさん

鍵コメントである必要はないと判断いたしましたので、内容をそのまま引用させていただきます。

> 株価のダウンロードに使っていましたが今日、９月5日の午後4時頃から株価を取り込めなくなり、VBCでエラーがでるようになりました。

当方で動作確認（9月5日 21:05頃）したところ、記事中でダウンロードできるサンプルシートでは問題なく動作いたしました。
エラーが出る銘柄コードとエラー内容をご連絡ください。

このコメントは管理人のみ閲覧できます

mochi  

To 黒猫たま さん

こんばんは。黒猫たまさん。

無事に動作したようで良かったです。
FC2無料ブログではエクセルファイルの拡張子のままだとアップロードできないので、拡張子をrdfに書き換えることで無理矢理アップロードしています。ダウンロード後に拡張子をrdf→xlsmにすることでエクセルファイルとしてWindowsに認識されるようになります。
また障害発生した時はご連絡いただけると助かります。

展開されたVBAのエラーは当方のミスでした、申し訳ありません。ダウンロードファイルは、拡張子がrdfでしたが、xlsmに変更して動作確認できました。

このたびはご対応ありがとうございました。今後ともよろしくお願いいたします。

mochi  

To 黒猫たまさん

こんばんわ。黒猫たまさん。

> 先ほど、ダウンロード釦をクリックしましたが無反応でした。
　すみません。HTMLコードがミスっててダウンロードできないようになっていました。
　修正してダウンロードできることを確認しました。

> また、展開されたVBAをコピペしたところ、81行目で「実行時エラー'5'　プロシジャーの呼び出し、または引数が不正です。」　となってしまいます。
　記事中のVBAコードの方はコピペで問題なく動作しました。

お世話になっております、早速の対応ありがとうございます。

先ほど、ダウンロード釦をクリックしましたが無反応でした。また、展開されたVBAをコピペしたところ、81行目で「実行時エラー'5'　プロシジャーの呼び出し、または引数が不正です。」　となってしまいます。

重ね重ねのお願いになりますが、ご確認のほどお願い申し上げます。

mochi  

To 黒猫たまさん＆sekonyanさん

株価取得VBAの障害連絡ありがとうございます。

ヤフーファイナンスの投信情報URLが変更になったことでアクセス出来なくなっておりました。
またそれに伴いデータフォーマットも変更されていました。

先程、記事中VBAコードならびにダウンロードファイルを修正しておきました。ご確認ください。

今日から　実行時エラー：2147024891（80070005）　デバッグが　http.Send
の部分が該当されている模様です。

いつもお世話になっております。

株価取得Excelにて、表題のエラーが発生します。
本日8月20日にYahoo!ファイナンスのページを刷新した模様です。

6月末に続いて再度のお願いになりますが、ご確認いただければ幸いです。

mochi  

Re: 米国株式　株価取得でエラーの件

こんにちは。黒猫たまさん。

> ＶＢＡ修正ありがとうございました。
> 動作確認完了しました。

ひとまずエラー解消されたようで良かったです。
最近になって米国ヤフーファイナンスの内部構成が比較的頻繁に変更されるようなので、再びエラーが発生する時がやってくるかもしれませんが、その際はまた今回のようにご一報いただけると助かります。

いつもお世話になっております。

ＶＢＡ修正ありがとうございました。
動作確認完了しました。

mochi  

Re: 米国株式　株価取得でエラー

こんにちは。黒猫たまさん。

>米国株式価格取得ＥＸＣＥＬにて、１１２行目で「実行時エラー１３　型が一致しません」のエラーが出ます。

取り急ぎ対策方法を回答いたします。
記事中VBAコードを先ほど修正しておきました。
100行目 check_txt = "data-reactid=""44"">"の部分を44→42に変更してください。

いつもお世話になっております。

米国株式価格取得ＥＸＣＥＬにて、１１２行目で「実行時エラー１３　型が一致しません」のエラーが出ます。

お時間があるようでしたら確認していただければ幸いです。

mochi  

Re: 発行済株式数

はじめまして。KABUKABUさん。

> 発行済株式数の情報も取得することはできるのでしょうか！？

　具体的にどのように取得するかは別にして技術的には可能だと思いますよ。
　頑張って挑戦してみてください。

こんにちは！
発行済株式数の情報も取得することはできるのでしょうか！？

こちら神サイトはとても参考にさせていただいてます！
今後も楽しみに拝見させて頂きます！

mochi  

Re: 外国株取得でエラー

こんにちは。とらさん。

> 数日前から外国株取得でエラーが出るようになりました。

　障害内容確認しました。
　記事中VBAコードを先ほど修正しておきました。
　100行目 check_txt = "data-reactid=""41"">"の部分を41→44に変更してください。

公開していただいてるエクセルを利用しています。
大変使いやすくて重宝させていただいています。（毎日押してしまう…）

数日前から外国株取得でエラーが出るようになりました。
お手すきのときにでもみてみていただけるとうれしいです。
今後とも応援しております。

mochi  

Re: エクセルのエラー

取り急ぎ回答します。

92行目 check_txt = "data-reactid=""35"">"の35→34に変更してください。

いつも公開していただいているエクセルを使っています。
とても使いやすく、大変感謝しております。
2月25日から、アメリカ株の株価取得の際にエラーが発生するようになりましたので修正をしていただければ幸いです。

mochi  

Re: To mochiさん

こんにちは。hiroさん。

> ご推察のとおりでした。正常に取得できていることを確認しました。

解決できたようでなりよりです。

mochi  

Re: 汚いコードですが…

こんにちは。あれあれさん。

参考にさせていただきます。

ご推察のとおりでした。正常に取得できていることを確認しました。

他言語や Yahoo JAPAN以外のサイトでは 問題ないようですね
mochiさんの暫定策を元に 書いてみました

' ---- 20170331 頻繁ｱｸｾｽ対策 end --------

' ﾔﾌｰﾌｧｲﾅﾝｽをHTML形式で読み込む
Set http = CreateObject("MSXML2.ServerXMLHTTP")
http.Open "GET", url, False
http.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT"
http.setTimeouts 5000, 5000, 5000, 5000
On Error Resume Next
http.Send
If (Err.Number <> 0) Then Set http = CreateObject("MSXML2.XMLHTTP"): http.Open "GET", url, False: http.setRequestHeadhttp.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT": http.Send

If (http.Status <> 200) Then
GoTo Exit_out
End If
On Error GoTo 0

Err.Clear

If Len(http.responseText) < 10 Then
GoTo Exit_out
End If

mochi  

WSHの事は分かりませんが…

こんにちは。hiroさん。

> msgbox http.responseText

MsgboxはVBAだと1024文字しか表示することができません。
おそらくWSHのMsgboxにも同様の文字数上限があるのではないかと思います。
当方ではデバックや解析の際にはresponseTextをファイル出力して確認するようにしています。

当方ではWSHでやっていますが、記事を参考にして以下のようなコードで取得を試みました。

url = "https://stocks.finance.yahoo.co.jp/stocks/detail/?code=8001.T"
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
http.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT"
http.Send
msgbox http.responseText

その結果、何がしかのテキストデータの取得はできるようになりましたが、"stoksPrice"">"　に続くデータなど、必要な文字列が含まれていません。WSHとVBAの違いが原因なんでしょうか。

対応策ご教示ありがとうございます。再び動くようになりました。

mochi  

Re: No title

こんにちは。momoさん。

> とらりんさんと同じく同様のエラーが発生しました。丁度きのう、東証アローヘッドの問題が起きたことも関係あるのでしょうか。

　タイミング的には関係してそうに見えなくもありませんが、技術的にはヤフーファイナンスにアクセスしているだけなので関係ないとは思っているんですけどねぇ。
　ヤフーファイナンス自体、このVBAのようなwebスクレイピングは禁止してしてますんで、本気で何らかの対策を行ってきた可能性も否定できません。

> 上記の対処、参考にさせていただきます。有り難うございます。

　しばらく様子を見て元のVBAでアクセスできない状態が続くようでしたら、米国株との併用を考慮した上で、記事内容の変更フォローしようと思います。

とらりんさんと同じく同様のエラーが発生しました。丁度きのう、東証アローヘッドの問題が起きたことも関係あるのでしょうか。

上記の対処、参考にさせていただきます。有り難うございます。

mochi  

Re: http.sendでエラー

こんにちは。とらりんさん。

> 今日から？http.sendの部分でサーバに接続できないエラーが出るようになってしまいました。
> とりいそぎご報告。
　ヤフーファイナンス側で何かしたみたいです。
　日本株もしくは投信だけであれば、下記変更で暫定的に対処できました。

１．20行目のAPIを変更
　Set http = CreateObject("MSXML2.ServerXMLHTTP")
　　↓
　Set http = CreateObject("MSXML2.XMLHTTP")

２．60行目のタイムアウト設定行を削除
　http.setTimeouts 5000, 5000, 5000, 5000　←この行を削除

３．エクセルシートをダウンロードして利用している場合
http.Sendの下に続く以下の3行を全て削除

If (http.Status <> 200) Then
GoTo Exit_out
End If

　これが一時的なものなのか？恒久的なものなのかはわかりませんので、しばらく様子を見ることにします。
　米国株は元のプログラムでも取得できる（上の変更を行うと米国株は取得できなくなる）ので、シート内に米国株も含んでいる場合は、ひとまず「日本株と投信」「米国株」でシートもしくはファイルを分けて運用してください。

　とりいそぎ回答です。

今日から？http.sendの部分でサーバに接続できないエラーが出るようになってしまいました。
とりいそぎご報告。