易语言如何导出xls的Excel表格

易晓悠 · 发表于 2025-10-26 19:01:52

Excel表头依次为序号、小区名称、单门门牌号、号码1、号码2 并能对读取，请各位大神指教，谢谢

变量名	类型	静态	数组	备注
表名组	文本型		0
i	整数型
字段	讯手_字段型		0
sql	文本型
Excel	类_Excel
x	整数型
n	整数型
y	整数型
局_目录	文本型

通用对话框2.初始目录＝取运行目录 ()
通用对话框2.打开 ()
局_目录＝通用对话框2.文件名

如果真 (局_目录 ≠ “”)

如果真 (Excel.初始化_ (数据库连接1, 记录集1, 局_目录, 0, ))

超级列表框_数据.报表列＝ { }

Excel.枚举表名_ (表名组)

如果真 (取数组成员数 (表名组) ＜ 1)

返回 ()

Excel.枚举字段名_ (表名组 [1], 字段)

计次循环首 (取数组成员数 (字段), i)

超级列表框_数据.插入列 (, 字段 [i].名称, 100, , , )

计次循环尾 ()

Excel.打开表_ (表名组 [1])

x ＝ Excel.取记录集行数_ ()

计次循环首 (x, i)

y ＝超级列表框_数据.插入表项 (, “”, , , , )

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

如果 (n ＝ 1)

Excel.读文本_ (到文本 (n － 1), sql)

超级列表框_数据.置标题 (y, n － 1, 编辑框1.内容＋ sql)

Excel.读文本_ (到文本 (n － 1), sql)

超级列表框_数据.置标题 (y, n － 1, sql)

计次循环尾 ()

Excel.到下一条_ ()

计次循环尾 ()

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

.版本 2<br />
.支持库 iext<br />
<br />
.局部变量 表名组, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 字段, 讯手_字段型, , "0"<br />
.局部变量 sql, 文本型<br />
.局部变量 Excel, 类_Excel<br />
.局部变量 x, 整数型<br />
.局部变量 n, 整数型<br />
.局部变量 y, 整数型<br />
.局部变量 局_目录, 文本型<br />
<br />
通用对话框2.初始目录 ＝ 取运行目录 ()<br />
通用对话框2.打开 ()<br />
局_目录 ＝ 通用对话框2.文件名<br />
.如果真 (局_目录 ≠ “”)<br />
    .如果真 (Excel.初始化_ (数据库连接1, 记录集1, 局_目录, 0, ))<br />
        超级列表框_数据.报表列 ＝ {  }<br />
        Excel.枚举表名_ (表名组)<br />
        .如果真 (取数组成员数 (表名组) ＜ 1)<br />
            返回 ()<br />
        .如果真结束<br />
        Excel.枚举字段名_ (表名组 [1], 字段)<br />
        .计次循环首 (取数组成员数 (字段), i)<br />
            超级列表框_数据.插入列 (, 字段 <i>.名称, 100, , , )<br />
        .计次循环尾 ()<br />
        Excel.打开表_ (表名组 [1])<br />
        x ＝ Excel.取记录集行数_ ()<br />
        .计次循环首 (x, i)<br />
            y ＝ 超级列表框_数据.插入表项 (, “”, , , , )<br />
            .计次循环首 (超级列表框_数据.取列数 (), n)<br />
                .如果 (n ＝ 1)<br />
                    Excel.读文本_ (到文本 (n － 1), sql)<br />
                    超级列表框_数据.置标题 (y, n － 1, 编辑框1.内容 ＋ sql)<br />
                .否则<br />
                    Excel.读文本_ (到文本 (n － 1), sql)<br />
                    超级列表框_数据.置标题 (y, n － 1, sql)<br />
                .如果结束<br />
<br />
            .计次循环尾 ()<br />
            Excel.到下一条_ ()<br />
        .计次循环尾 ()<br />
    .如果真结束

.

补充内容 (2025-10-26 19:03):
如何生成一个xls的文件，Excel表头依次为序号、小区名称、单门门牌号、号码1、号码2 并能让以上代码读取，请各位大神指教，谢谢