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

'リンク先を取り出す
Private Function ExGetLink(lrow As Long, lcol As Long) As Long
    Dim i As Integer
    Dim s1 As String
    
    For i = 0 To tIEobj.document.Links.Length - 1
        Debug.Print tIEobj.document.Links(i).href
        If Left(tIEobj.document.Links(i).href, 4) = "http" Then
            Cells(lrow + i, lcol) = tIEobj.document.Links(i).href
        End If
    Next
    ExGetLink = tIEobj.document.Links.Length
End Function