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

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の部分でサーバに接続できないエラーが出るようになってしまいました。
とりいそぎご報告。