超列_导出表格 - 精易论坛

子程序名	返回值类型	公开	备注
超列_到表格	逻辑型		name.xlsx 返回是否成功保存
参数名	类型	参考	可空	数组	备注
超级列表框	超级列表框
Excel路径	文本型				输入name 或 name.xlsx ,创建或打开 name.xlsx ,自动添加扩展名
工作表名	文本型				同名替换区域内容,别名则新建,空为新建当前时间表名
不带表头	逻辑型				默认假带表头
单元格式	文本型				常规【G/通用格式】2位小数【0.00_】文本【@】日期【"yyyy""年""m""月"";@"】百分比【0.00%】中文大写数字【[DBNum2][$-804]G/通用格式】。注明：可参考【取单元格格式】方法取出的值。

变量名	类型	静态	数组	备注
局簿组	文本型		0
sy	整数型
a	整数型
b	整数型
局存在	逻辑型
表格	EXCEL程序对象
w	单元格对象
局区域	文本型

如果真 (取文本右边 (Excel路径, 5) ≠ “.xlsx”)

Excel路径＝ Excel路径＋ “.xlsx”

局存在＝文件是否存在 (Excel路径)
表格.创建 ()
w.置程序 (表格)

判断 (局存在)

表格.打开文件 (Excel路径, , 假, , )

表格.新建工作簿 ()

如果真 (是否为空 (工作表名))

工作表名＝ “A” ＋到文本 (表格.取工作表数 ())

表格.新建工作表 (工作表名)
sy ＝表格.取工作表索引 (工作表名)
a ＝超级列表框.取表项数 ()
b ＝超级列表框.取列数 ()
局区域＝ “A1:” ＋ EXCEL_数字转换列号 (b) ＋到文本 (a ＋ 1)

如果真 (取反 (是否为空 (单元格式)))

w.格式_置单元格格式 (sy, 局区域, 单元格式)

计次循环首 (a, a)

计次循环首 (b, b)

w.置文本值壹 (sy, a, b, 超级列表框.取标题 (a － 1, b － 1))

计次循环尾 ()

如果真 (取反 (不带表头))

w.插入一行 (sy, “A1”)

计次循环首 (超级列表框.取列数 (), b)

w.置文本值壹 (sy, 1, b, 超级列表框.取列标题 (b － 1))

计次循环尾 ()

' 局区域＝ w.取已用区域地址 (sy)
w.置自动列宽 (sy, 局区域)
表格.取工作簿数组 (局簿组)

如果真 (取数组成员数 (局簿组) ＞ 0)

判断 (局存在)

局存在＝表格.保存 (局簿组 [1])

局存在＝表格.另存为 (局簿组 [1], Excel路径, 51, , )

表格.退出程序 ()
返回 (局存在)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext<br />
<br />
.子程序 超列_到表格, 逻辑型, 公开, name.xlsx 返回是否成功保存<br />
.参数 超级列表框, 超级列表框<br />
.参数 Excel路径, 文本型, , 输入name 或 name.xlsx ,创建 或 打开 name.xlsx ,自动添加扩展名<br />
.参数 工作表名, 文本型, 可空, 同名替换区域内容,别名则新建,空为新建当前时间表名<br />
.参数 不带表头, 逻辑型, 可空, 默认假 带表头<br />
.参数 单元格式, 文本型, 可空, 常规【G/通用格式】2位小数【0.00_】文本【@】日期【"yyyy""年""m""月"";@"】百分比【0.00%】中文大写数字【[DBNum2][$-804]G/通用格式】。注明：可参考【取单元格格式】方法取出的值。<br />
.局部变量 局簿组, 文本型, , "0"<br />
.局部变量 sy, 整数型<br />
.局部变量 a, 整数型<br />
.局部变量 b, 整数型<br />
.局部变量 局存在, 逻辑型<br />
.局部变量 表格, EXCEL程序对象<br />
.局部变量 w, 单元格对象<br />
.局部变量 局区域, 文本型<br />
<br />
.如果真 (取文本右边 (Excel路径, 5) ≠ “.xlsx”)<br />
    Excel路径 ＝ Excel路径 ＋ “.xlsx”<br />
.如果真结束<br />
<br />
局存在 ＝ 文件是否存在 (Excel路径)<br />
表格.创建 ()<br />
w.置程序 (表格)<br />
.判断开始 (局存在)<br />
    表格.打开文件 (Excel路径, , 假, , )<br />
.默认<br />
    表格.新建工作簿 ()<br />
.判断结束<br />
<br />
.如果真 (是否为空 (工作表名))<br />
    工作表名 ＝ “A” ＋ 到文本 (表格.取工作表数 ())<br />
.如果真结束<br />
<br />
<br />
表格.新建工作表 (工作表名)<br />
sy ＝ 表格.取工作表索引 (工作表名)<br />
a ＝ 超级列表框.取表项数 ()<br />
b ＝ 超级列表框.取列数 ()<br />
<br />
局区域 ＝ “A1:” ＋ EXCEL_数字转换列号 (b) ＋ 到文本 (a ＋ 1)<br />
<br />
.如果真 (取反 (是否为空 (单元格式)))<br />
    w.格式_置单元格格式 (sy, 局区域, 单元格式)<br />
.如果真结束<br />
<br />
.计次循环首 (a, a)<br />
    .计次循环首 (b, b)<br />
        w.置文本值壹 (sy, a, b, 超级列表框.取标题 (a － 1, b － 1))<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
<br />
.如果真 (取反 (不带表头))<br />
    w.插入一行 (sy, “A1”)<br />
    .计次循环首 (超级列表框.取列数 (), b)<br />
        w.置文本值壹 (sy, 1, b, 超级列表框.取列标题 (b － 1))<br />
    .计次循环尾 ()<br />
.如果真结束<br />
<br />
' 局区域 ＝ w.取已用区域地址 (sy)<br />
<br />
w.置自动列宽 (sy, 局区域)<br />
表格.取工作簿数组 (局簿组)<br />
<br />
.如果真 (取数组成员数 (局簿组) ＞ 0)<br />
    .判断开始 (局存在)<br />
        局存在 ＝ 表格.保存 (局簿组 [1])<br />
    .默认<br />
        局存在 ＝ 表格.另存为 (局簿组 [1], Excel路径, 51, , )<br />
    .判断结束<br />
<br />
.如果真结束<br />
<br />
表格.退出程序 ()<br />
返回 (局存在)