模块怎么使用（LibXL ） - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮_录入表格_被单击

变量名	类型	静态	数组	备注
局_文件	文本型
局_libxl	LibXL
局_总行	整数型
局_总列	整数型
局_当前行	整数型
局_索引	整数型

通用对话框.类型＝ 0

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

' 判断表格文件并使用对应方法进行对象创建

' 注：对象创建后，如果在线程内需要重新创建，记得先释放。

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

判断 (寻找文本 (局_文件, “*.xlsx”, , 假) ＞ -1)

局_libxl.创建XLSX ()

局_libxl.创建XLS ()

' 初始化需要

局_libxl.注册 (“GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)

局_libxl.打开EXCEL (通用对话框.文件名)

局_libxl.取表格句柄 (0) ' 读取第一个Sheet的内容

局_libxl.表格取使用区域_ (, , 局_总行, 局_总列)

' 为避免出现意外情况，多读一行

局_总行＝局_总行＋ 1

' 载入到超级列表框

计次循环首 (局_总行, 局_当前行)

局_索引＝超级列表框.插入表项 (, , , , , )

超级列表框.置标题 (局_索引, 0, 局_libxl.表格取单元格内容_ (局_当前行－ 1, 0, ))

超级列表框.置标题 (局_索引, 1, 局_libxl.表格取单元格内容_ (局_当前行－ 1, 1, ))

超级列表框.置标题 (局_索引, 2, 局_libxl.表格取单元格内容_ (局_当前行－ 1, 2, ))

计次循环尾 ()

子程序名	返回值类型	公开	备注
_按钮_导出表格_被单击

变量名	类型	静态	数组	备注
局_文件	文本型
局_libxl	LibXL
局_当前行	整数型
局_索引	整数型

通用对话框.类型＝ 1

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

' 判断表格文件并使用对应方法进行对象创建

' 注：对象创建后，如果在线程内需要重新创建，记得先释放。

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

判断 (寻找文本 (局_文件, “*.xlsx”, , 假) ＞ -1)

局_libxl.创建XLSX ()

局_libxl.创建XLS ()

' 初始化需要

局_libxl.注册 (“GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)

局_libxl.添加表格 (“Sheet1”, ) ' 自定义表名

局_libxl.取表格句柄 (0)

' 导出超级列表框的内容

计次循环首 (超级列表框.取表项数 (), 局_索引)

局_索引＝局_索引－ 1

局_libxl.表格置单元格内容_ (局_当前行, 0, 超级列表框.取标题 (局_索引, 0), )

局_libxl.表格置单元格内容_ (局_当前行, 1, 超级列表框.取标题 (局_索引, 1), )

局_libxl.表格置单元格内容_ (局_当前行, 2, 超级列表框.取标题 (局_索引, 2), )

局_当前行＝局_当前行＋ 1 ' 控制写入表格中的行号

计次循环尾 ()

' 保存表格文件

判断 (局_libxl.保存EXCEL (局_文件))

信息框 (“保存成功”, #信息图标, , )

信息框 (“保存失败”, #错误图标, , )

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

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

.版本 2<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮_录入表格_被单击<br />
.局部变量 局_文件, 文本型<br />
.局部变量 局_libxl, LibXL<br />
.局部变量 局_总行, 整数型<br />
.局部变量 局_总列, 整数型<br />
.局部变量 局_当前行, 整数型<br />
.局部变量 局_索引, 整数型<br />
<br />
通用对话框.类型 ＝ 0<br />
.如果真 (通用对话框.打开 ())<br />
<br />
    ' 判断表格文件并使用对应方法进行对象创建<br />
    ' 注：对象创建后，如果在线程内需要重新创建，记得先释放。<br />
    局_文件 ＝ 通用对话框.文件名<br />
    .判断开始 (寻找文本 (局_文件, “*.xlsx”, , 假) ＞ -1)<br />
        局_libxl.创建XLSX ()<br />
    .默认<br />
        局_libxl.创建XLS ()<br />
    .判断结束<br />
<br />
    ' 初始化需要<br />
    局_libxl.注册 (“GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)<br />
    局_libxl.打开EXCEL (通用对话框.文件名)<br />
    局_libxl.取表格句柄 (0)  ' 读取第一个Sheet的内容<br />
    局_libxl.表格取使用区域_ (, , 局_总行, 局_总列)<br />
<br />
    ' 为避免出现意外情况，多读一行<br />
    局_总行 ＝ 局_总行 ＋ 1<br />
<br />
    ' 载入到超级列表框<br />
    .计次循环首 (局_总行, 局_当前行)<br />
        局_索引 ＝ 超级列表框.插入表项 (, , , , , )<br />
        超级列表框.置标题 (局_索引, 0, 局_libxl.表格取单元格内容_ (局_当前行 － 1, 0, ))<br />
        超级列表框.置标题 (局_索引, 1, 局_libxl.表格取单元格内容_ (局_当前行 － 1, 1, ))<br />
        超级列表框.置标题 (局_索引, 2, 局_libxl.表格取单元格内容_ (局_当前行 － 1, 2, ))<br />
    .计次循环尾 ()<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮_导出表格_被单击<br />
.局部变量 局_文件, 文本型<br />
.局部变量 局_libxl, LibXL<br />
.局部变量 局_当前行, 整数型<br />
.局部变量 局_索引, 整数型<br />
<br />
通用对话框.类型 ＝ 1<br />
.如果真 (通用对话框.打开 ())<br />
<br />
    ' 判断表格文件并使用对应方法进行对象创建<br />
    ' 注：对象创建后，如果在线程内需要重新创建，记得先释放。<br />
    局_文件 ＝ 通用对话框.文件名<br />
    .判断开始 (寻找文本 (局_文件, “*.xlsx”, , 假) ＞ -1)<br />
        局_libxl.创建XLSX ()<br />
    .默认<br />
        局_libxl.创建XLS ()<br />
    .判断结束<br />
<br />
    ' 初始化需要<br />
    局_libxl.注册 (“GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)<br />
    局_libxl.添加表格 (“Sheet1”, )  ' 自定义表名<br />
    局_libxl.取表格句柄 (0)<br />
<br />
    ' 导出超级列表框的内容<br />
    .计次循环首 (超级列表框.取表项数 (), 局_索引)<br />
        局_索引 ＝ 局_索引 － 1<br />
        局_libxl.表格置单元格内容_ (局_当前行, 0, 超级列表框.取标题 (局_索引, 0), )<br />
        局_libxl.表格置单元格内容_ (局_当前行, 1, 超级列表框.取标题 (局_索引, 1), )<br />
        局_libxl.表格置单元格内容_ (局_当前行, 2, 超级列表框.取标题 (局_索引, 2), )<br />
        局_当前行 ＝ 局_当前行 ＋ 1  ' 控制写入表格中的行号<br />
    .计次循环尾 ()<br />
<br />
    ' 保存表格文件<br />
    .判断开始 (局_libxl.保存EXCEL (局_文件))<br />
        信息框 (“保存成功”, #信息图标, , )<br />
    .默认<br />
        信息框 (“保存失败”, #错误图标, , )<br />
    .判断结束<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 __启动窗口_创建完毕