|
>すでにKeinさんからコメントがついていて、解決の方向に向かわれているかもしれ
>ませんが、私が使っているコードでサンプルを作ってみました。
>Sheet3のA列に取得したい銘柄コードを記述します。
>Sheet2にWebクエリの結果を取得して、Sheet1にその情報に基づきデータベースを
>出力します。
>実は、このコードは、とある掲示板で元々Keinさんから教えていただいたものに、
>私なりに必要なコードを追加しています。
>
>Sheet3の取得対象銘柄コードには、1001〜9999と連番で9000個のコードを設定して
>Sheet1には、取得できた銘柄コード3888個のデータを取得するのに、約4分かかり
>ましたが、特段のトラブルなく問題なく完了しました。
>
かみちゃんさん、わざわざ動作確認までして頂きありがとうございます。
早速確認してみましたが、結果は私のコードと同じようにある程度まで正常に動作していましたが、途中で「Web接続中・・・」表示のまま固まってしまいました。かみちゃんさんの環境では正常動作しているようなので、コードの問題ではなく、OSやExcelのバージョンによる問題かネット環境の問題なのだと思われます。OSはWindows2000でExcelはExcel2000を使用していますが、おそらくはネット環境に問題があるのだと思います。Excel VBAのWEBクエリ取得処理はサーバーから返信が来なかった場合に対する処理が欠けていると推測します。トラフィックが大きく、不安定な環境だとWEBクエリを利用した手法は困難だということで、他の手法を検討します。
コードの問題では無いことが確認できただけで大助かりです。
とても感謝しております。
本当にありがとうございました。 m(_ _)m
|
|