sitemap.xmlを簡単に作れるエクセルマクロコードをchatGPTで作ってみた

Sub Generate_Sitemap()
Dim fso As Object
Dim file As Object
Dim folder As Object
Dim ws As Worksheet
Dim url As String
Dim priority As String
Dim changefreq As String
Dim i As Integer
Dim lastrow As Long

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.CreateFolder("C:\Sitemap")

Set file = fso.CreateTextFile("C:\Sitemap\sitemap.xml", True)
file.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
file.WriteLine "<urlset xmlns=""http://www.sitemaps.org/schemas/sitemap/0.9"">"

Set ws = ThisWorkbook.Sheets("Sheet1")
lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

For i = 2 To lastrow
    url = ws.Cells(i, 1).Value
    priority = ws.Cells(i, 2).Value '優先度を取得します。
    changefreq = ws.Cells(i, 3).Value '更新頻度を取得します。

    '特殊文字をエンコードします。
    url = Replace(url, "&", "&amp;") ' & を &amp; に変換します。

    file.WriteLine "<url>"
    file.WriteLine "<loc>" & url & "</loc>"
    If priority <> "" Then
        file.WriteLine "<priority>" & priority & "</priority>" '優先度を設定します。
    End If
    If changefreq <> "" Then
        file.WriteLine "<changefreq>" & changefreq & "</changefreq>" '更新頻度を設定します。
    End If
    file.WriteLine "</url>"
Next i

file.WriteLine "</urlset>"
file.Close

MsgBox "sitemap.xmlを作成しました。"

End Sub

このコードはchatGPTで作ってあり、自分のPCで検証済みです。sitemap.xmlファイルが一瞬で簡単に作れます。