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

Step 4 サイト内のリンク先のみに絞る

サイトマップに外部リンクは必要ないので、取り出したリンク先から内部リンクのみに絞ります。

Homeへ > アプリケーションソフト > サイトマップ作成ソフト > Step4 サイト内のリンク先のみに絞る


スポンサーリンク



シート画面

「作成開始」ボタンをクリックした結果
サイトマップ作成シート

スポンサーリンク



下記のコードに変更してください。

'リンク先を取り出す
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
        
    n = 0
    llen = Len(surl)
    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
            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
    ExGetLink = tIEobj.document.Links.Length
End Function

スポンサーリンク





Homeへ > アプリケーションソフト > サイトマップ作成ソフト > Step4 サイト内のリンク先のみに絞る

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


Copyright (c) Excel-Excel ! All rights reserved