VBAで、URLで指定したファイルのタイムスタンプを取得したいです。
例
http://example.com/files/abcde.xlsx
一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。
よろしくお願いします。
VBAで、URLで指定したファイルのタイムスタンプを取得したいです。
例
http://example.com/files/abcde.xlsx
一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。
よろしくお願いします。
MSXML2.XMLHTTPを使用してヘッダから更新日時を取得する例です。
Last-Modified
がヘッダに含まれている場合はファイルをダウンロードせずに更新日時を表示します。
コメントとHow to get http response header in VBScriptを参考に実装しました。
Sub ボタン1_Click()
Dim h
Set h = CreateObject("MSXML2.XMLHTTP")
h.Open "HEAD", "http://localhost:8000/Book1.xlsx", False
h.send
Dim headers
headers = h.getAllResponseHeaders()
If InStr(headers, "Last-Modified") > 0 Then
MsgBox h.GetResponseHeader("Last-Modified") '通信回数を減らしたい場合はheadersをSplitしてください
Else
MsgBox "Last-Modifiedが見つかりません"
End If
End Sub