0

VBAで、URLで指定したファイルのタイムスタンプを取得したいです。


http://example.com/files/abcde.xlsx

一度ダウンロードしてしまえばいくらでも取得できるとは思うのですが、ダウンロードする前に確認して、新しくなっているようならダウンロードする処理をさせたいと思っています。

よろしくお願いします。

2

1 件の回答 1

1

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
1
  • ありがとうございます。サンプルをいただけたおかげで、なんとかできるようになりました。これからも何かありましたら宜しくお願いします。 Commented 2021年8月24日 1:14

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。