Bagaimana saya bisa mengirim permintaan HTTP POST ke server dari Excel menggunakan VBA?

Kode VBA apa yang diperlukan untuk melakukan POST HTTP dari spreadsheet Excel?

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("")

Atau, untuk kontrol yang lebih besar atas permintaan HTTP yang dapat Anda gunakan WinHttp.WinHttpRequest.5.1sebagai ganti MSXML2.ServerXMLHTTP.

Jika Anda membutuhkannya untuk bekerja di Mac dan Windows, Anda dapat menggunakan QueryTables:

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

Catatan:

• Mengenai output ... Saya tidak tahu apakah mungkin mengembalikan hasil ke sel yang sama yang disebut fungsi VBA. Pada contoh di atas, hasilnya ditulis ke dalam A2.
• Mengenai input ... Jika Anda ingin hasil di-refresh ketika Anda mengubah sel-sel tertentu, pastikan sel-sel itu adalah argumen untuk fungsi VBA Anda.
• Ini tidak akan berfungsi di Excel untuk Mac 2008, yang tidak memiliki VBA. Excel untuk Mac 2011 mendapat kembali VBA.

Untuk detail lebih lanjut, Anda dapat melihat ringkasan lengkap saya tentang " menggunakan layanan web dari Excel ."

Selain anwser dari Bill the Lizard :

Sebagian besar backends mengurai data posting mentah. Dalam PHP misalnya, Anda akan memiliki array $_POSTdi mana masing-masing variabel dalam data posting akan disimpan. Dalam hal ini Anda harus menggunakan tajuk tambahan "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")

Kalau tidak, Anda harus membaca data posting mentah pada variabel "$HTTP_RAW_POST_DATA".

Anda dapat menggunakan ServerXMLHTTPdalam proyek VBA dengan menambahkan referensi ke MSXML.

1. Buka Editor VBA (biasanya dengan mengedit Makro)
2. Buka daftar Referensi yang Tersedia
3. Periksa Microsoft XML
4. Klik OK.

(dari Referensi MSXML dalam Proyek VBA )

The dokumentasi ServerXMLHTTP MSDN memiliki rincian lengkap tentang semua properti dan metode dari ServerXMLHTTP.

Singkatnya, pada dasarnya kerjanya seperti ini:

1. Panggil metode terbuka untuk terhubung ke server jarak jauh
2. Panggilan kirim untuk mengirim permintaan.
3. Baca responsnya melalui responseXML , responseText , responseStream , atau responseBody

Untuk melengkapi respons pengguna lain:

Untuk ini saya telah membuat objek "WinHttp.WinHttpRequest.5.1" .

Kirim permintaan pos dengan beberapa data dari Excel menggunakan VBA:

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")

Kirim permintaan dapatkan dengan otentikasi token dari Excel menggunakan VBA:

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

Saya melakukan ini sebelum menggunakan perpustakaan MSXML dan kemudian menggunakan objek XMLHttpRequest, lihat di sini .