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

Step 4 内部リンクかどうか判定する

document.Links で取り出したリンク先には、外部へのリンクも含まれます。
この外部リンクは必要ないので、内部リンクかどうか判定し選別するようにします。


Homeへ > Excelでアプリケーションソフト2 > xmlファイル作成ソフト

設定画面

このように、他のサイトへのリンクが取り出されています。
リンク先一覧シート

実行VBAコード

'リンク先一覧を作成する
Private Function ExMakeLinkList(lrow As Long, lcol As Long) As Long
    Dim i As Integer
    Dim s1 As String
    Dim n As Long
        
    'リンクの取り出し
    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
                Cells(lrow + n, lcol) = tIEobj.document.Links(i).href
                n = n + 1
            End If
            
        End If
    Next
    ExMakeLinkList = tIEobj.document.Links.Length
End Function

Homeへ > Excelでアプリケーションソフト2 > xmlファイル作成ソフト

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


Copyright (c) Excel-Excel ! All rights reserved