のた
実行時エラー'1004'について
岡三RSSを使用したファイルのマクロを実行すると、毎回ではないのですが、実行時エラー'1004'「WorksheetFunctionクラスのRTDプロパティを取得できません。」のエラーが発生するときがあります。
1度エラーが出ると、再実行してもエラーがでます。数分間を置いてから実行すると、正常に稼働できるときもあります。
原因と解決方法を教えて頂けますと助かります。よろしくお願い致します。
2025年03月05日
アップロードされたファイルにはウイルスチェックを行っておりますが、未知のウイルス等に感染されている場合がありますので、アップロードされたファイルのご利用はご注意ください。
また、取引パスワード等の重要な情報を投稿内容に含めないようご注意ください。
なお、アップロードされたファイルの利用や投稿内容によって、投稿者自身や他の利用者が被った損害に対して当社は一切責任を負いません。
また、セキュリティの関係上、一部コマンド等を含む内容を送信するとエラー画面が表示され、投稿ができない場合がございます。何卒ご了承ください。
岡三RSS集いの広場では、複数の単語による検索が可能です。
例）関数 and サンプル
→AND検索となり、「関数」および「サンプル」を含む検索結果が表示されます。
例）関数 or サンプル
→OR検索となり、「関数」または「サンプル」を含む検索結果が表示されます。
例）関数 not サンプル
→NOT検索となり、「関数」を含むが「サンプル」は含まない検索結果が表示されます。
※and、or、notの前後は半角スペースで区切ってください。
※単語の間を半角スペースで区切るだけだと、OR検索となります。
大野 了
のたさん、こんにちは！！
自分はすべての処理をVBAで書いて、10年以上動かしていますが、
残念ながら今回のたさんがおっしゃられている現象に出会ったことがなく・・・
一発で具体的な解決方法を提示することはできません。(申し訳ありません)
エラーの内容から想像しますと、
岡三RSSが壊れたりしていないのであれば、マクロを使われているとのことですので、
VBAと岡三RSSのバッティングが原因かと思われます。
VBAが実行中は岡三RSSが動作できないため、
もし永久ループなどでRSSを使用されたりしているのであれば、
Application.OnTimeを使用し、マクロを繰り返し実行する形に変更する
もしくは、ループの中にDoEvents を入れてというのがいかがでしょうか？
これらの対応を入れると、岡三RSSが動作できるタイミングができるので、動作が安定します！！
Application.OnTimeを使用してマクロを実行する形が一番安定すると思いますが、
ループの中にDoEventsを入れる形は1行追加するだけなので、簡単です！！
以前いただいた質問のリンクで大変申し訳ございませんが、こちらをご参考いただけますと幸いです。
onTimeの使い方
https://bbs.okasan-online.co.jp/ont/rss/board/?page=1&topic_id=258#comment_1385
もし岡三RSSが壊れてた場合の岡三RSSのクリーンインストール
https://bbs.okasan-online.co.jp/ont/rss/board/?page=1&topic_id=533#comment_2883
改善しなかったり、やり方がわからない場合は再度ご質問いただけますと幸いです！！
なんとか、解決したいですねー
2025年03月05日
のた
早速のご回答ありがとうございます。
まずはエラー箇所の前などにDoEventsを入れてみて、様子をみてみたいと思います。
また分からないことがありましたら質問させて頂きます。
ありがとうございました。
2025年03月05日
のた
大野様
結果のご連絡が遅れまして申し訳ございませんでした。
DoEventsを入れたり、岡三RSSをクリーンインストールしたりしてみたのですが、改善されませんでした。
いろいろ試してみました結果、200個ほど使用していたQUOTE関数をQUOTE_M関数へ変更したところ、
現在のところエラーは発生しない状態が続いているので、このまま様子を見てみたいと思います。
いろんな関数を大量にしようしていたことも影響があったのかもしれません・・・。
また分からないことがありましたら質問させて頂きます。
ありがとうございました。
2025年03月16日
大野 了
のたさん、こんにちは！！
なるほどー
QUOTE関数などが多いとそのようなエラーが出ることもあるんですねー
自分も一つ勉強になりました。
ありがとうございます！！
なにはともあれ、解決できたようで良かったです！！
2025年03月16日