excel

杜雯雯

易语言可以读取两个表格 如xlsx和csv这种
去类似于vlookup的功能吗
比如表A
A B C
11 22 33
12 23 34

表B
A B C
11 22 44

根据表A 的A列11 取匹配表B的A列取出C列的值

ai12207745

可以啊，有偿联系QQ 815351786

熬夜

https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14766434 多页的 你看看自己改一个

茶白

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
Excel应用	Excel程序
工作簿	Excel工作簿

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		主程序入口

变量名	类 型	静态	数组	备 注
表A路径	文本型
表B路径	文本型
输出路径	文本型
匹配结果	文本型

表A路径 = "C:\表A.xlsx"
表B路径 = "C:\表B.csv"
输出路径 = "C:\匹配结果.xlsx"
匹配结果 = VLOOKUP匹配 (表A路径, 表B路径)
如果真 (匹配结果 ≠ "")
Excel写出结果 (匹配结果, 输出路径)
' 或者显示在界面：调试输出(匹配结果)

返回 (0)

子程序名	返回值类型	公开	备 注
VLOOKUP匹配	文本型		实现类似VLOOKUP的匹配功能
参数名	类 型	参考	可空	数组	备 注
表A路径	文本型
表B路径	文本型

变量名	类 型	静态	数组	备 注
表A数据	文本型		0"  ' 二维数组存储表A
表B数据	文本型		0"  ' 二维数组存储表B
匹配结果	文本型
i	整数型
j	整数型

' 读取表A(xlsx)
Excel应用.创建 ()
工作簿 = Excel应用.工作簿.打开 (表A路径)
计次循环首 (工作簿.表格数量, i)
.局部变量 当前表, Excel表格
当前表 = 工作簿.表格.取表格 (i)

.局部变量 行数, 整数型
.局部变量 列数, 整数型
行数 = 当前表.取行数 ()
列数 = 当前表.取列数 ()

' 重定义数组存储表A数据
重定义数组 (表A数据, 假, 行数, 列数)

计次循环首 (行数, i)
计次循环首 (列数, j)
表A数据 [i] [j] = 当前表.取单元格文本 (i, j)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
工作簿.关闭 ()
Excel应用.退出 ()
' 读取表B(csv)

变量名	类 型	静态	数组	备 注
文件号	整数型
行文本	文本型

