मैं वीबीए का उपयोग कर Excel से सर्वर पर एक HTTP POST अनुरोध कैसे भेज सकता हूं?

Question

एक्सेल स्प्रेडशीट से HTTP पोस्ट करने के लिए क्या VBA कोड आवश्यक है?

Answer 1

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

वैकल्पिक रूप से देखें, HTTP अनुरोध आप MSXML2.ServerXMLHTTP के स्थान पर WinHttp.WinHttpRequest.5.1 उपयोग कर सकते हैं पर अधिक नियंत्रण के लिए।

Answer 2

आप एमएसएक्सएमएल के संदर्भ को जोड़कर एक वीबीए परियोजना में ServerXMLHTTP का उपयोग कर सकते हैं।

1. ओपन VBA संपादक
2. जाओ उपलब्ध संदर्भ की सूची में
3. Microsoft XML
4. ठीक क्लिक करें चेक (आमतौर पर एक मैक्रो का संपादन करके)।

(Referencing MSXML within VBA Projects से)

ServerXMLHTTP MSDN documentation सभी गुण और ServerXMLHTTP के तरीकों के बारे में पूरी जानकारी नहीं है।

संक्षेप में, हालांकि, यह इस तरह से मूल रूप से काम करता है:

1. कॉल open विधि कॉल send दूरस्थ सर्वर से
2. कनेक्ट करने के लिए अनुरोध भेजने के लिए।
3. MSXML लाइब्रेरी का उपयोग कर और फिर XMLHttpRequest ऑब्जेक्ट उपयोग करने से पहले responseXML, responseText, responseStream या responseBody

Answer 3

मैं इस किया था के माध्यम से प्रतिक्रिया पढ़ें। http://scriptorium.serve-it.nl/view.php?sid=40

Answer 4

QueryTables आप पर दोनों मैक और Windows काम करने के लिए इसकी आवश्यकता है, तो आप उपयोग कर सकते हैं:

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 

नोट्स:

उत्पादन के बारे में
• ... मैं अगर यह संभव है पता नहीं है परिणामों को उसी सेल पर वापस करें जिसे वीबीए फ़ंक्शन कहा जाता है। उपर्युक्त उदाहरण में, परिणाम ए 2 में लिखा गया है।
• इनपुट के संबंध में ... यदि आप कुछ सेल बदलते समय परिणाम ताज़ा करना चाहते हैं, तो सुनिश्चित करें कि वे कक्ष आपके वीबीए फ़ंक्शन के लिए तर्क हैं।
• यह मैक 2008 के लिए एक्सेल पर काम नहीं करेगा, जिसमें वीबीए नहीं है। मैक 2011 के लिए एक्सेल वीबीए वापस मिला।

अधिक जानकारी के लिए, आप "using web services from Excel" के बारे में मेरा पूरा सारांश देख सकते हैं।

Answer 5

Bill the Lizard का anwser के अलावा:

बैकेंड के अधिकांश कच्चे पद डेटा पार्स। उदाहरण के लिए PHP में, आपके पास एक सरणी $ _POST होगी जिसमें पोस्ट डेटा के भीतर अलग-अलग चर संग्रहित किए जाएंगे।इस मामले में आप एक अतिरिक्त हैडर ": आवेदन/x-www फार्म-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") 

नहीं तो आप चर "$ HTTP_RAW_POST_DATA" पर कच्चे पद डेटा को पढ़ने के लिए।