HTMLファイル取得

質問

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

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

DownLoadFile("http://www.tibia.com/statistics/?subtopic=whoisonline&world=Amera","C:\test.html")

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

回答No.1

tamtam_sep · ベストアンサー

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

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

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

参考URL：

http://www.bcap.co.jp/hanafusa/VBHLP/urltodl.htm

お礼

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

回答No.2

piyo2000

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

お礼

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