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

Step 3 指定URLのリンク先一覧を作成する


リンク先を取り出すには、document.Links を使用します。
取得した配列数回分、ループ内でセルに入力します。


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

設定画面

リンク先一覧が作成できました。
リンク先のURLをセルにセット


実行VBAコード

'リンク先一覧を作成する
Private Function ExMakeLinkList(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
        If Left(tIEobj.document.Links(i).href, 4) = "http" Then
            'セルに記入
            Cells(lrow + i, lcol) = tIEobj.document.Links(i).href
        End If
    Next
    ExMakeLinkList = tIEobj.document.Links.Length
End Function


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

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


Copyright (c) Excel-Excel ! All rights reserved