VBA VBAからPOSTする方法

Sub test()

'参照設定する場合(Microsoft XML, v6.0)

Dim xml As XMLHTTP60
Set xml = New XMLHTTP60

'参照設定しない場合

'Set 変数名 = CreateObject("MSXML2.XMLHTTP")

url = "https://appbay.org/"
param = ""

xml.Open "POST", url, False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send (param)

Do While xml.readyState < 4
  DoEvents
Loop

Debug.Print xml.Status
Debug.Print xml.responseText

Set xml = Nothing

End Sub

Sub test()

'参照設定する場合(Microsoft XML, v6.0)

Dim xml As XMLHTTP60

Set xml = New XMLHTTP60

'参照設定しない場合

'Set 変数名 = CreateObject("MSXML2.XMLHTTP")

url = "https://appbay.org/"

param = ""

xml.Open "POST", url, False

xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xml.send (param)

Do While xml.readyState < 4

DoEvents

Loop

Debug.Print xml.Status

Debug.Print xml.responseText

Set xml = Nothing

End Sub