HTMLファイル取得

VBであるサイトのhtmlファイルを取得したいと思っています。
下記のＵＲＬを参考にして

ttp://hp.vector.co.jp/authors/VA014315/vbdown.htm

DownLoadFile("http://www.tibia.com/statistics/?subtopic=whoiso …

このようにFormから呼びだしています。
色々なURLで試したんですが、それらはうまくいくのですけど、このURLではうまくいきません。
原因と対処法がわかる方よろしくお願いします。
別のアプローチでこのhtmlファイルが取得できる方法を知っていらっしゃる方もよろしくお願いします。

No.1 ベストアンサー 回答者： tamtam_sep 回答日時： 2004/07/19 00:42

うまくいかない、とは具体的にどのような結果になるのでしょうか？

ちなみに、私がExcel2000のVBAで（VBが手元にないため）試したところ、VBAのエラーではなくWindowsのアプリケーションエラーでExcel自体が落ちてしまいました。メモリの開放などがうまくできてないのかも？

私は試していませんが、以下のページで別のアプローチ方法がありました。
こちらならうまくいくかもしれません。

参考URL：http://www.bcap.co.jp/hanafusa/VBHLP/urltodl.htm

この回答へのお礼

ありがとうございます。
うまくいきました。
どう検索してもこの答えにいきつかなかったです。
ダメだなぁ。

お礼日時：2004/07/27 20:01

No.2 回答者： piyo2000 回答日時： 2004/07/19 08:19

tamtam_sepさんが回答されているURLDownloadToFileを使う方法のほうがスマートですね。

参考にされたURLのサンプルコードでは、
lngRC = InternetReadFile(hURL, Buff(0), 1024, BytesRead)
とあるところにバグがあるようですね。
具体的に言うと、Buff()のサイズを動的に変化させているにも関わらず1024バイトを読み込んでいるところです。
lngRC = InternetReadFile(hURL, Buff(0), Ubound(Buff)+1, BytesRead)
とすればいいと思いますが、それでもフリーズしちゃいますけどね。

この回答へのお礼

既存のバグでしょうか。
やはりＯＳ依存ってのはダメですかねぇ。
試行錯誤していただきありがとうございます。

お礼日時：2004/07/27 20:02