求一个高级表格导入导出的源码

wangyuan11 · 发表于 2022-1-30 15:20:52

高级表格导出用的是这个
但是我的表格有30列，只能导出26列，求帮助看看源码有啥问题
还有导入代码用的是高级表格.粘贴（），提示会粘贴板占用资源，有没有简单点的就像我的导出代码一样的导入代码

子程序名	返回值类型	公开	备注
高级表格另存为Excel			把高级表格里面的内容导出到Excel
参数名	类型	参考	可空	数组	备注
高级表格	高级表格
Excel程序	Excel程序
Excel工作簿	Excel工作簿
通用对话框	通用对话框
是否使用进度条	逻辑型
进度条	进度条
是否提示完成	逻辑型

变量名	类型	静态	数组	备注
i	整数型
行数	整数型
文本	文本型
文本1	字节集
ii	整数型
文本3	文本型
整数	字节型
文件名	文本型
后缀名	文本型		0

通用对话框.类型＝ 1
通用对话框1.初始目录＝取特定目录 ( #系统桌面 )
通用对话框1.文件名＝ “职位条件导出”
连续赋值 (“Excel 97-2003 工作簿(*.xls)|*.xls”, 通用对话框1.过滤器, 通用对话框1.默认文件后缀)

如果真 (通用对话框.打开 () ＝假)

返回 ()

如果真 (Excel程序.创建 () ＝假)

信息框 (“Excel 程序创建失败！可能没有安装Excel2000”, 64, “提示信息”)

返回 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号＝ 1
Excel程序.显示＝假
行数＝高级表格.行数

如果真 (是否使用进度条＝真)

进度条.最大位置＝行数

计次循环首 (行数, i)

计次循环首 (高级表格.列数, ii)

文本1 ＝取空白字节集 (1)

如果 (ii ＞ 26)

整数＝ 96 ＋ ii － 26

文本1 ＝到字节集 (整数)

文本3 ＝ “a” ＋到文本 (文本1)

整数＝ 96 ＋ ii

文本1 ＝到字节集 (整数)

文本3 ＝到文本 (文本1) ＋到文本 (i)

文本＝高级表格.取数据 (i － 1, ii － 1)

设置表格内容 (Excel工作簿, 文本3, “”, 文本)

计次循环尾 ()

如果真 (是否使用进度条＝真)

进度条.位置＝ i

计次循环尾 ()
Excel工作簿.保存 (通用对话框.文件名)
Excel工作簿.关闭 ()
Excel程序.退出 ()

如果真 (是否提示完成＝真)

文件名＝通用对话框.文件名

后缀名＝分割文本 (通用对话框.文件名, “.”, )

如果真 (到小写 (后缀名 [取数组成员数 (后缀名)]) ≠ “xls”)

文件名＝通用对话框.文件名＋ “.xls”

信息框 (“表格导出成功，位置在：” ＋ #换行符＋文件名, 64, “提示信息”)

子程序名	返回值类型	公开	备注
设置表格内容
参数名	类型	参考	可空	数组	备注
工作表	Excel工作簿
首单元	文本型
尾单元	文本型
内容	文本型

如果真 (尾单元＝ “”)

尾单元＝首单元
工作表.首单元格＝首单元
工作表.尾单元格＝尾单元
工作表.内容格式＝ “@”
工作表.内容＝内容

i支持库列表	支持库注释
eGrid	高级表格支持库
eExcel2000	EXCEL2000支持库
shell	操作系统界面功能支持库

.版本 2<br />
.支持库 eGrid<br />
.支持库 eExcel2000<br />
.支持库 shell<br />
<br />
.子程序 高级表格另存为Excel, , 公开, 把高级表格里面的内容导出到Excel<br />
.参数 高级表格, 高级表格<br />
.参数 Excel程序, Excel程序<br />
.参数 Excel工作簿, Excel工作簿<br />
.参数 通用对话框, 通用对话框<br />
.参数 是否使用进度条, 逻辑型, 可空<br />
.参数 进度条, 进度条, 可空<br />
.参数 是否提示完成, 逻辑型, 可空<br />
.局部变量 i, 整数型<br />
.局部变量 行数, 整数型<br />
.局部变量 文本, 文本型<br />
.局部变量 文本1, 字节集<br />
.局部变量 ii, 整数型<br />
.局部变量 文本3, 文本型<br />
.局部变量 整数, 字节型<br />
.局部变量 文件名, 文本型<br />
.局部变量 后缀名, 文本型, , "0"<br />
<br />
通用对话框.类型 ＝ 1<br />
<br />
通用对话框1.初始目录 ＝ 取特定目录 (#系统桌面)<br />
<br />
通用对话框1.文件名 ＝ “职位条件导出”<br />
连续赋值 (“Excel 97-2003 工作簿(*.xls)|*.xls”, 通用对话框1.过滤器, 通用对话框1.默认文件后缀)<br />
.如果真 (通用对话框.打开 () ＝ 假)<br />
    返回 ()<br />
.如果真结束<br />
.如果真 (Excel程序.创建 () ＝ 假)<br />
    信息框 (“Excel 程序创建失败！可能没有安装Excel2000”, 64, “提示信息”)<br />
    返回 ()<br />
.如果真结束<br />
Excel工作簿.置程序 (Excel程序)<br />
Excel工作簿.表格序号 ＝ 1<br />
Excel程序.显示 ＝ 假<br />
行数 ＝ 高级表格.行数<br />
.如果真 (是否使用进度条 ＝ 真)<br />
    进度条.最大位置 ＝ 行数<br />
.如果真结束<br />
.计次循环首 (行数, i)<br />
    .计次循环首 (高级表格.列数, ii)<br />
        文本1 ＝ 取空白字节集 (1)<br />
<br />
<br />
        .如果 (ii ＞ 26)<br />
            整数 ＝ 96 ＋ ii － 26<br />
            文本1 ＝ 到字节集 (整数)<br />
            文本3 ＝ “a” ＋ 到文本 (文本1)<br />
        .否则<br />
            整数 ＝ 96 ＋ ii<br />
            文本1 ＝ 到字节集 (整数)<br />
            文本3 ＝ 到文本 (文本1) ＋ 到文本 (i)<br />
        .如果结束<br />
        文本 ＝ 高级表格.取数据 (i － 1, ii － 1)<br />
        设置表格内容 (Excel工作簿, 文本3, “”, 文本)<br />
<br />
<br />
    .计次循环尾 ()<br />
    .如果真 (是否使用进度条 ＝ 真)<br />
        进度条.位置 ＝ i<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
Excel工作簿.保存 (通用对话框.文件名)<br />
Excel工作簿.关闭 ()<br />
Excel程序.退出 ()<br />
.如果真 (是否提示完成 ＝ 真)<br />
    文件名 ＝ 通用对话框.文件名<br />
    后缀名 ＝ 分割文本 (通用对话框.文件名, “.”, )<br />
    .如果真 (到小写 (后缀名 [取数组成员数 (后缀名)]) ≠ “xls”)<br />
        文件名 ＝ 通用对话框.文件名 ＋ “.xls”<br />
    .如果真结束<br />
    信息框 (“表格导出成功，位置在：” ＋ #换行符 ＋ 文件名, 64, “提示信息”)<br />
.如果真结束<br />
<br />
<br />
<br />
.子程序 设置表格内容<br />
.参数 工作表, Excel工作簿<br />
.参数 首单元, 文本型<br />
.参数 尾单元, 文本型<br />
.参数 内容, 文本型<br />
<br />
.如果真 (尾单元 ＝ “”)<br />
    尾单元 ＝ 首单元<br />
.如果真结束<br />
工作表.首单元格 ＝ 首单元<br />
工作表.尾单元格 ＝ 尾单元<br />
工作表.内容格式 ＝ “@”<br />
工作表.内容 ＝ 内容