使用VBA进行Google翻译- (Excel宏)问题

Sub GoogleTranslate()
    Dim xhr As Object
    Dim url As String
    Dim apiKey As String
    Dim sourceText As String
    Dim targetLang As String
    Dim translatedText As String
    
    apiKey = "YOUR_API_KEY"
    sourceText = "要翻译的文本"
    targetLang = "目标语言代码"
    
    url = "https://translation.googleapis.com/language/translate/v2?key=" & apiKey & "&q=" & sourceText & "&target=" & targetLang
    
    Set xhr = CreateObject("MSXML2.XMLHTTP")
    xhr.Open "GET", url, False
    xhr.Send
    
    If xhr.Status = 200 Then
        Dim jsonResponse As Object
        Set jsonResponse = JsonConverter.ParseJson(xhr.responseText)
        translatedText = jsonResponse("data")("translations")(1)("translatedText")
        MsgBox translatedText
    Else
        MsgBox "翻译失败：" & xhr.Status & " - " & xhr.statusText
    End If
End Sub