Получите строку от 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 вместо GET вам можете попробовать что-то вроде этого:

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, это может быть немного сложно понять ... но, пожалуйста, google различные команды для дальнейшей информации.