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開發

網站：添加鏈接描述