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

Step 14 XMLファイルを実際に作成する

XMLファイルを実際に作成します。
ファイルは、ヘッダー + URLリスト + フッター で作成し、テキストファイルで保存します。

テキストファイルの保存は
1)Open ファイル名 For Output As ファイル番号
2)Print #ファイル番号, テキスト文
3)Close ファイル番号
の順で行います。

Homeへ > アプリケーションソフト > xmlファイル作成ソフト > Step14 XMLファイルを実際に作成する


スポンサーリンク





シート画面

■ 実行画面
作成するとメッセージを表示します。
Sitemap実行シート

■作成したXMLファイルをメモ帳で開きました
sitemap.xml

スポンサーリンク



実行コード

Private Sub ExMakeXmlFile()
    Dim lrow As Long
    Dim lcol As Long
    Dim sxml As String
    Dim fno As Integer
    Dim sdir As String
    
    sxml = ""
    
    '作成するサイトアドレスから作成する
    sxml = sxml + "   <url>"
    sxml = sxml & vbCrLf + "      <loc>" & TextBox1.Text & "</loc>"
    sxml = sxml & vbCrLf + "   </url>"
    
    
    'URLがある開始セル位置
    lrow = 11
    lcol = 2
    
    '抽出したURLで構文を作成する
    While Cells(lrow, lcol) <> ""
        sxml = sxml & vbCrLf + "   <url>"
        sxml = sxml & vbCrLf + "      <loc>" & Cells(lrow, lcol) & "</loc>"
        sxml = sxml & vbCrLf + "   </url>"
        lrow = lrow + 1
    Wend
    
    Debug.Print sxml

    sdir = ActiveWorkbook.Path
    If Right(sdir, 1) <> "\" Then
        sdir = sdir & "\"
    End If
    
    'ファイル保存
    fno = FreeFile
    Open sdir & "sitemap.xml" For Output As fno
    Print #fno, TextBox2.Text
    Print #fno, sxml
    Print #fno, TextBox3.Text
    Close fno

End Sub




Homeへ > アプリケーションソフト > xmlファイル作成ソフト > Step14 XMLファイルを実際に作成する

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


Copyright (c) Excel-Excel ! All rights reserved