web巡回ソフトみたいなのを作りたいのですが


プチシルマ  2004-06-03 01:18:25  No: 113655

web巡回ソフト程大層な物でなくて、リンク先が存在しているかどうかを
調べれるものを作りたいのですが、下記のようなプログラム(の主要部分)だと
リンク先が消えている場合に.sendの場所で止まってしまうのです。
他に方法がないか教えて貰えませんか?

Dim ojMSxml As Object 
Set ojMSxml = CreateObject("Microsoft.XMLHTTP") 
      ojMSxml.Open "GET", "http:・・・・", False 
      ojMSxml.Send 
      aaa = ojMSxml.responseText 

出来ればVBA(エクセル)で動くものをお願いします。


いな  2004-06-03 01:37:14  No: 113656

Dim ojMSxml As Object 
ON ERROR GOTO HTTP_ERR
Set ojMSxml = CreateObject("Microsoft.XMLHTTP") 
      ojMSxml.Open "GET", "http:・・・・", False 
      ojMSxml.Send 
      aaa = ojMSxml.responseText 

HTTP_ERR:
   MsgBox "リンク先ないよ"
   Err.Clear

とか?


プチシルマ  2004-06-03 01:48:45  No: 113657

回答ありがとうございます。
どうやらエラーを吐いて止まるわけでは無いらしく
やはり同じところで止まってしまいます。
普通は404エラーのhtmlが取得されると思いますが何故かダメっぽいです。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加