ExcelでGoogle（グーグル）サイトマップ用xmlファイル作成ソフトを作ってみよう Step 13　抽出したURLから＜URL＞～＜/URL＞文を作成する

XMLファイルの中身を作成します。
一つのURLには、
<loc>～</loc>
<lastmod>～</lastmod>
<changefreq>～</changefreq>
<priority>～</priority>
を作成することができますが、まず簡単に<loc>～</loc>文を作成することにします。

抽出したURLを上からループし、URLがなくなるまで作成します。

シート画面

■ 実行画面
「作成開始」ボタンをクリックするとサイト内のURLを抽出します。（リンク文がないと抽出できません）
その後、XMLの中身を作成します。
Excel実行シート

Debug.Print で作成できた文字列を表示させました。
正常に作成できているようです。
イミディエイトウィンドウ

実行VBAコード

'XML文の作成
Private Sub ExMakeXmlFile()
    Dim lrow As Long
    Dim lcol As Long
    Dim sxml As String

    sxml = ""

    '作成するサイトアドレスから作成する
    sxml = sxml + "   <url>" & vbCrLf
    sxml = sxml + "      <loc>" & TextBox1.Text & "</loc>" & vbCrLf
    sxml = sxml + "   </url>" & vbCrLf


    'URLがある開始セル位置
    lrow = 11
    lcol = 2

    '抽出したURLで構文を作成する
    While Cells(lrow, lcol) <> ""
        sxml = sxml + "   <url>" & vbCrLf
        sxml = sxml + "      <loc>" & Cells(lrow, lcol) & "</loc>" & vbCrLf
        sxml = sxml + "   </url>" & vbCrLf
        lrow = lrow + 1
    Wend
    Debug.Print sxml
End Sub

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

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

Step 13 抽出したURLから＜URL＞～＜/URL＞文を作成する

シート画面

実行VBAコード

Step 13　抽出したURLから＜URL＞～＜/URL＞文を作成する