VLISP在Excel对象中的应用（四）：Excel中设置行高、列宽及单元格边框

zipo

接着上一次继续补充
(vla-put-visible excel-app :vlax-true);;将当前创建的Excel程序设置为可见
(vlax-put-property (vlax-get-property active-sheet1 "Range" "1:1") "RowHeight" 30);;设置工作表sheet1中的第一行的行高为30
(vlax-put-property (vlax-get-property active-sheet1 "Range" "A:A") "ColumnWidth" 10);;设置工作表sheet1中的第一列的列宽为10
(setq range1 (vlax-get-property active-sheet1 "Range" "A46"));;获取单元格“A46”的属性
(setq range2 (vlax-get-property active-sheet1 "Range" "B47"));;获取单元格“A47”的属性
(vlax-put-property (vlax-get-property range1 "Borders") "Weight" 2);;设置range1所表示的单元格对象的边框宽度为4
(vlax-put-property (vlax-get-property range2 "Borders") "LineStyle" "9");;设置range2所表示的单元格的边框线形，线形为0-13的数字，其中0为无边框，其余数字个对应不同的线型
(vlax-put-property (vlax-get-property range1 "Borders") "ColorIndex" "3");;设置单元格边框颜色，颜色索引号可以为数字1-56，其中1为黑，2为白，3为红，4为绿，5为蓝，6为黄，
(setq borderItem1 (vlax-get-property(vlax-get-property range2 "Borders") "Item" 3 ));;获取单元格边框对象中的上边框对象，其中数字1或7为左边，，2或10为右边，3或8为顶部，4或9为底部，5为左上到右下，6为右上到左下
(setq borderItem2 (vlax-get-property(vlax-get-property range2 "Borders") "Item" 1 ));;获取单元格边框对象中的左边框对象
(vlax-put-property borderItem1 "ColorIndex" "3");;设置单元格上边框颜色为红色
(vlax-put-property borderItem2 "Weight" 4);;设置单元格左边框宽度为4

oldnewlearn

不错。跟着看看

wxa123wl

(setq range1 (vlax-get-property active-sheet1 "Range" "A46"));;获取单元格“A46”的属性
得到这个后怎么得到单元格的具体字符全值，得到的是obj对象