求助，关于采用SendKeys模拟键盘执行Excel选择性粘贴的问题

YUYUFENG

求各位大佬帮帮忙，本来想用关于采用SendKeys模拟键盘来执行Excel选择性粘贴的，可是卡在了选择性粘贴的窗体界面，SendKeys没反应。
下面是lisp,求帮帮忙看看什么问题，怎么让脚本运行成功。

1. (defun c:tt (/)
   
2.   (vl-cmdf "_.pastespec" )
   
3.   (run_shell)
   
4.   (princ)  
   
5. )
   
6. 
   
7. ;;键盘操作脚本
   
8. (defun run_shell (/)
   
9.   (setq shell (Vlax-Create-Object "WScript.Shell"))
   
10.   (vlax-invoke shell "AppActivate" "选择性粘贴")
    
11.   (vl-cmdf "delay" 500)
    
12.   (vlax-invoke shell "SendKeys" "{DOWN 3}")  
    
13.   (vl-cmdf "delay" 500)
    
14.   (vlax-invoke shell "SendKeys" "{ENTER}")
    
15.   (vlax-release-object shell)
    
16. )

(defun c:tt (/) <br />   (vl-cmdf "_.pastespec" ) <br />   (run_shell)<br />   (princ)  <br /> )<br /> <br /> ;;键盘操作脚本<br /> (defun run_shell (/) <br />   (setq shell (Vlax-Create-Object "WScript.Shell"))<br />   (vlax-invoke shell "AppActivate" "选择性粘贴")<br />   (vl-cmdf "delay" 500)<br />   (vlax-invoke shell "SendKeys" "{DOWN 3}")  <br />   (vl-cmdf "delay" 500)<br />   (vlax-invoke shell "SendKeys" "{ENTER}")<br />   (vlax-release-object shell)<br /> )