LibXL 实现两表数据关联和写入

星见雅

使用的模块是 LibXL 和 高级表格
操作步骤：
模板路径：选择文件将首行标题导入高级表格
资料路径：选择文件匹配对应的标题，将资料写入高级表格标题以下的行
比如：（两边表格的标题内容不同、顺序不一致）
模板A标题为变量名、数据类型、值
资料B标题为数值、类型、变量


实现：
1、资料 B 标题变量绑定模板A标题变量名，类型绑定数据类型、数值绑定值
2、并将资料 B 标题下的内容写入到模板 A 标题下的行中

目前困难：不知道如何获取单元格位置，想法是绑定参数后，获取两边表格标题的位置，通过循环将B的内容写入到A中

请教解决方法

星见雅

源文件，萌新写的可能比较乱

b0y

听的一头雾水.... 没理解

星见雅

b0y 发表于 2025-4-28 18:07
听的一头雾水.... 没理解

两个 excel 的标题做绑定，将其中一张表的资料拷贝过去

补充内容 (2025-4-28 21:09):
比如将B表表头为 变量 下面的所有资料拷贝到 A 表表头名为 变量名 的下面

lisher

不要说什么 变量 表头这些乱七八糟的，直接上最根本需求，是不是把A表数据按B表模板样式建立导入

星见雅

lisher 发表于 2025-4-29 09:59
不要说什么 变量 表头这些乱七八糟的，直接上最根本需求，是不是把A表数据按B表模板样式建立导入 ...

A表标题叫“名字”，B表标题名字叫“姓名”，将B表姓名下面的内容复制到A表标题下面，多个标题实现同样的效果，两张表标题顺序不一致。

星见雅

个人琢磨已实现......

星见雅

星见雅 发表于 2025-4-29 12:10
个人琢磨已实现......

  

子程序名	返回值类型	公开	备 注
_生成预览_被单击

变量名	类 型	静态	数组	备 注
标题循环计次	整数型
数据行循环计次	整数型
局_总行	整数型
局_总列	整数型
标题匹配项	文本型
高表列循环	整数型
表数量循环计次	整数型
最后插入行数	整数型
整表总行数	整数型
自动调整行计次	整数型
自动调整列计次	整数型
类型自动生成计次	整数型
通用数据写入循环	整数型

_启动窗口.禁止 ＝ 真
最后插入行数 ＝ 2
整表总行数 ＝ 0
如果 (文本比较 (文件_取扩展名 (编辑框2.内容), “.xlsx”, 假) ＝ 0 或 文本比较 (文件_取扩展名 (编辑框2.内容), “.xls”, 假) ＝ 0)
如果真 (文本比较 (文件_取扩展名 (编辑框2.内容), “.xlsx”, 假) ＝ 0)
局_LibXL.创建xlsx ()

如果真 (文本比较 (文件_取扩展名 (编辑框2.内容), “.xls”, 假) ＝ 0)
局_LibXL.创建xls ()

局_LibXL.注册 (“gurl”, “windows-2b212d0308c4e60562b36866adz0z5ib”)
局_LibXL.打开Excel (编辑框2.内容)
' 取表数量，循环获取每张表的数据
计次循环首 (局_LibXL.取表数量 (), 表数量循环计次)
局_LibXL.取表句柄 (表数量循环计次 － 1)
局_LibXL.表格取使用区域_ (, , 局_总行, 局_总列)
整表总行数 ＝ 整表总行数 ＋ 局_总行
判断循环首 (高级表格1.行数 ＜ 整表总行数 ＋ 3)
高级表格1.插入行 (, )
判断循环尾 ()
' 表格标题和插入标题进行匹配
计次循环首 (高级表格1.列数, 高表列循环)
标题匹配项 ＝ 到文本 (高级表格1.取数据 (2, 高表列循环))
计次循环首 (局_总列 ＋ 1, 标题循环计次)
如果真 (局_LibXL.取单元格内容 (0, 标题循环计次 － 1, ) ＝ 标题匹配项)
' 标题匹配，数据行写入
计次循环首 (局_总行, 数据行循环计次)
如果 (表数量循环计次 ＝ 1)
高级表格1.置数据 (数据行循环计次 ＋ 2, 高表列循环, 1, 局_LibXL.取单元格内容 (数据行循环计次, 标题循环计次 － 1, ))
高级表格1.置数据 (整表总行数 － 局_总行 ＋ 数据行循环计次 ＋ 2, 高表列循环, 1, 局_LibXL.取单元格内容 (数据行循环计次, 标题循环计次 － 1, ))

