向系统剪贴板写入文字并多行
;;;功能:向系统剪贴板写入文字
;;;我在论坛上找到的 这个很好,但是只能写入一行,我想写入多行粘贴到exl可以多行粘贴
(defun SET-CLIP-STRING (STR / HTML RESULT) (and (= (type STR) 'STR) (setq HTML (vlax-create-object "htmlfile")) (setq RESULT (vlax-invoke (vlax-get (vlax-get HTML 'PARENTWINDOW) 'CLIPBOARDDATA ) 'SETDATA "Text" STR ) ) (vlax-release-object HTML) ) )
写入多行的方法
(setq text1 "1") (setq text2 "-你好") (SET-CLIP-STRING (STRCAT text1 "\t" text2 "\r\n"))
[本文转自仇朝权随笔_向系统剪贴板写入文字并多行](https://zawen.net/post/37.html)
♡♡♡转载请保留上面信息♡♡♡
上一篇:iPhone的下坡路,越走越顺
下一篇:断肠草究竟是什么植物?