Excelでサイトマップ作成ソフトを作ってみよう

'リンク先を取り出す
Private Function ExGetLink(sUrl As String, lrow As Long, lCol As Long) As Long
    Dim i As Long
    Dim n As Long
    Dim s1 As String
    Dim llen As Long
    Dim trange As Range
       
    n = 1
    llen = Len(sUrl)
    For i = 0 To tIEobj.document.Links.Length - 1
        If IsNull(tIEobj.document.Links(i).href) = False Then
        
        Debug.Print tIEobj.document.Links(i).href
        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
                '既に取り出されていないかチェックする
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
                    lMaxRow = lrow + n
                    n = n + 1
                End If
                Set trange = Nothing
            End If
        End If
        End If
    Next
    ExGetLink = n - 1
End Function