Vlisp获取Excel单元格格式

st788796

在Excel中通过 格式 对话框 可以设置 单元格的格式，在VBA中这些格式是一些字符串，对应的对象是 Range ，特性是 NumberFormat 和 NumberFormatLocal  返回值是一个内容为 string 的Varint，stirng 依赖于当前语言


准备

2. 
   
3. (setq app (vlax-get-or-create-object "excel.application"))
   
4. (setq wbs (vlax-get app 'workbooks))
   
5. (vlax-invoke wbs 'open "xxx.xls")
   
6. (setq sht(vlax-get app 'activesheet)
   

<br /> (setq app (vlax-get-or-create-object "excel.application"))<br /> (setq wbs (vlax-get app 'workbooks))<br /> (vlax-invoke wbs 'open "xxx.xls")<br /> (setq sht(vlax-get app 'activesheet)<br />

获取统一的格式

1. (vlax-get (vlax-get sht 'usedrange) 'NumberFormatLocal)

复制代码

如果为nil 说明区域内设置了多种格式

获取某个单元格的格式

1. (vlax-get (vlax-get-property sht 'Range "A1") 'NumberFormatLocal)

复制代码

liunian0524

感谢大师分享

st788796

Formatting Cells Number

General

Range("A1").NumberFormat = "General"

Number

Range("A1").NumberFormat = "0.00"

Currency

Range("A1").NumberFormat = "$#,##0.00"

Accounting

Range("A1").NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

Date

Range("A1").NumberFormat = "yyyy-mm-dd;@"

Time

Range("A1").NumberFormat = "h:mm:ss AM/PM;@"

Percentage

Range("A1").NumberFormat = "0.00%"

Fraction

Range("A1").NumberFormat = "# ?/?"

Scientific

Range("A1").NumberFormat = "0.00E+00"

Text

Range("A1").NumberFormat = "@"

Special

Range("A1").NumberFormat = "00000"

Custom

Range("A1").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"

sicky111

谢谢分享。

gaheecn

感谢大师，我是从昨天开始打算学这个的，我也不知道我是不是这块料，但一定会努力的