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

Step 13 抽出したURLから<URL>〜</URL>文を作成する

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

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

Homeへ > アプリケーションソフト > xmlファイル作成ソフト > Step13 <URL>〜</URL>文を作成する


スポンサードリンク



シート画面

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

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

スポンサードリンク



実行コード

'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

スポンサードリンク





Homeへ > アプリケーションソフト > xmlファイル作成ソフト > Step13 <URL>〜</URL>文を作成する

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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved