エクセルVBAでRedmineのデータを取得する

#概要
　Redmineのチケット数が多い場合、ページネーションされるため、無限スクロールで確認したかった。とりあえずチケットの主要な項目をエクセルで一覧できるようにしました。
　抽出ボタンを押すと、同シート６行目以降にデータが書き出されます。ただし、チケット数が多きときはかなり時間が掛かります。プログレスバーを付けるべきかもです。

#環境

• Windows 10
• Excel 2016
• Redmine 4.1.0

#準備

• Excel
  • 「リボン > 開発 > Visual Basic > ツール > 参照設定 > Microsoft XML v6.0」にチェックをする。
  • リボンに開発タブが無いときは下記を参照ください。
    • 開発タブを表示する
• Redmine
  • 「個人設定 > 右側のAPIアクセスキー」を確認する。
  • チケットをxmlで開く、もしくはjsonで開く。
    • ブラウザのURL末尾に.xmlを付ける。
    • ブラウザのURL末尾に.jsonを付ける。

#コード

:vba
    Dim baseurl As String, targeturl As String
    Dim header As Integer, row As Integer
    Dim min As Integer, max As Integer
    Dim cnt As Integer
    Dim ticketid As String
    Dim dom As Object
    Dim issue As Object
    
    baseurl = "http://redmine/"
    header = 5
    row = header + 1
    min = 1
    max = 100
    cnt = min

    '[A～G]欄の[row～(max-min+1)]行まで一気にクリアする
    Range(Cells(row, 1), Cells(max - min + 1, 7)).Clear
    
    Do While Cells(row, 1) = ""
        
        ticketid = Trim(str(cnt - header))

        'APIアクセスキーなし
        targeturl = baseurl + ticketid + ".xml"
        'APIアクセスキーあり
        'targeturl = baseurl + ticketid + ".xml?key=aaaaaaaaaaaaaaaaaaaa"
        
        Set dom = CreateObject("MSXML2.DOMDocument")
        dom.async = False
        dom.setProperty "ServerHTTPRequest", True
        dom.Load (targeturl)
        Set issue = dom.ChildNodes.Item(1)
        
        If Not (issue Is Nothing) Then
            Cells(row, 1) = issue.getElementsByTagName("id").Item(0).text
            Cells(row, 2) = issue.getElementsByTagName("project").Item(0).getAttribute("name")
            Cells(row, 3) = issue.getElementsByTagName("tracker").Item(0).getAttribute("name")
            Cells(row, 4) = issue.getElementsByTagName("status").Item(0).getAttribute("name")
            Cells(row, 5) = issue.getElementsByTagName("priority").Item(0).getAttribute("name")
            Cells(row, 6) = issue.getElementsByTagName("assigned_to").Item(0).getAttribute("name")
            Cells(row, 7) = issue.getElementsByTagName("subject").Item(0).text
            row = row + 1
        End If
        
        cnt = cnt + 1
        If cnt > max Then
            GoTo 9999
        End If
    Loop
9999

xlsmファイルは下記GitHubへアップしてあります。
https://github.com/i-chiaki/RedmineToExcel.git

#参考サイト
https://yujisoftware.hatenablog.com/entry/20130421/1366543773