Pude escribir una función azul de URL y hacer que mostrara los resultados a través del objeto/método del cuerpo.
He estado tratando de recuperar un retorno de la función de Azure a través de VBA.
Recibo un mensaje de "Error interno".
Cuando copio la URL que creo desde VBA en la barra de direcciones, lo mismo.
El Javascript en el código tiene "return ("Hello World!");" para probar un texto de respuesta, pero no puedo hacer que VBA lo tome debido al error del servidor interno HTTP 500.
La función de Azure está operando como una API y estoy usando un método GET para llamarlo y recuperar un cálculo.
Dim xmlhttpb As New MSXML2.XMLHTTP60 Dim resString As String Dim thisURL As String 'example URL thisURL = "https://someazurefunction.net/api/somefunc" thisURL = thisURL & "?name=" & ptc & "assets=" & assets & "" 'I have also constructed it in one line xmlhttpb.Open "GET", thisURL, False xmlhttpb.Send Debug.Print xmlhttpb.StatusText 'This returns an Internal Server Error resString = xmlhttpb.responseText ' resString, when printed, is absolutely nothing, not even a "Null" or "Empty" due to the Internal Server errorComo actualización, puedo escribir la URL y ajustar los parámetros y responde correctamente en el cuerpo.
Puedo ejecutarlo localmente y desde Azure en Visual Studio Code y escribiendo la URL y presionando "enter".
La construcción de una URL en VBA no parece tener éxito cuando se ejecuta el método GET y, por lo tanto, no hay texto de respuesta.
Falta & para separar los parámetros de la cadena de consulta:
thisURL = "https://someazurefunction.net/api/somefunc" thisURL = thisURL & "?name=" & ptc & "&assets=" & assets Probablemente también debería ser ptc y assets de codificación de URL