文件号 = 打开文件 (表B路径, #读入, )
如果真 (文件号 ≠ 0)
.局部变量 行索引, 整数型
行索引 = 1

判断循环首 (是否在文件尾 (文件号, ) = 假)
读入一行 (文件号, 行文本)
.局部变量 列数组, 文本型, , "0"
列数组 = 分割文本 (行文本, ",", )

' 重定义数组存储表B数据
重定义数组 (表B数据, 假, 行索引, 取数组下标 (列数组, ))

计次循环首 (取数组下标 (列数组, ), j)
表B数据 [行索引] [j] = 列数组 [j]
计次循环尾 ()

行索引 = 行索引 + 1
判断循环尾 ()
关闭文件 (文件号)

' 执行VLOOKUP匹配
匹配结果 = ""
计次循环首 (取数组下标 (表A数据, 1), i)
如果真 (i = 1)  ' 跳过标题行
到循环尾 ()

.局部变量 查找值, 文本型
查找值 = 表A数据 [i] [1]  ' A列值

.局部变量 找到标志, 逻辑型
找到标志 = 假

' 在表B中查找匹配项
计次循环首 (取数组下标 (表B数据, 1), j)
如果真 (j = 1)  ' 跳过标题行
到循环尾 ()

如果 (表B数据 [j] [1] = 查找值)
匹配结果 = 匹配结果 + 表A数据 [i] [1] + "," + 表A数据 [i] [2] + "," + 表A数据 [i] [3] + "," + 表B数据 [j] [3] + #换行符
找到标志 = 真
跳出循环 ()

计次循环尾 ()

如果真 (找到标志 = 假)
匹配结果 = 匹配结果 + 表A数据 [i] [1] + "," + 表A数据 [i] [2] + "," + 表A数据 [i] [3] + ",未找到匹配项" + #换行符

计次循环尾 ()
返回 (匹配结果)

子程序名	返回值类型	公开	备 注
Excel写出结果
参数名	类 型	参考	可空	数组	备 注
结果数据	文本型
输出路径	文本型

变量名	类 型	静态	数组	备 注
结果数组	文本型		0
行数组	文本型		0
i	整数型

Excel应用.创建 ()
工作簿 = Excel应用.工作簿.添加 ()

变量名	类 型	静态	数组	备 注
新表	Excel表格

新表 = 工作簿.表格.添加 ()
' 添加标题行
新表.置单元格文本 (1, 1, "A列")
新表.置单元格文本 (1, 2, "B列")
新表.置单元格文本 (1, 3, "C列")
新表.置单元格文本 (1, 4, "匹配结果")
结果数组 = 分割文本 (结果数据, #换行符, )
计次循环首 (取数组下标 (结果数组, ), i)
如果真 (结果数组 [i] = "")
到循环尾 ()

行数组 = 分割文本 (结果数组 [i], ",", )
如果真 (取数组下标 (行数组, ) ≥ 4)
新表.置单元格文本 (i + 1, 1, 行数组 [1])
新表.置单元格文本 (i + 1, 2, 行数组 [2])
新表.置单元格文本 (i + 1, 3, 行数组 [3])
新表.置单元格文本 (i + 1, 4, 行数组 [4])

计次循环尾 ()
工作簿.保存 (输出路径)
工作簿.关闭 ()
Excel应用.退出 ()

i支持库列表	支持库注释
eExcel	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 eExcel<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 Excel应用, Excel程序<br /> .程序集变量 工作簿, Excel工作簿<br /> <br /> .子程序 _启动子程序, 整数型, , 主程序入口<br /> .局部变量 表A路径, 文本型<br /> .局部变量 表B路径, 文本型<br /> .局部变量 输出路径, 文本型<br /> .局部变量 匹配结果, 文本型<br /> <br /> 表A路径 = "C:\表A.xlsx"<br /> 表B路径 = "C:\表B.csv"<br /> 输出路径 = "C:\匹配结果.xlsx"<br /> <br /> 匹配结果 = VLOOKUP匹配(表A路径, 表B路径)<br /> .如果真 (匹配结果 ≠ "")<br />     Excel写出结果(匹配结果, 输出路径)<br />     ' 或者显示在界面：调试输出(匹配结果)<br /> .如果真结束<br /> <br /> 返回 (0)<br /> <br /> .子程序 VLOOKUP匹配, 文本型, , 实现类似VLOOKUP的匹配功能<br /> .参数 表A路径, 文本型<br /> .参数 表B路径, 文本型<br /> .局部变量 表A数据, 文本型, , "0"  ' 二维数组存储表A数据<br /> .局部变量 表B数据, 文本型, , "0"  ' 二维数组存储表B数据<br /> .局部变量 匹配结果, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> ' 读取表A(xlsx)<br /> Excel应用.创建 ()<br /> 工作簿 = Excel应用.工作簿.打开 (表A路径)<br /> .计次循环首 (工作簿.表格数量, i)<br />     .局部变量 当前表, Excel表格<br />     当前表 = 工作簿.表格.取表格 (i)<br />     <br />     .局部变量 行数, 整数型<br />     .局部变量 列数, 整数型<br />     行数 = 当前表.取行数 ()<br />     列数 = 当前表.取列数 ()<br />     <br />     ' 重定义数组存储表A数据<br />     重定义数组 (表A数据, 假, 行数, 列数)<br />     <br />     .计次循环首 (行数, i)<br />         .计次循环首 (列数, j)<br />             表A数据 <i> [j] = 当前表.取单元格文本 (i, j)<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 工作簿.关闭 ()<br /> Excel应用.退出 ()<br /> <br /> ' 读取表B(csv)<br /> .局部变量 文件号, 整数型<br /> .局部变量 行文本, 文本型<br /> 文件号 = 打开文件 (表B路径, #读入, )<br /> .如果真 (文件号 ≠ 0)<br />     .局部变量 行索引, 整数型<br />     行索引 = 1<br />     <br />     .判断循环首 (是否在文件尾 (文件号, ) = 假)<br />         读入一行 (文件号, 行文本)<br />         .局部变量 列数组, 文本型, , "0"<br />         列数组 = 分割文本 (行文本, ",", )<br />         <br />         ' 重定义数组存储表B数据<br />         重定义数组 (表B数据, 假, 行索引, 取数组下标 (列数组, ))<br />         <br />         .计次循环首 (取数组下标 (列数组, ), j)<br />             表B数据 [行索引] [j] = 列数组 [j]<br />         .计次循环尾 ()<br />         <br />         行索引 = 行索引 + 1<br />     .判断循环尾 ()<br />     关闭文件 (文件号)<br /> .如果真结束<br /> <br /> ' 执行VLOOKUP匹配<br /> 匹配结果 = ""<br /> .计次循环首 (取数组下标 (表A数据, 1), i)<br />     .如果真 (i = 1)  ' 跳过标题行<br />         到循环尾 ()<br />     .如果真结束<br />     <br />     .局部变量 查找值, 文本型<br />     查找值 = 表A数据 <i> [1]  ' A列值<br />     <br />     .局部变量 找到标志, 逻辑型<br />     找到标志 = 假<br />     <br />     ' 在表B中查找匹配项<br />     .计次循环首 (取数组下标 (表B数据, 1), j)<br />         .如果真 (j = 1)  ' 跳过标题行<br />             到循环尾 ()<br />         .如果真结束<br />         <br />         .如果 (表B数据 [j] [1] = 查找值)<br />             匹配结果 = 匹配结果 + 表A数据 <i> [1] + "," + 表A数据 <i> [2] + "," + 表A数据 <i> [3] + "," + 表B数据 [j] [3] + #换行符<br />             找到标志 = 真<br />             跳出循环 ()<br />         .否则<br />         .如果结束<br />     .计次循环尾 ()<br />     <br />     .如果真 (找到标志 = 假)<br />         匹配结果 = 匹配结果 + 表A数据 <i> [1] + "," + 表A数据 <i> [2] + "," + 表A数据 <i> [3] + ",未找到匹配项" + #换行符<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> 返回 (匹配结果)<br /> <br /> .子程序 Excel写出结果<br /> .参数 结果数据, 文本型<br /> .参数 输出路径, 文本型<br /> .局部变量 结果数组, 文本型, , "0"<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> Excel应用.创建 ()<br /> 工作簿 = Excel应用.工作簿.添加 ()<br /> .局部变量 新表, Excel表格<br /> 新表 = 工作簿.表格.添加 ()<br /> <br /> ' 添加标题行<br /> 新表.置单元格文本 (1, 1, "A列")<br /> 新表.置单元格文本 (1, 2, "B列")<br /> 新表.置单元格文本 (1, 3, "C列")<br /> 新表.置单元格文本 (1, 4, "匹配结果")<br /> <br /> 结果数组 = 分割文本 (结果数据, #换行符, )<br /> .计次循环首 (取数组下标 (结果数组, ), i)<br />     .如果真 (结果数组 <i> = "")<br />         到循环尾 ()<br />     .如果真结束<br />     <br />     行数组 = 分割文本 (结果数组 <i>, ",", )<br />     .如果真 (取数组下标 (行数组, ) ≥ 4)<br />         新表.置单元格文本 (i + 1, 1, 行数组 [1])<br />         新表.置单元格文本 (i + 1, 2, 行数组 [2])<br />         新表.置单元格文本 (i + 1, 3, 行数组 [3])<br />         新表.置单元格文本 (i + 1, 4, 行数组 [4])<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> 工作簿.保存 (输出路径)<br /> 工作簿.关闭 ()<br /> Excel应用.退出 ()

花间一壶酒

可以 用COM对象

HuiS

可以 用COM对象

mning

先打开被cha询表，获取行数1、列数1，继续打开cha询表，获取行数2、列数2，假设结果列为“E”,------------当前工作表.读对象型属性 (“RANGE”, “E2:E” ＋ 到文本 (行数2)).写属性 (“Formula”, “=IF(ISNUMBER(A2),IF((ISERROR(VLOOKUP(A2,'[” ＋ 被cha询表文件名('不需要路径，xxx.xls就行) ＋ “]” ＋ 表名 ＋ “'!$A$2:$D$” ＋ 到文本 (行数1) ＋ “,3,0))),0,(VLOOKUP(A2,'[” ＋被cha询表文件名 ＋ “]” ＋ 表名 ＋ “'!$A$2:$D$” ＋ 到文本 (行数 1) ＋ “,3,0))),” ＋ #引号 ＋ #引号 ＋ “)”)

mning

顺手写了一下

MYSTERDEVIL

=VLOOKUP(a!A:A,b!A:C,3,TRUE)   这个公式就可以了