高级表格及超级列表框导出EXCEL

aidijy

高级表格及超级列表框导出EXCEL
主要解决大数字导出为科学计数的问题
需要电脑安装excel程序
无其他模块本子程序可以编译为模块使用。

  

子程序名	返回值类型	公开	备 注
高级表格保存为excel			解决大数字导出为科学计数的问题
参数名	类 型	参考	可空	数组	备 注
保存文件名	文本型
高级表格	高级表格
Excel程序	Excel程序
Excel工作簿	Excel工作簿

变量名	类 型	静态	数组	备 注
高表行数	整数型
高表列数	整数型
列前字母	文本型

Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号 ＝ 1
Excel工作簿.激活 ()
计次循环首 (高级表格.行数, 高表行数)
计次循环首 (高级表格.列数, 高表列数)
列前字母 ＝ 字符 (96 ＋ 高表列数)
Excel工作簿.首单元格 ＝ 列前字母 ＋ 到文本 (高表行数)
Excel工作簿.尾单元格 ＝ 列前字母 ＋ 到文本 (高表行数)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 到文本 (高级表格.取数据 (高表行数 － 1, 高表列数 － 1))
计次循环尾 ()
计次循环尾 ()
Excel工作簿.保存 (保存文件名)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.释放 ()
Excel程序.退出 ()
终止进程 (“Excel.exe”)

子程序名	返回值类型	公开	备 注
超级列表框保存为excel			解决大数字导出为科学计数的问题
参数名	类 型	参考	可空	数组	备 注
保存文件名	文本型
超级列表	超级列表框
Excel程序	Excel程序
Excel工作簿	Excel工作簿

变量名	类 型	静态	数组	备 注
行号	整数型
列号	整数型
列前字母	文本型

Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号 ＝ 1
Excel工作簿.激活 ()
计次循环首 (超级列表.取列数 (), 列号)  ' 此处取出超级列表框的列标题
列前字母 ＝ 字符 (96 ＋ 列号)
Excel工作簿.首单元格 ＝ 列前字母 ＋ 到文本 (“1”)
Excel工作簿.尾单元格 ＝ 列前字母 ＋ 到文本 (“1”)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 到文本 (超级列表.取列标题 (列号))
计次循环尾 ()
计次循环首 (超级列表.取表项数 (), 行号)  ' 此处取出超级列表框的表项内容
计次循环首 (超级列表.取列数 (), 列号)
列前字母 ＝ 字符 (96 ＋ 列号)
Excel工作簿.首单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据
Excel工作簿.尾单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 到文本 (超级列表.取标题 (行号 － 1, 列号 － 1))
计次循环尾 ()
计次循环尾 ()
Excel工作簿.保存 (保存文件名)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.释放 ()
Excel程序.退出 ()
终止进程 (“Excel.exe”)

i支持库列表	支持库注释
eGrid	高级表格支持库
eExcel2000	EXCEL2000支持库
eAPI	应用接口支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eGrid<br /> .支持库 eExcel2000<br /> .支持库 eAPI<br /> .支持库 iext<br /> <br /> .子程序 高级表格保存为excel, , 公开, 解决大数字导出为科学计数的问题<br /> .参数 保存文件名, 文本型<br /> .参数 高级表格, 高级表格<br /> .参数 Excel程序, Excel程序<br /> .参数 Excel工作簿, Excel工作簿<br /> .局部变量 高表行数, 整数型<br /> .局部变量 高表列数, 整数型<br /> .局部变量 列前字母, 文本型<br /> <br /> Excel程序.创建 ()<br /> Excel工作簿.置程序 (Excel程序)<br /> Excel工作簿.表格序号 ＝ 1<br /> Excel工作簿.激活 ()<br /> .计次循环首 (高级表格.行数, 高表行数)<br />     .计次循环首 (高级表格.列数, 高表列数)<br />         列前字母 ＝ 字符 (96 ＋ 高表列数)<br />         Excel工作簿.首单元格 ＝ 列前字母 ＋ 到文本 (高表行数)<br />         Excel工作簿.尾单元格 ＝ 列前字母 ＋ 到文本 (高表行数)<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 到文本 (高级表格.取数据 (高表行数 － 1, 高表列数 － 1))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> Excel工作簿.保存 (保存文件名)<br /> Excel工作簿.释放 ()<br /> Excel工作簿.关闭 ()<br /> Excel程序.释放 ()<br /> Excel程序.退出 ()<br /> 终止进程 (“Excel.exe”)<br /> <br /> <br /> .子程序 超级列表框保存为excel, , 公开, 解决大数字导出为科学计数的问题<br /> .参数 保存文件名, 文本型<br /> .参数 超级列表, 超级列表框<br /> .参数 Excel程序, Excel程序<br /> .参数 Excel工作簿, Excel工作簿<br /> .局部变量 行号, 整数型<br /> .局部变量 列号, 整数型<br /> .局部变量 列前字母, 文本型<br /> <br /> Excel程序.创建 ()<br /> Excel工作簿.置程序 (Excel程序)<br /> Excel工作簿.表格序号 ＝ 1<br /> Excel工作簿.激活 ()<br /> .计次循环首 (超级列表.取列数 (), 列号)  ' 此处取出超级列表框的列标题<br />     列前字母 ＝ 字符 (96 ＋ 列号)<br />     Excel工作簿.首单元格 ＝ 列前字母 ＋ 到文本 (“1”)<br />     Excel工作簿.尾单元格 ＝ 列前字母 ＋ 到文本 (“1”)<br />     Excel工作簿.内容格式 ＝ “@”<br />     Excel工作簿.内容 ＝ 到文本 (超级列表.取列标题 (列号))<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表.取表项数 (), 行号)  ' 此处取出超级列表框的表项内容<br />     .计次循环首 (超级列表.取列数 (), 列号)<br />         列前字母 ＝ 字符 (96 ＋ 列号)<br />         Excel工作簿.首单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据<br />         Excel工作簿.尾单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 到文本 (超级列表.取标题 (行号 － 1, 列号 － 1))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> Excel工作簿.保存 (保存文件名)<br /> Excel工作簿.释放 ()<br /> Excel工作簿.关闭 ()<br /> Excel程序.释放 ()<br /> Excel程序.退出 ()<br /> 终止进程 (“Excel.exe”)

补充内容 (2023-9-19 08:40):
后面的保存部分不对
应该是
保存 （）
关闭（）
释放（）
退出（）
释放（）

zhouxuzx

学习，学习

gxfang

导出速度怎么样

gdwlwl

luowm850

开源精神必须支持~

zwh5363

EXCEL工作薄：这里面的参数怎么写

husihara

学习学习

蓝空

阿达打

dajian

大佬，你这个程序要怎么调用啊，那些参数名看不明白呀

野原广志

牛逼大佬，正好需要！

aidijy

yaoliu1977 发表于 2021-11-9 11:52
这个不错,我正好可以用

后面的保存部分不对
应该是
保存 （）
关闭（）
释放（）
退出（）
释放（）