903242237 发表于 2025-3-11 17:56:49

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

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

xyp1964 发表于 2025-3-11 22:48:14

这样？


903242237 发表于 2025-3-12 08:57:44

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

是的，，，，，

黄翔 发表于 2025-3-13 20:30:54

不是给了源码了吗.稍微改下 (setq app (vlax-get-or-create-object "excel.application"))
(setq sheet (vlax-get app 'ActiveSheet) )
(setq range (vlax-get-property app 'Selection))
(setq i 0)
(repeat 5
    (vlax-put-property range 'value2 (strcat "你好,混蛋！+" (itoa (setq i(1+ i)))))
    (setq range (vlax-get-property sheet "Range"(strcat (chr (+ 64 (vlax-get range 'Column)))(itoa(1+ (vlax-get range 'Row))))))
)

664571221 发表于 2025-3-14 09:46:56

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

派大上码....
页: 1 [2]
查看完整版本: 求输入tt，向excel光标所在单元格发送文本 你好123