关于Excel操作

Humanway

设置Excel单元格中某个字符的大小,代码中操作的单元格为:D1，字符为第五个

2. (setq excel (vlax-get-or-create-object "excel.application")
   
3.         cells (Vlax-Get excel 'Cells)
   
4.         tmp (vlax-get-property (Vlax-get-Property (vlax-variant-value (vlax-get-property cells "item" 1 4)) 'Characters 5 1) 'font)
   
5. )

(setq excel (vlax-get-or-create-object "excel.application")<br />         cells (Vlax-Get excel 'Cells)<br />         tmp (vlax-get-property (Vlax-get-Property (vlax-variant-value (vlax-get-property cells "item" 1 4)) 'Characters 5 1) 'font)<br /> )

如上，可以看到字符的大小('Size)为9.0

1. (vlax-get-property tmp 'size)
   
2. #<variant 5 9>
   
3. (vlax-variant-value (vlax-get-property tmp 'size))
   
4. 9.0

复制代码

特性值为变体，我想将字体大小改为11

1. (vlax-put-property tmp 'size 11)
   
2. ; 错误: Automation 错误。未提供说明。
   
3. (vlax-put-property tmp 'size (vlax-make-variant 11 5))
   
4. ; 错误: Automation 错误。未提供说明。

复制代码

请教，要实现修改的正确语句是什么，谢谢

Humanway

难道没有人能解决

/db_自贡黄明儒_

从上面看，好像tmp是这个(vlax-variant-value (vlax-get-property cells "item" 1 4))

huangpc27

5改为vlax-vbDouble看看

Humanway

huangpc27 发表于 2022-10-28 17:54
5改为vlax-vbDouble看看

谢谢，有用