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

'リンク先一覧を作成する
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