有道翻译 excel webservice 失效_VBA实践+excel英文逐句自动有道翻译为中文

VBA实践+excel英文逐句自动有道翻译为中文

有一个需求是这样的，如下图所示，在一个excel工作表中，B列是英文，每一个单元格一句英文，在C列要填英文对应的有道机译结果。为保证准确度，要求必须一句句翻译，不能把英文做成一个文档再上传有道翻译。

excel英语翻译

尝试使用VBA代码模拟键盘和鼠标自动完成复制单元格英文-粘贴到有道客户端的输入框-等待翻译结果-复制翻译结果-粘贴到对应的单元格中的整个过程。代码实现环境为64位win8.1，64位excel2010，有道桌面客户端，代码如下。模拟的鼠标键盘按键可能会被网站、软件等拦截，用到其他地方不一定管用哦。

Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr 'SetCursorPos函数把光标移到屏幕的指定位置
Priv