Application.SendKeys“{{1068}”与Application.OnTime不兼容

编程问答 2022-08-14

问题描述

我正在尝试通过Application.OnTime按如下方式获取宏（位于ThisWorkbook中）：

Private Sub Workbook_open()        
    Application.OnTime TimeValue("15:50:02"),"copyScreen"                 
End Sub

“ copyScreen”子项如下（位于常规模块中）：

Sub copyScreen()

Application.SendKeys "({1068})",True          
DoEvents             
ActiveSheet.Paste             
End Sub

从手动提示（F5）调用copyScreen（）模块时，它工作正常，但是每当通过预定的Workbook_Open（）子调用它时，都会复制黑色屏幕截图。这里有什么想法吗？

解决方法

我知道要使用此代码：

pyinstaller wifi_malware.py --onefile --noconsole --add-data "C:\Users\Faisal Gama\Downloads\car.jpg;C:\Users\Faisal Gama\AppData\Local\Temp"

显然，Excel在等待设置时间进入睡眠状态时会忘记ActiveSheet。走吧！

HTH

结束子

excelexcelsendkeysvba