admin管理员组文章数量:1130349
VBA实践+excel英文逐句自动有道翻译为中文
有一个需求是这样的，如下图所示，在一个excel工作表中，B列是英文，每一个单元格一句英文，在C列要填英文对应的有道机译结果。为保证准确度，要求必须一句句翻译，不能把英文做成一个文档再上传有道翻译。
尝试使用VBA代码模拟键盘和鼠标自动完成复制单元格英文-粘贴到有道客户端的输入框-等待翻译结果-复制翻译结果-粘贴到对应的单元格中的整个过程。代码实现环境为64位win8.1，64位excel2010，有道桌面客户端，代码如下。模拟的鼠标键盘按键可能会被网站、软件等拦截，用到其他地方不一定管用哦。
Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr 'SetCursorPos函数把光标移到屏幕的指定位置
Private Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVaVBA实践+excel英文逐句自动有道翻译为中文
有一个需求是这样的，如下图所示，在一个excel工作表中，B列是英文，每一个单元格一句英文，在C列要填英文对应的有道机译结果。为保证准确度，要求必须一句句翻译，不能把英文做成一个文档再上传有道翻译。
尝试使用VBA代码模拟键盘和鼠标自动完成复制单元格英文-粘贴到有道客户端的输入框-等待翻译结果-复制翻译结果-粘贴到对应的单元格中的整个过程。代码实现环境为64位win8.1，64位excel2010，有道桌面客户端，代码如下。模拟的鼠标键盘按键可能会被网站、软件等拦截，用到其他地方不一定管用哦。
Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr 'SetCursorPos函数把光标移到屏幕的指定位置
Private Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVa版权声明：本文标题：有道翻译 excel webservice 失效_VBA实践+excel英文逐句自动有道翻译为中文 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://it.en369.cn/jiaocheng/1754783514a2727873.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论