中英互译，请老师帮忙改正！

vbahappy

在论坛看到函数可以获取翻译，想改成VBA，但得到一个空值，没成功，请老师帮忙改正。

原函数公式：=WEBSERVICE("http://e.anyoupin.cn/eh3/?youdao~" & A1)

自己根据网上学习代码如下：

Sub GetWebServiceData()
    Dim url As String
    Dim xmlhttp As Object
    Dim response As String
    url = "http://e.anyoupin.cn/eh3/?youdao~" & Selection.Value
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    xmlhttp.Open "GET", url, False
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    xmlhttp.send
    response = xmlhttp.responseText
    Selection.Offset(1, 0).Value = response
End Sub

翻译.rar (17.79 KB, 下载次数: 18)

2024-5-16 08:12 上传

点击文件名下载附件

zpy2

Set xmlhttp = CreateObject("MICROSOFT.XMLHTTP")
xmlhttp.Open "GET", url, False
xmlhttp.send
out = xmlhttp.responseText
msgbox out


response 是关键词 冲突了吧

vbahappy

zpy2 发表于 2024-5-16 10:29
Set xmlhttp = CreateObject("MICROSOFT.XMLHTTP")
xmlhttp.Open "GET", url, False
xmlhttp.send

老师，什么意思？不是很明白，能帮完善并实现结果吗？

zpy2

vbahappy 发表于 2024-5-16 11:15
老师，什么意思？不是很明白，能帮完善并实现结果吗？

我这里没有问题

山海风云轩

学习一下   

vbahappy

zpy2 发表于 2024-5-16 15:27
我这里没有问题

老师，我的文件在你那里测试没问题？能够翻译？我这里显示是空值，然道这也有版本问题？

vbahappy

zpy2 发表于 2024-5-16 15:27
我这里没有问题

老师，我知道了，英翻译中可以，但中翻译英不可以，但为什么我把中文直接加在链接里面，网页浏览确实可以？

zpy2

vbahappy 发表于 2024-5-16 16:35
老师，我知道了，英翻译中可以，但中翻译英不可以，但为什么我把中文直接加在链接里面，网页浏览确实可以 ...

中文需要
https://stackoverflow.org.cn/questions/218181

utf-8 编码

vbahappy

zpy2 发表于 2024-5-16 18:13
中文需要
https://stackoverflow.org.cn/questions/218181

完全看不懂，但也谢谢老师百忙之中的解答

zpy2

vbahappy 发表于 2024-5-16 19:16
完全看不懂，但也谢谢老师百忙之中的解答

InputString="早上好"
EncodedUrl = WorksheetFunction.EncodeUrl(InputString)

msgbox EncodedUrl