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

lanyf

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

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

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

vectra

\n 试过了吗，不行？

stoyer

如果不多的话，后期排版好了

stoyer

(vlax-put-property cell "WrapText" 1)  ;自动换行，刚试过可以用

stoyer

(vlxls-cell-put-value xlapp cell  (strcat "中" (Chr 10) "国")) ;测试成功

lanyf

stoyer 发表于 2017-9-5 10:49
(vlxls-cell-put-value xlapp cell  (strcat "中" (Chr 10) "国")) ;测试成功

谢谢，可行

vectra

(Vlax-Put-Property range 'Value2 "123\n123")
测试成功

情迷法兰西0

谢谢楼主xiexieluozhu

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

xyccf

stoyer 发表于 2017-9-5 10:49
(vlxls-cell-put-value xlapp cell  (strcat "中" (Chr 10) "国")) ;测试成功

感谢分享，谢谢啦