Danke Stefan für Deine Bereitschaft.
Ich habe verzweifelt versucht, im Dashboard von Azure das API (V2) zu finden, um es auf V3 zu migrieren.
Aber nun vermute ich, dass ich "nur" meine Funktion in Excel anpassen muss.
Stimmt das ?
Gibt es bereits ein Codeschnippsel d.h. Funktion für V3 ?
Mein Tool übersetzt zwischen Englisch und Deutsch und umgekehrt. Dazu verwende ich u.a. diese Funktion:
Function MSHttpRequest(ByVal sRequest As String, ByVal sText As String) As String
Dim sURL As String, sToken As String, strEncoded As String, bTrying As Boolean
strEncoded = URLEncodeUTF8(sText, False, True) ' always encode as UTF-8
sURL = "http://api.microsofttranslator.com/V2/Http.svc/" & sRequest & strEncoded
bTrying = True
Do
'Sleep 1000 ' 1 sec pause if rate throttling needed.
' Also consider DoEvents in caller if many cells being translated in a loop
sToken = GetAccessToken()
Dim webRequest As Object ' late binding
Set webRequest = CreateObject("MSXML2.XMLHTTP")
'Dim webRequest As MSXML2.XMLHTTP60 ' early binding: Add reference in VBE to Microsoft XML, v6.0
'Set webRequest = new MSXML2.XMLHTTP60
webRequest.Open "GET", sURL, False
webRequest.setRequestHeader "Authorization", "Bearer " & sToken
webRequest.send
MSHttpRequest = webRequest.responseText
Set webRequest = Nothing
If StrComp(Left$(MSHttpRequest, 8), "<string ", vbTextCompare) = 0 Then
' it worked, a string was returned, use StringFromXML() to extract it
bTrying = False
' return the XML
Else
' it failed, html returned (probably)
Select Case ShowMsgBox(sText & vbLf & Left$(HtmlToText(MSHttpRequest), 1024), _
vbExclamation + vbRetryCancel, "Error")
Case vbRetry
' keep trying
Case vbCancel
bTrying = False
' return the HTML.
End Select
If DEBUG_MODE Then Debug.Print MSHttpRequest: Stop ' to investigate and fix up
End If
Loop While bTrying
'<html><body><h1>TranslateApiException</h1><p>Method: Translate()</p> _
<p>Message: Cannot find an active Azure Market Place Translator Subscription associated with the request credentials.</p> _
<code></code><p>message id=0824.V2_Rest.Translate.613D527C</p></body></html>
'Could be rate limited. Retry the request.
'<html><body><h1>Argument Exception</h1><p>Method: Translate()</p><p>Parameter: </p> _
<p>Message: No bearer information found in the token</p>
'means you did not supply a valid Access Token
'<html><body><h1>Argument Exception</h1><p>Method: Translate()</p> _
<p>Parameter: from</p><p>Message: 'from' must be a valid language
 _
Parameter name: from</p><code></code><p>message id=0650.V2_Rest.Translate.502DC8C6</p></body></html>
End Function
Was muss auch noch angepasst werden?
Gruss Willy
