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, ByVal cButtons As Long, ByVal dwExtraInfo As Long)'这是 VB API 函数声明，
'在 WINDOWS 系统中有个文件 kernel32.dll 动态连接（函数）库文件，里面包含好多WINDOWS 功能的函数。该声明是指，在所写的程序中要用到这个库文件中的一个函数 Sleep， 它的参数是dwMilliseconds.
'功能是，让这条语句的下一条语停顿 dwMilliseconds 时间后再运行。单位为毫秒
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Const MOUSEEVENTF_LEFTDOWN = &H2 '按下左键，&H2表示2的十六进制值
Private Const MOUSEEVENTF_LEFTUP = &H4 '释放左键，&H4表格4的十六进制值Private Sub 单击()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '高版本系统如win10可能需要使用call调用ddl动态连接这样才能生效，如call mouse_event (MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0).https://blog.csdn.net/qq_39533125/article/details/75220288
Sleep 50
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 100
End SubSub 自动发送翻译()Dim WS As Worksheet
Dim xPaste&, yPaste&, xCopy&, yCopy&, xClear&, yClear&
Dim i%
Dim myData As DataObjectSet WS = ThisWorkbook.Sheets("工作表1")
'粘贴位置
xPaste = 217
yPaste = 96
'复制按钮位置
xCopy = 198
yCopy = 551
'清除按钮位置
xClear = 610
yClear = 288For i = 2 To 5WS.Cells(i, 2).CopySleep 500 '延时500毫秒SetCursorPos xPaste, yPaste '把光标移动到屏幕输入框位置DoEvents '会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。Sleep 500Call 单击DoEventsSleep 500Application.SendKeys "^V" '粘贴英文到输入框DoEventsSleep 500SetCursorPos xCopy, yCopyDoEventsSleep 2000 '等待翻译结果出来Call 单击 '单击复制按钮，复制翻译结果DoEventsSleep 500SetCursorPos xClear, yClearDoEventsSleep 500Call 单击DoEvents'把翻译结果输入到单元格中Set myData = New DataObjectWith myData.GetFromClipboardIf .GetText <> "" Then WS.Cells(i, 3).Value = .GetText '把剪贴板的文本放入到单元格End WithSet myData = NothingNext iMsgBox "完成"End Sub