向系统剪贴板写入文字并多行

作者:仇朝权 时间:23-09-19 阅读数:4949人阅读

;;;功能:向系统剪贴板写入文字                   

;;;我在论坛上找到的 这个很好,但是只能写入一行,我想写入多行粘贴到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)

分享到:

♡♡♡转载请保留上面信息♡♡♡