2016-07-07 19 views

答えて

1

MSXMLライブラリはVBA内で使用できます。次に、XMlHTTPリクエストを作成し、GETやPOSTなどを行うことができます。以下にコードサンプルがあります。それは後半、すなわち最初のライブラリを参照する必要はありませんバインディング使用しています。私は、このテストのウェブサイト使用してい

Option Explicit 

Sub Test_LateBinding() 

    Dim objRequest As Object 
    Dim strUrl As String 
    Dim blnAsync As Boolean 
    Dim strResponse As String 

    Set objRequest = CreateObject("MSXML2.XMLHTTP") 
    strUrl = "https://jsonplaceholder.typicode.com/posts/1" 
    blnAsync = True 

    With objRequest 
     .Open "GET", strUrl, blnAsync 
     .SetRequestHeader "Content-Type", "application/json" 
     .Send 
     'spin wheels whilst waiting for response 
     While objRequest.readyState <> 4 
      DoEvents 
     Wend 
     strResponse = .ResponseText 
    End With 

    Debug.Print strResponse 

End Sub 

からJSONPlaceholderを - RESTfulなAPIを呼び出します。これは、応答である:私はあなたがa)は、同期要求を行う、またはb)httpないhttpsを使用する場合は、この方法で、このウェブサイトへの呼び出しが失敗することが判明

enter image description here

注意。

+0

ありがとうロビン私は今日これを試してみます – AndroidMechanic

+0

ありがとう、それは動作します – AndroidMechanic

関連する問題