计次循环尾 ()

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
局_LibXL.释放 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 _生成预览_被单击<br /> .局部变量 标题循环计次, 整数型<br /> .局部变量 数据行循环计次, 整数型<br /> .局部变量 局_总行, 整数型<br /> .局部变量 局_总列, 整数型<br /> .局部变量 标题匹配项, 文本型<br /> .局部变量 高表列循环, 整数型<br /> .局部变量 表数量循环计次, 整数型<br /> .局部变量 最后插入行数, 整数型<br /> .局部变量 整表总行数, 整数型<br /> .局部变量 自动调整行计次, 整数型<br /> .局部变量 自动调整列计次, 整数型<br /> .局部变量 类型自动生成计次, 整数型<br /> .局部变量 通用数据写入循环, 整数型<br /> <br /> _启动窗口.禁止 ＝ 真<br /> 最后插入行数 ＝ 2<br /> 整表总行数 ＝ 0<br /> <br /> .如果 (文本比较 (文件_取扩展名 (编辑框2.内容), “.xlsx”, 假) ＝ 0 或 文本比较 (文件_取扩展名 (编辑框2.内容), “.xls”, 假) ＝ 0)<br />     .如果真 (文本比较 (文件_取扩展名 (编辑框2.内容), “.xlsx”, 假) ＝ 0)<br />         局_LibXL.创建xlsx ()<br />     .如果真结束<br /> <br />     .如果真 (文本比较 (文件_取扩展名 (编辑框2.内容), “.xls”, 假) ＝ 0)<br />         局_LibXL.创建xls ()<br />     .如果真结束<br /> <br />     局_LibXL.注册 (“gurl”, “windows-2b212d0308c4e60562b36866adz0z5ib”)<br />     局_LibXL.打开Excel (编辑框2.内容)<br /> <br />     ' 取表数量，循环获取每张表的数据<br />     .计次循环首 (局_LibXL.取表数量 (), 表数量循环计次)<br /> <br />         局_LibXL.取表句柄 (表数量循环计次 － 1)<br />         局_LibXL.表格取使用区域_ (, , 局_总行, 局_总列)<br />         整表总行数 ＝ 整表总行数 ＋ 局_总行<br /> <br />         .判断循环首 (高级表格1.行数 ＜ 整表总行数 ＋ 3)<br />             高级表格1.插入行 (, )<br />         .判断循环尾 ()<br /> <br />         ' 表格标题和插入标题进行匹配<br />         .计次循环首 (高级表格1.列数, 高表列循环)<br /> <br />             标题匹配项 ＝ 到文本 (高级表格1.取数据 (2, 高表列循环))<br /> <br />             .计次循环首 (局_总列 ＋ 1, 标题循环计次)<br /> <br />                 .如果真 (局_LibXL.取单元格内容 (0, 标题循环计次 － 1, ) ＝ 标题匹配项)<br />                     ' 标题匹配，数据行写入<br />                     .计次循环首 (局_总行, 数据行循环计次)<br /> <br />                         .如果 (表数量循环计次 ＝ 1)<br />                             高级表格1.置数据 (数据行循环计次 ＋ 2, 高表列循环, 1, 局_LibXL.取单元格内容 (数据行循环计次, 标题循环计次 － 1, ))<br />                         .否则<br />                             高级表格1.置数据 (整表总行数 － 局_总行 ＋ 数据行循环计次 ＋ 2, 高表列循环, 1, 局_LibXL.取单元格内容 (数据行循环计次, 标题循环计次 － 1, ))<br />                         .如果结束<br /> <br />                     .计次循环尾 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()<br /> <br />     局_LibXL.释放 ()

通过匹配的内容，将对应数据写入表中