■下準備:参照設定しておくこと ■サンプルコード Basic認証なしの場合 Sub HTTPリクエスト() Dim httpReq As XMLHTTP60 Set httpReq = New XMLHTTP60 httpReq.Open "GET", "https://www.au.com/mobile/area/5g/station/" httpReq.Send 'Do While httpReq.readyState < 4 ' DoEvents 'Loop Do While (httpReq.readyState < 4) And (httpReq.Status <> 200) DoE…