如何一次性设置EXCEL连续多列列宽

Humanway

如题，连续列为A:C，分别要设置的列宽为：5 15 4

请教一下，有没有办法一次性同时设置，谢谢

2. (setq excel (vlax-get-or-create-object "excel.application")
   
3.       sheet (vlax-get Excel 'ActiveSheet)
   
4.       )
   
5. (Vlax-Put-Property
   
6.   (Vlax-Get-Property sheet 'Range "A:A")
   
7.   'ColumnWidth
   
8.   5
   
9.   )
   
10. (Vlax-Put-Property
    
11.   (Vlax-Get-Property sheet 'Range "B:B")
    
12.   'ColumnWidth
    
13.   15
    
14.   )
    
15. (Vlax-Put-Property
    
16.   (Vlax-Get-Property sheet 'Range "C:C")
    
17.   'ColumnWidth
    
18.   4
    
19.   )

(setq excel (vlax-get-or-create-object "excel.application")<br />       sheet (vlax-get Excel 'ActiveSheet)<br />       )<br /> (Vlax-Put-Property<br />   (Vlax-Get-Property sheet 'Range "A:A")<br />   'ColumnWidth<br />   5<br />   )<br /> (Vlax-Put-Property<br />   (Vlax-Get-Property sheet 'Range "B:B")<br />   'ColumnWidth<br />   15<br />   )<br /> (Vlax-Put-Property<br />   (Vlax-Get-Property sheet 'Range "C:C")<br />   'ColumnWidth<br />   4<br />   )

/db_自贡黄明儒_

我是算好文字宽度，自动调整列宽，你可参考 一下。
http://bbs.xdcad.net/thread-713081-1-1.html

Humanway

/db_自贡黄明儒_ 发表于 2022-11-4 15:24
我是算好文字宽度，自动调整列宽，你可参考 一下。
http://bbs.xdcad.net/thread-713081-1-1.html

非常感谢，但我是要调整Excel里的列宽

Humanway

比如Excel的表格数据读取和写入，可以通过安全数组，速度远超一个一个表格的操作，就想知道，设置列宽是否有同类方法

guosheyang2

用lisp写个批量处理的代码就可以了