07/12/23 21:01:00 Q7K+YiMa.net
Sub Macro51()
On Error GoTo Err:
With ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Name)
行 = 1
Set xml = CreateObject("WinHttp.WinHttpRequest.5.1")
Set doc = CreateObject("Microsoft.XMLDOM") 'メモ CreateObjectするより、参照設定で指定したほうが本当はいいかも。
doc.Async = False '非同期をやめる。つまり同期にする。
'シーケンス１ リダイレクト先を取得
A = xml.option(6)
xml.option(6) = False '6=WinHttpRequestOption_EnableRedirects 'リダイレクトさせない
URL = "URLﾘﾝｸ(sec-sso.gmo.jp)" & .Cells(行, 3)
xml.Open "GET", URL, False
xml.send
Debug.Print xml.responseText
Location = xml.getResponseHeader("Location") 'リダイレクト先URLの取得
AA = InStr(Len("URLﾘﾝｸ(kabu.gmo.jp)"), Location, "/")
基底URL = Left(xml.getResponseHeader("Location"), AA - 1)
xml.option(6) = True '6=WinHttpRequestOption_EnableRedirects '以後はリダイレクトをさせる