如何用vlisp向Excel写数据时，实现行内换行？

lanyf · 发表于 2017-9-4 21:32:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

使用vlisp向excel写数据，如何实现行内换行呢？
使用vba向excel写数据，使用chr(10)或chr(13)，用vlisp如何实现呢？

(defun c:tt( / )
(setq xls (Vlax-Get-Or-Create-Object "Excel.Sheet.12" ))
(setq sheet (Vlax-Get-Property (Vlax-Get-property xls 'Worksheets ) 'Item 1 ))
(setq cells (vlax-get-property sheet 'cells))
(setq i 1)
(repeat 5
(setq range (vlax-variant-value (vlax-get-property cells 'Item i i)))
(Vlax-Put-Property range 'Value2 "123" ) ;;;;;;;;;该处如何实现excel行内换行呢？？
(setq i (1+ i))
)
...
)

Lisphk · 发表于 2017-9-4 21:55:40

试试 "123\\n345"

dnbcgrass · 发表于 2017-9-4 21:56:15

(Vlax-Put-Property range 'Value2 (strcat "123" (chr 10) (chr 13)))

q3_2006 · 发表于 2017-9-4 21:59:32

(vlax-put-property rang 'WrapText 1)

lanyf · 发表于 2017-9-5 18:14:05

dnbcgrass 发表于 2017-9-4 21:56

谢谢，可行

账号		自动登录	找回密码
密码			立即注册

[求助] 如何用vlisp向Excel写数据时，实现行内换行？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。