求输入tt，向excel光标所在单元格发送文本 你好123

903242237

664571221 发表于 2025-3-11 09:46
兄弟你搞好了吗

没有呀，，，，，，，，，，，，

xyp1964

这样？

903242237

xyp1964 发表于 2025-3-11 22:48
这样？

是的，，，，，

黄翔

不是给了源码了吗.稍微改下

2. (setq app (vlax-get-or-create-object "excel.application"))
   
3. (setq sheet (vlax-get app 'ActiveSheet) )
   
4. (setq range (vlax-get-property app 'Selection))
   
5. (setq i 0)
   
6. (repeat 5
   
7.     (vlax-put-property range 'value2 (strcat "你好,混蛋！+" (itoa (setq i(1+ i)))))
   
8.     (setq range (vlax-get-property sheet "Range"(strcat (chr (+ 64 (vlax-get range 'Column)))(itoa(1+ (vlax-get range 'Row))))))
   
9. )

(setq app (vlax-get-or-create-object "excel.application"))<br /> (setq sheet (vlax-get app 'ActiveSheet) )<br /> (setq range (vlax-get-property app 'Selection))<br /> (setq i 0)<br /> (repeat 5<br />     (vlax-put-property range 'value2 (strcat "你好,混蛋！+" (itoa (setq i(1+ i)))))<br />     (setq range (vlax-get-property sheet "Range"(strcat (chr (+ 64 (vlax-get range 'Column)))(itoa(1+ (vlax-get range 'Row))))))<br /> )

664571221

xyp1964 发表于 2025-3-11 22:48
这样？

派大上码....