Lisp-excel函数

AbnerXk

1. ;;;Lisp-excel函数;;;不明出处
   
2. (vlxls-app-Init) ;该程序实现了初始化EXCEL应用程序
   
3. (vlxls-app-New UnHide) ;该程序实现功能:新建一个excel格，UnHide 为T时，显示窗体 (vlxls-app-open XLSFile UnHide) 打开xlsfile文件
   
4. (vlxls-app-save xlapp); 保存文件
   
5. (vlxls-app-saveas xlapp Filename) ;另存为文件
   
6. (vlxls-app-quit xlapp SaveYN) ;退出应用程序 SaveYN : T/nil
   
7. (vlxls-app-kill SaveYN) ;强行清除所有EXCEL应用程序
   
8. (vlxls-app-autofit xlapp); 存储格自动调整大小
   
9. (vlxls-sheet-get-all xlapp) ;取得所有应用的页
   
10. (vlxls-Sheet-Get-Active xlapp) ;返回当前应用的页
    
11. (vlxls-sheet-delete xlapp Name) ;删除页
    
12. (vlxls-sheet-rename New Old Xlapp) ;给页重新命名
    
13. (vlxls-sheet-add xlapp Name) ;增加页
    
14. (vlxls-sheet-put-active xlapp Name) ;设置当前使用页
    
15. (vlxls-sheet-get-UsedRange xlapp Name) ;;取得使用页的使用范围
    
16. (vlxls-cellid id) ;cell & id 转换
    
17. (vlxls-rangeid id); range & id 转换
    
18. (vlxls-range-autofit range) ;自动调整范围内存储格
    
19. (vlxls-cell-put-active xlapp id); 范围内激活
    
20. (vlxls-cell-get-value xlapp id) ;取得范围内值并列表
    
21. (vlxls-cell-put-value xlapp id Data) ;将信息输入区域内
    
22. (vlxls-cellid-calc id x y); 计算范围
    
23. (vlxls-get-row-value xlapp id len) ;取出单列的内容（取的横行）
    
24. (vlxls-put-row-value xlapp id data flg) ;单列输入信息并且flg为t则自动调整尺寸 (vlxls-get-column-value xlapp id len); 取出单栏信息（取的纵列）
    
25. (vlxls-put-column-value xlapp id data flg); 单栏输入信息并且flg为t则自动调整尺寸 (vlxls-cell-get-aci xlapp id) ;获取单元格填充颜色
    
26. (vlxls-cell-put-aci xlapp id aci) ;设置单元格填充颜色aci
    
27. (vlxls-text-get-aci xlapp id) ;获取单元格字体颜色
    
28. (vlxls-text-put-aci xlapp id aci) ;设置单元格字体颜色
    
29. (vlxls-text-get-prop xlapp id) ;取得单元格文字相关信息
    
30. (vlxls-cell-get-prop xlapp id) ;取得单元格信息
    
31. (vlxls-cell-border xlapp id flg) ;外框线flg边框样式,0为无边框
    
32. (vlxls-cell-merge xlapp id) ;合并单元格
    
33. (vlxls-cell-unmerge xlapp id) ;取消合并单元格
    
34. (vlxls-cell-merge-p xlapp id) ;判断单元格是否合并，合并返回T否则nil
    
35. (vlxls-cell-get-mergeid xlapp id) ;取得单元格合并的范围
    
36. (vlxls-range-getID range) ;取得单元格地址(合并的返回合并)
    
37. (vlxls-range-size range) ;取得单元范围尺寸(宽度,高度,单位:磅)
    
38. (vlxls-Rangevalue->SafeArray data) ;构造安全数组用于excel
    
39. eg: (vlxls-variant->list (vlxls-rangevalue->safearray '(("A1" . "aaa")("B4" . "ccc"))))
    
40. (vlxls-ScreenUpdating-Off xlapp) ;不按步骤刷新显示宏执行过程
    
41. (vlxls-ScreenUpdating-On xlapp) ;按步骤刷新显示宏执行过程
    
42. (vlxls-ColumnWidth xlapp col width) ;调整纵列宽度
    
43. (vlxls-RowHeight xlapp row height) ;调整横行高度
    

;;;Lisp-excel函数;;;不明出处<br /> (vlxls-app-Init) ;该程序实现了初始化EXCEL应用程序<br /> (vlxls-app-New UnHide) ;该程序实现功能:新建一个excel格，UnHide 为T时，显示窗体 (vlxls-app-open XLSFile UnHide) 打开xlsfile文件<br /> (vlxls-app-save xlapp); 保存文件<br /> (vlxls-app-saveas xlapp Filename) ;另存为文件<br /> (vlxls-app-quit xlapp SaveYN) ;退出应用程序 SaveYN : T/nil<br /> (vlxls-app-kill SaveYN) ;强行清除所有EXCEL应用程序<br /> (vlxls-app-autofit xlapp); 存储格自动调整大小<br /> (vlxls-sheet-get-all xlapp) ;取得所有应用的页<br /> (vlxls-Sheet-Get-Active xlapp) ;返回当前应用的页<br /> (vlxls-sheet-delete xlapp Name) ;删除页<br /> (vlxls-sheet-rename New Old Xlapp) ;给页重新命名<br /> (vlxls-sheet-add xlapp Name) ;增加页<br /> (vlxls-sheet-put-active xlapp Name) ;设置当前使用页<br /> (vlxls-sheet-get-UsedRange xlapp Name) ;;取得使用页的使用范围<br /> (vlxls-cellid id) ;cell & id 转换<br /> (vlxls-rangeid id); range & id 转换<br /> (vlxls-range-autofit range) ;自动调整范围内存储格<br /> (vlxls-cell-put-active xlapp id); 范围内激活<br /> (vlxls-cell-get-value xlapp id) ;取得范围内值并列表<br /> (vlxls-cell-put-value xlapp id Data) ;将信息输入区域内<br /> (vlxls-cellid-calc id x y); 计算范围<br /> (vlxls-get-row-value xlapp id len) ;取出单列的内容（取的横行）<br /> (vlxls-put-row-value xlapp id data flg) ;单列输入信息并且flg为t则自动调整尺寸 (vlxls-get-column-value xlapp id len); 取出单栏信息（取的纵列）<br /> (vlxls-put-column-value xlapp id data flg); 单栏输入信息并且flg为t则自动调整尺寸 (vlxls-cell-get-aci xlapp id) ;获取单元格填充颜色<br /> (vlxls-cell-put-aci xlapp id aci) ;设置单元格填充颜色aci<br /> (vlxls-text-get-aci xlapp id) ;获取单元格字体颜色<br /> (vlxls-text-put-aci xlapp id aci) ;设置单元格字体颜色<br /> (vlxls-text-get-prop xlapp id) ;取得单元格文字相关信息<br /> (vlxls-cell-get-prop xlapp id) ;取得单元格信息<br /> (vlxls-cell-border xlapp id flg) ;外框线flg边框样式,0为无边框<br /> (vlxls-cell-merge xlapp id) ;合并单元格<br /> (vlxls-cell-unmerge xlapp id) ;取消合并单元格<br /> (vlxls-cell-merge-p xlapp id) ;判断单元格是否合并，合并返回T否则nil<br /> (vlxls-cell-get-mergeid xlapp id) ;取得单元格合并的范围<br /> (vlxls-range-getID range) ;取得单元格地址(合并的返回合并)<br /> (vlxls-range-size range) ;取得单元范围尺寸(宽度,高度,单位:磅)<br /> (vlxls-Rangevalue->SafeArray data) ;构造安全数组用于excel<br /> eg: (vlxls-variant->list (vlxls-rangevalue->safearray '(("A1" . "aaa")("B4" . "ccc"))))<br /> (vlxls-ScreenUpdating-Off xlapp) ;不按步骤刷新显示宏执行过程<br /> (vlxls-ScreenUpdating-On xlapp) ;按步骤刷新显示宏执行过程<br /> (vlxls-ColumnWidth xlapp col width) ;调整纵列宽度<br /> (vlxls-RowHeight xlapp row height) ;调整横行高度<br />

AbnerXk

langjs 发表于 2014-6-18 09:31
有没有全套的啊

不好意思，白天忙，现在附上相关函数源码，此为收集，感谢原作者！

netdragon16888

zhqdh 发表于 2020-12-1 11:05
你下载的附件是否可用???我的下载后,提示文件损坏,,,请问能再发一份吗?

论坛有工具可以恢复  其实就是把 0D 0A 删除了再保存就可以用了！

明27662

netdragon16888 发表于 2020-12-1 11:21
论坛有工具可以恢复  其实就是把 0D 0A 删除了再保存就可以用了！

哪里可以下载

langjs

有没有全套的啊

CADABC

很久没有来明径，最近想学习CAD导出EXCEL，好资料。

xujinhua

谢谢楼主啊

CADABC

不好意思，发重了。

dcl1214

太好了！！！！！

wzg356

首先感谢。太难消化了，还在相看天书一般，

dinosaurhxe

又要重新捡起LISP了，非常感谢楼主分享，更感谢原作者！

liujing95

真的辛苦啦