明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3209|回复: 10

[提问] 如何用vlisp向Excel写数据时,实现行内换行?

[复制链接]
发表于 2017-9-4 21:33 | 显示全部楼层 |阅读模式
使用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. )

本帖被以下淘专辑推荐:

  • · excel|主题: 80, 订阅: 2
发表于 2017-9-4 22:08 | 显示全部楼层
\n 试过了吗,不行?
发表于 2017-9-5 10:11 | 显示全部楼层
本帖最后由 stoyer 于 2017-9-5 10:31 编辑

如果不多的话,后期排版好了
发表于 2017-9-5 10:39 | 显示全部楼层
(vlax-put-property cell "WrapText" 1)  ;自动换行,刚试过可以用
发表于 2017-9-5 10:49 | 显示全部楼层
本帖最后由 stoyer 于 2017-9-5 10:59 编辑

(vlxls-cell-put-value xlapp cell  (strcat "中" (Chr 10) "国")) ;测试成功
 楼主| 发表于 2017-9-5 18:13 | 显示全部楼层
stoyer 发表于 2017-9-5 10:49
(vlxls-cell-put-value xlapp cell  (strcat "中" (Chr 10) "国")) ;测试成功

谢谢,可行
发表于 2017-9-5 20:32 | 显示全部楼层
(Vlax-Put-Property range 'Value2 "123\n123")
测试成功
发表于 2017-9-6 08:38 | 显示全部楼层
谢谢楼主xiexieluozhu
发表于 2017-10-13 08:44 | 显示全部楼层
回帖是一种美德!感谢楼主的无私分享 谢谢
发表于 2017-10-13 14:50 | 显示全部楼层
stoyer 发表于 2017-9-5 10:49
(vlxls-cell-put-value xlapp cell  (strcat "中" (Chr 10) "国")) ;测试成功

感谢分享,谢谢啦
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 00:20 , Processed in 0.152685 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表