Module1.bas �t okU ���nkU Option Explicit Const API = "http://192.168.1.101/redmine/issues/" Sub ボタン1_Click() Dim i As Integer i = 2 Do While Cells(i, 1) <> "" 'エラー処理ルーチン無効化 On Error GoTo 0 Dim id As String id = Cells(i, 1) Dim issue As Object 'APIアクセスキーなしの場合は、こちらを使用 Set issue = GetXmlData(API + id + ".xml") 'APIアクセスキーありの場合は、こちらを使用 'Set issue = GetXmlData(API + id + ".xml?key=xxxxxxxxxxxxxxxxxxxxx