質問: vbaでurl先のヘッダー情報を取得したいのですが、どなたかご教授をお願いいたします。 vbaの初心者です。次のurl先のヘッダー情報を取得したいのですが、どなたかご教授を宜しく お願い致します。パイソンは、インストールが出来ないため、vba+seleniumbasicの記述でお願い致します。 1. https://api01-platform.stream.co.jp/apiservice/plt3/mzq0%23mzc5mg%3d%3d%23360%231e6%230%233fe320f82400%23ozew%23 これは、動画です。 2. https://api01-platform.stream.co.jp/apiservice/plt3/mzq0%23mzc3mg%3d%3d%23360%231e6%230%233fe320f82400%23ozew%23 これは、静止画です。動画が無いためのエラー表示です。 出来れば、動画や静止画を表示しない方法が良いのですが、表示された場合、画像の削除命令も教えて頂けると大変助かります。 この目的は、urlを自動変化させて、動画のアドレスを自動取得させるものです。
回答: public function webserviceheader(byval url as string) as string ' dim xhr as new msxml2.xmlhttp60 dim xhr as object set xhr = createobject("msxml2.xmlhttp") call xhr.open("get", url, false) call xhr.send webserviceheader = xhr.getallresponseheaders end function