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

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

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

[本文转自仇朝权随笔_向系统剪贴板写入文字并多行](http://www.zawen.net/post/37.html)

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