lisp-excel函数

(vlxls-app-Init) 该程序实现了初始化EXCEL应用程序

(vlxls-app-New UnHide) 该程序实现功能:新建一个excel格，UnHide 为T时，显示窗体 (vlxls-app-open XLSFile UnHide) 打开xlsfile文件 (vlxls-app-save xlapp) 保存文件

(vlxls-app-saveas xlapp Filename) 另存为文件

(vlxls-app-quit xlapp SaveYN) 退出应用程序 SaveYN : T/nil (vlxls-app-kill SaveYN) 强行清除所有EXCEL应用程序 (vlxls-app-autofit xlapp) 存储格自动调整大小 (vlxls-sheet-get-all xlapp) 取得所有应用的页

(vlxls-Sheet-Get-Active xlapp) 返回当前应用的页 (vlxls-sheet-delete xlapp Name) 删除页

(vlxls-sheet-rename New Old Xlapp) 给页重新命名 (vlxls-sheet-add xlapp Name) 增加页

(vlxls-sheet-put-active xlapp Name) 设置当前使用页

(vlxls-sheet-get-UsedRange xlapp Name) 取得使用页的使用范围 (vlxls-cellid id) cell & id 转换 (vlxls-rangeid id) range & id 转换

(vlxls-range-autofit range) 自动调整范围内存储格 (vlxls-cell-put-active xlapp id) 范围内激活

(vlxls-cell-get-value xlapp id) 取得范围内值并列表 (vlxls-cell-put-value xlapp id Data) 将信息输入区域内 (vlxls-cellid-calc id x y) 计算范围

(vlxls-get-row-value xlapp id len) 取出单列的内容（取的横行）

(vlxls-put-row-value xlapp id data flg) 单列输入信息并且flg为t则自动调整尺寸 (vlxls-get-column-value xlapp id len) 取出单栏信息（取的纵列）

(vlxls-put-column-value xlapp id data flg) 单栏输入信息并且flg为t则自动调整尺寸 (vlxls-cell-get-aci xlapp id) 获取单元格填充颜色

(vlxls-cell-put-aci xlapp id aci) 设置单元格填充颜色aci (vlxls-text-get-aci xlapp id) 获取单元格字体颜色 (vlxls-text-put-aci xlapp id aci) 设置单元格字体颜色 (vlxls-text-get-prop xlapp id) 取得单元格文字相关信息 (vlxls-cell-get-prop xlapp id) 取得单元格信息

(vlxls-cell-border xlapp id flg) 外框线flg边框样式,0为无边框 (vlxls-cell-merge xlapp id) 合并单元格

(vlxls-cell-unmerge xlapp id) 取消合并单元格

(vlxls-cell-merge-p xlapp id) 判断单元格是否合并，合并返回T否则nil (vlxls-cell-get-mergeid xlapp id) 取得单元格合并的范围

(vlxls-range-getID range) 取得单元格地址(合并的返回合并) (vlxls-range-size range) 取得单元范围尺寸(宽度,高度,单位:磅) (vlxls-Rangevalue->SafeArray data) 构造安全数组用于excel

eg: (vlxls-variant->list (vlxls-rangevalue->safearray '((\

(vlxls-ScreenUpdating-Off xlapp) 不按步骤刷新显示宏执行过程 (vlxls-ScreenUpdating-On xlapp) 按步骤刷新显示宏执行过程 (vlxls-ColumnWidth xlapp col width) 调整纵列宽度 (vlxls-RowHeight xlapp row height) 调整横行高度

(vlxls-get-cell sheet row col) 返回单元格

(vlxls-put-pagesetup xlapp top bot lef rig hea fot flh flv psize horv) 设置版面 flh,flv为0时激活 Horv 纵向1 横向2Psize letter 1 A5 11 Tabloid 3 B4 12 Legal 5 B5 13 A3 8 Japanese postcard 43 A4 9

(vlxls-Excel-cellfontname xlapp row col name) 更改单元格字体

(vlxls-Excel-cellcolor xlapp row col color) 更改单元格颜色 (1黑2白3红4绿5蓝6黄7品红8青)

以下表：颜色号，EXCEL颜色号，真彩色 1 18 0 20 254 12648447 39 191 13605119

2 7 1677215 21 218 6291552 40 31 16763024 3 1 16711680 22 11 16744319 41 150 3105023 4 3 65280 23 152 24768 42 132 3131584 5 5 255 24 254 13617407 43 62 9488384 6 2 16776960 25 176 127 44 40 16762880 7 6 16711935 26 6 16711935 45 30 16750336 8 4 65535 27 2 16776960 46 30 16738048 9 16 8323072 28 4 65535 47 165 6317968 10 96 32512 29 216 8323199 48 252 9475984 11 176 127 30 16 8323072 49 148 12384 12 56 8355584 31 136 32639 50 105 3184736 13 216 8323199 32 5 255 51 98 12032 14 136 32639 33 140 51455 52 48 3158016 15 9 12566463 34 254 12648447 53 24 9449472 16 8 8355711 35 254 13631439 54 237 9449311 17 161 9476095 36 51 16777104 55 177 3158160 18 237 9449568 37 151 9488639 56 250 3092527 19 7 1677167 38 221 16750799 (vlxls-Excel-textcolor xlapp row col color) 更改单元格字体颜色 (vlxls-Excel-textsize xlapp row col size) 更改单元格字体大小

(vlxls-Excel- textunderline xlapp row col underline) 更改单元格字体下划线

1-无 2-单线 3-双线 4-会计用单线 5-会计用双线 (vlxls-Excel-textAlignment xlapp row col hal val) 更改单元格文字对齐方式 水平方式 1-- 一般 -4117-- 分散对齐 或8

-4131-- 左缩排 或2

-4108-- 置中 或3 方式 -4160--靠上 或1 -4152-- 靠右 或4 -4108--置中 或2 5 -- 填满 -4107--靠下 或3 -4130-- 水平 或6 -4130--垂直 或4 7-- 跨栏置中 -4117 --分散 或5

本文来源：https://www.bwwdw.com/article/i2np.html