vbaとHTTPリスクエストを使用したwebサイトの更新日時取得

Question

VBAを使ってHTTPリクエストで特定のサイトにリクエストを送って、そのレスポンスヘッダーの「Last-Modified」を取得したいです。
MSXML2.XMLHTTPオブジェクトを使用してみましたが、どうやらレスポンスヘッダーは取得できないようで他に方法はありますか？

Answer 1

XMLHttpRequest object

使ったことはないんですが、取得できるんじゃないですか？
getResponseHeader() というメソッドがあります。

Comments

[退会済みユーザー]

getResponseHeader("last-modified")を実行しても何も表示されないのですが、何故でしょうか・・・。

Dim http As Object
Dim response As String
Set http = CreateObject("MSXML2.XMLHTTP")

http.Open "GET", "https://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwibor6RpM3SAhXLk5QKHUEcBgMQFggfMAA&url=https%3A%2F%2Fja.wikipedia.org%2Fwiki%2F%25E6%2595%25B0%25E5%25AD%25A6&usg=AFQjCNHMPYjZ_OFEEYnCIL56OsawJ07H4w&sig2=WlFMSyhn-OrRcBqAOdCKLA&bvm=bv.149397726,d.dGo", False
http.Send

' ダウンロード待ち
Do While http.readystate <> 4
Loop

' 結果出力
Debug.Print http.getResponseHeader("last-modified")
Set http = Nothing

[Zuishin]

getAllResponseHeaders() を使ってすべてのヘッダを取得した内容はどうなっていますか？

[Zuishin]

こちらでやってみましたが、Last-Modified はありませんね。ないものは無理です。

[退会済みユーザー]

以下、getAllResponseHeaders()の出力結果です
-------------------------------------------------------------
Date: Sat, 11 Mar 2017 02:39:01 GMT
Pragma: no-cache
Expires: Fri, 01 Jan 1990 00:00:00 GMT
Cache-Control: no-cache, must-revalidate
Content-Type: text/html; charset=UTF-8
Server: gws
X-XSS-Protection: 1; mode=block
Alt-Svc: quic=":443"; ma=2592000; v="36,35,34"
Transfer-Encoding: chunked
-------------------------------------------------------------

「last-modified」はないので、getResponseHeaderで取得できなかったみたいです。
「last-modified」などの他の項目を表示する方法や、MSXML2.XMLHTTPオブジェクトを使用しないでレスポンスヘッダーを取得する方法はありますか？

[Zuishin]

HTTP/1.1 において Last-Modified は必須ではありません。最初から送出されてない以上、無理です。

[退会済みユーザー]

ご回答ありがとうございました。