Step23：ファイルの更新日時とサイズをコメント文として追加する｜Excel VBA

変換の必要があるか比較するために、ファイルの更新日時とサイズをHTMLのコメント文で追加します。コメントは＜/HTML＞を検索しその前に挿入します。

HTMLのコメントの書き方

始りに<!--を、終わりに-->を使った<!--コメント-->になります。

VBAで更新日時とサイズを挿入する

ファイル一覧の隣のセルにある、更新日時とサイズを挿入します。


作成した更新日時とサイズを挿入するVBAです。


・更新日時とサイズを引数にしています。
・</html>を検索し、見つかった位置から前後に分けています。
・更新日時とサイズをコメント文にします。
・挿入し全体を組み立てます。

Private Sub MyModifiedSizeAddHtml(c1 As Date, c2 As Long)
    Dim ln As Long
    Dim s1 As String
    Dim s2 As String
    Dim s3 As String
    Dim s4 As String

    ln = InStr(1, sUtfBuf, "</html>", vbTextCompare)
    If ln > 0 Then
        s1 = Left(sUtfBuf, ln - 1)
        s2 = Right(sUtfBuf, Len(sUtfBuf) - ln + 1)
        s3 = "<!-- Modified:" & c1 & "-->"
        s4 = "<!-- Size:" & c2 & "-->"
        sUtfBuf = s1 & s3 & vbCr & s4 & vbCr & s2
    End If
    Debug.Print sUtfBuf
End Sub

実行結果のイミディエイトウィンドウです。
正常に追加されているのが分かります。