Lisp-excel函数
;;;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 '(("A1" . "aaa")("B4" . "ccc"))))
(vlxls-ScreenUpdating-Off xlapp) ;不按步骤刷新显示宏执行过程
(vlxls-ScreenUpdating-On xlapp) ;按步骤刷新显示宏执行过程
(vlxls-ColumnWidth xlapp col width) ;调整纵列宽度
(vlxls-RowHeight xlapp row height) ;调整横行高度
langjs 发表于 2014-6-18 09:31 static/image/common/back.gif
有没有全套的啊
不好意思，白天忙，现在附上相关函数源码，此为收集，感谢原作者！
zhqdh 发表于 2020-12-1 11:05
你下载的附件是否可用???我的下载后,提示文件损坏,,,请问能再发一份吗?
论坛有工具可以恢复其实就是把 0D 0A 删除了再保存就可以用了！ netdragon16888 发表于 2020-12-1 11:21
论坛有工具可以恢复其实就是把 0D 0A 删除了再保存就可以用了！
哪里可以下载 有没有全套的啊 很久没有来明径，最近想学习CAD导出EXCEL，好资料。 谢谢楼主啊 本帖最后由 CADABC 于 2014-7-2 20:53 编辑
不好意思，发重了。 太好了！！！！！ 首先感谢。太难消化了，还在相看天书一般， 又要重新捡起LISP了，非常感谢楼主分享，更感谢原作者！ 真的辛苦啦