從json（Vba）獲取字符串

Question

我對Vba很新，我真的希望你能幫助我。我只有一個URL，它爲您提供了帶有json語法的文本/流。現在這個「json文本」應該在exel中顯示。 所以我alreday使它顯示exel中的字符串，我直接在我的代碼中設置。但現在我的問題是：如何從URL獲取字符串？

Answer 1

你可以嘗試這樣的事：

Dim oRequest As Object 
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
oRequest.Open "GET", "http://www.cboden.de" 
oRequest.Send 
MsgBox oRequest.ResponseText 

，如果你使用了代理服務器，它可能是這樣的：

Const HTTPREQUEST_PROXYSETTING_PROXY = 2 
Dim oRequest As Object 
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
oRequest.setProxy HTTPREQUEST_PROXYSETTING_PROXY, "http://proxy.intern:8080" 
oRequest.Open "GET", "http://www.cboden.de" 
oRequest.Send 
MsgBox oRequest.ResponseText 

，如果你想使用POST，而不是讓你可以嘗試這樣的事情：

Dim oRequest As Object 
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
oRequest.Open "POST", "http://www.cboden.de/misc/posttest.php" 
oRequest.SetRequestHeader "Content-Typ", "application/x-www-form-urlencoded" 
oRequest.Send "Formularfeld1=123&Formularfeld2=test" 
MsgBox oRequest.ResponseText 

如果你是新來的VBA這可能有點難以理解...但請谷歌各種命令的進一步信息。