VBA kullanarak Excel'den bir sunucuya nasıl HTTP POST isteği gönderebilirim?

Excel elektronik tablosundan HTTP POST gerçekleştirmek için hangi VBA kodu gerekir?

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")

Alternatif olarak, HTTP isteği üzerinde daha fazla kontrol için kullanabileceğiniz WinHttp.WinHttpRequest.5.1yerine MSXML2.ServerXMLHTTP.

Hem Mac hem de Windows'ta çalışması için QueryTable'ları kullanabilirsiniz:

With ActiveSheet.QueryTables.Add(Connection:="URL;http://carbon.brighterplanet.com/flights.txt", Destination:=Range("A2"))
    .PostText = "origin_airport=MSN&destination_airport=ORD"
    .RefreshStyle = xlOverwriteCells
    .SaveData = True
    .Refresh
End With

Notlar:

• Çıktı ile ilgili olarak ... Sonuçları VBA işlevi olarak adlandırılan aynı hücreye döndürmenin mümkün olup olmadığını bilmiyorum. Yukarıdaki örnekte, sonuç A2'ye yazılmıştır.
• Girdi ile ilgili olarak ... Belirli hücreleri değiştirdiğinizde sonuçların yenilenmesini istiyorsanız, bu hücrelerin VBA işlevinizin argümanı olduğundan emin olun.
• Bu, VBA'sı olmayan Mac 2008 için Excel'de çalışmaz. Mac 2011 için Excel VBA'yı geri aldı.

Daha fazla ayrıntı için, " Excel'den web hizmetlerini kullanma " hakkındaki tam özetimi görebilirsiniz .

Kertenkele Bill'in patronuna ek olarak :

Arka uçların çoğu ham yazı verilerini ayrıştırır. Örneğin PHP'de $_POST, gönderi verilerindeki bağımsız değişkenlerin saklanacağı bir diziniz olacaktır. Bu durumda ek bir başlık kullanmanız gerekir "Content-type: application/x-www-form-urlencoded":

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("var1=value1&var2=value2&var3=value3")

Aksi takdirde, değişkenin ham post verilerini okumalısınız "$HTTP_RAW_POST_DATA".

Sen kullanabilirsiniz ServerXMLHTTPbir başvuru ekleyerek VBA projesinde MSXML.

1. VBA Düzenleyicisini açın (genellikle bir Makro düzenleyerek)
2. Kullanılabilir Referanslar listesine gidin
3. Microsoft XML'yi kontrol edin
4. Tamam'ı tıklayın.

( VBA Projelerinde MSXML'ye Yönelikten )

ServerXMLHTTP MSDN belgelerine tüm özellikleri ve ServerXMLHTTP yöntemleri hakkında tüm detayları vardır.

Kısacası, temelde şöyle çalışır:

1. Uzak sunucuya bağlanmak için açık yöntemi çağırın
2. İsteği göndermek için send'i arayın .
3. ResponseXML , responseText , responseStream veya response aracılığıyla yanıtı okuyun

Diğer kullanıcıların yanıtlarını tamamlamak için:

Bunun için bir "WinHttp.WinHttpRequest.5.1" nesnesi oluşturdum .

VBA'yı kullanarak Excel'den bazı verilerle bir gönderme isteği gönderin:

Dim LoginRequest As Object
Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
LoginRequest.Open "POST", "http://...", False
LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
LoginRequest.send ("key1=value1&key2=value2")

VBA kullanarak Excel'den token kimlik doğrulaması ile bir get isteği gönderin:

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "GET", "http://...", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
TCRequestItem.send

MSXML kitaplığını kullanmadan önce ve sonra XMLHttpRequest nesnesini kullanarak yaptım, buraya bakın .