ExcelでGoogleサイトマップ用xmlファイル作成ソフトを作ってみよう

Step 10 <lastmod> タグの為、更新日を取得する

サイトマップのXMLファイルには<lastmod>タグがあり、オプションで更新日を含めることができるようになっています。
そこで、ファイル更新日が取得できないか試してみます。

更新日の取得は、document.LastModified でできそうです。

Homeへ > アプリケーションソフト > xmlファイル作成ソフト > Step10 更新日を取得する


スポンサーリンク





実行画面

C列に更新日が入力されています。
ところが全て同じ日時になっています。実際の更新日とも異なります。
結果、document.LastModifiedでは正常に取得できないようです。
いろいろ試しましたがうまくいきません。残念ですが今回はあきらめることにします。
ファイル更新日の取得シート

スポンサーリンク



実行コード

下記のコードに変更してください。
'リンク先一覧を作成する

Private Function ExMakeLinkList(surl As String, lrow As Long, lcol As Long) As Long
    Dim i As Integer
    Dim s1 As String
    Dim n As Long
    Dim llen As Long
    Dim trange As Range

    n = 1
    llen = Len(surl)
    'リンクの取り出し
    For i = 0 To tIEobj.document.Links.Length - 1
        If Left(tIEobj.document.Links(i).href, 4) = "http" Then
            
            s1 = LCase(tIEobj.document.Links(i).href)
            '内部リンクかどうか
            If s1 <> surl And Left(s1, llen) = surl Then
                
                'ラベルかどうか判定する
                If InStr(1, tIEobj.document.Links(i).href, "#") = 0 Then
                
                    '取り出されているURLを検索し、なければ表示する
Set trange = ActiveSheet.UsedRange.Columns(2). _
Find(What:=tIEobj.document.Links(i).href, _
LookIn:=xlValues, LookAt:=xlWhole)
                    If trange Is Nothing Then
                        Cells(lrow + n, lcol) = tIEobj.document.Links(i).href
                        Cells(lrow + n, lcol + 1) = tIEobj.document.LastModified
                        lMaxRow = (n + lrow)
                        n = n + 1
                     End If
                End If
                
            End If
            
        End If
    Next
    ExMakeLinkList = n
End Function




Homeへ > アプリケーションソフト > xmlファイル作成ソフト > Step10 更新日を取得する

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved