|
楼主 |
发表于 2023-9-18 17:54:26
|
显示全部楼层
广东省深圳市
.版本 2
.支持库 eGrid
.支持库 eExcel2000
.子程序 高级表格保存为excel, , 公开, 解决大数字导出为科学计数的问题
.参数 保存文件名, 文本型
.参数 高级表格, 高级表格
.参数 Excel程序, Excel程序
.参数 Excel工作簿, Excel工作簿
.局部变量 高表行数, 整数型
.局部变量 高表列数, 整数型
.局部变量 列前字母, 文本型
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号 = 1
Excel工作簿.激活 ()
.计次循环首 (高级表格.行数, 高表行数)
.计次循环首 (高级表格.列数, 高表列数)
.判断开始 (高表列数 > 26)
列前字母 = “A” + 字符 (96 + 高表列数 - 26)
.默认
列前字母 = 字符 (96 + 高表列数)
.判断结束
Excel工作簿.首单元格 = 列前字母 + 到文本 (高表行数)
Excel工作簿.尾单元格 = 列前字母 + 到文本 (高表行数)
Excel工作簿.内容格式 = “@”
Excel工作簿.内容 = 到文本 (高级表格.取数据 (高表行数 - 1, 高表列数 - 1))
.计次循环尾 ()
.计次循环尾 ()
Excel工作簿.保存 (保存文件名)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.释放 ()
Excel程序.退出 ()
原函数是这么写的 |
|