vba英文翻译成中文

我们每天工作中都可能需要用到翻译工具，想着，要不做个翻译小功能玩玩？

有了个想法，咱就动手来开发试试？

随后，这种的百度了一下，找到了相应的文档，有了原材料，我们就可以来生产了！

1、建窗体

第一步还是我们经常做的，建个窗体

控件 名称 属性
文本框 txtCN 无
文本框 txtEN 无
按钮 btnTranslate 无

2、添加代码

Private Sub btnTranslate_Click()
    On Error Resume Next

    Dim strTemp As String
    Dim html As New HTMLDocument
    Dim url As String
  
    With CreateObject("Microsoft.XMLHTTP")
        
        strTemp = Me.txtCN
        url = "http://dict.youdao.com/search?q=" & strTemp & "&keyfrom=dict.index"

'        Debug.Print url
        .Open "get", url, True
        .send
        While .ReadyState <> 4
            DoEvents
        Wend
            html.body.innerHTML = .responseText
            
            Me.txtEN = html.getElementsByClassName("baav")(0).innerText & vbCrLf
            Me.txtEN = Me.txtEN & html.getElementsByClassName("trans-container")(0).innerText
        
    End With
End Sub

3、 测试

更新请关注我的公众号，Access开发

网站：添加链接描述