如何将指定文件夹里的所有EXCEL文件一次性导入？

wh1234567

如何将指定文件夹里的所有EXCEL文件一次性全部导入到超级列表框里？
超级列表框_EXCEL_导入导出  V1.7.1这个模块只能手动一个一个导入，如何实现一次性导入多个文件？最好是例子

算法艺术家

  

简单修改了一下

子程序名	返回值类型	公开	备 注
导入

变量名	类 型	静态	数组	备 注
你放表格的文件夹路径	文本型
返回路径	文本型		0
i	整数型

文件_枚举 (你放表格的文件夹路径, “*.xlsx|*.xls”, 返回路径, 真, , 真)
计次循环首 (取数组成员数 (返回路径), i)
超级列表框_EXCEL_导入111 (超级列表框, 假, , , 返回路径 [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
超级列表框_EXCEL_导入111	逻辑型		成功返回真，失败返回假
参数名	类 型	参考	可空	数组	备 注
参_超级列表框	超级列表框
参_是否清空	逻辑型				默认为真，清空超级列表框后导入
参_是否包含表头	逻辑型				默认为真，包含表头
参_工作表索引	整数型				默认导入第1个工作表的内容，当索引超过工作表数量时，默认第1个工作表
文件路径	文本型

变量名	类 型	静态	数组	备 注
局_工作簿	XL工作簿类
局_工作表	XL工作表类
局_格式	XL格式类
局_总行数	整数型
局_总列数	整数型
局_索引	整数型
局_ii	整数型
局_置文本	文本型
局_i	整数型
局_剩余列数	整数型
单元格合并数量	整数型

如果真 (文件路径 ＝ “”)
输出调试文本 (“导入路径出错！”)
返回 (假)
如果真 (是否为空 (参_是否清空) ＝ 真)
参_是否清空 ＝ 真
如果真 (是否为空 (参_是否包含表头) ＝ 真)
参_是否包含表头 ＝ 真
如果真 (局_工作簿.打开文件 (文件路径) ＝ 假)  ' 打开excel
输出调试文本 (“EXCEL打开失败！”)
返回 (假)
如果真 (是否为空 (参_工作表索引) 或 参_工作表索引 ≤ 0 或 参_工作表索引 ＞ 局_工作簿.取工作表数量 ())  ' 索引大于工作表数量情况
参_工作表索引 ＝ 1
局_工作表 ＝ 局_工作簿.选择工作表 (参_工作表索引 － 1)
如果真 (参_是否包含表头 ＝ 假)
局_工作表.删除行 (0, 1, )
局_总行数 ＝ 局_工作表.结束使用行 ()  ' 0开始要多加1
局_总列数 ＝ 局_工作表.结束使用列 ()
单元格合并数量 ＝ 局_工作表.取单元格合并数量 ()
如果真 (单元格合并数量 ＞ 0)
局_工作表.取消单元格合并1 (单元格合并数量)
' 调试输出 (局_总行数, 局_总列数)
如果真 (参_是否清空 ＝ 真)
参_超级列表框.禁止重画 ()
参_超级列表框.全部删除 ()
参_超级列表框.允许重画 ()
计次循环首 (局_总行数, 局_i)
局_索引 ＝ 参_超级列表框.插入表项 (, , , , , )
计次循环首 (局_总列数, 局_ii)
处理事件 ()
局_置文本 ＝ 局_工作表.取单元格内容 (局_i － 1, 局_ii － 1)
局_格式 ＝ 局_工作表.取单元格格式 (局_i － 1, 局_ii － 1)
局_置文本 ＝ 单元格格式转文本 (局_置文本, 局_格式.数字格式 ())
参_超级列表框.置标题 (局_索引, 局_ii － 1, 局_置文本)
计次循环尾 ()
计次循环尾 ()
局_工作簿.释放 ()
返回 (真)

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

简单修改了一下<br /> .版本 2<br /> .支持库 iext<br /> <br /> .子程序 导入<br /> .局部变量 你放表格的文件夹路径, 文本型<br /> .局部变量 返回路径, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> 文件_枚举 (你放表格的文件夹路径, “*.xlsx|*.xls”, 返回路径, 真, , 真)<br /> .计次循环首 (取数组成员数 (返回路径), i)<br />     超级列表框_EXCEL_导入111 (超级列表框, 假, , , 返回路径 <i>)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 超级列表框_EXCEL_导入111, 逻辑型, 公开, 成功返回真，失败返回假 <br /> .参数 参_超级列表框, 超级列表框<br /> .参数 参_是否清空, 逻辑型, 可空, 默认为真，清空超级列表框后导入<br /> .参数 参_是否包含表头, 逻辑型, 可空, 默认为真，包含表头<br /> .参数 参_工作表索引, 整数型, 可空, 默认导入第1个工作表的内容，当索引超过工作表数量时，默认第1个工作表<br /> .参数 文件路径, 文本型<br /> .局部变量 局_工作簿, XL工作簿类<br /> .局部变量 局_工作表, XL工作表类<br /> .局部变量 局_格式, XL格式类<br /> .局部变量 局_总行数, 整数型<br /> .局部变量 局_总列数, 整数型<br /> .局部变量 局_索引, 整数型<br /> .局部变量 局_ii, 整数型<br /> .局部变量 局_置文本, 文本型<br /> .局部变量 局_i, 整数型<br /> .局部变量 局_剩余列数, 整数型<br /> .局部变量 单元格合并数量, 整数型<br /> <br /> <br /> .如果真 (文件路径 ＝ “”)<br />     输出调试文本 (“导入路径出错！”)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (是否为空 (参_是否清空) ＝ 真)<br />     参_是否清空 ＝ 真<br /> .如果真结束<br /> .如果真 (是否为空 (参_是否包含表头) ＝ 真)<br />     参_是否包含表头 ＝ 真<br /> .如果真结束<br /> .如果真 (局_工作簿.打开文件 (文件路径) ＝ 假)  ' 打开excel<br />     输出调试文本 (“EXCEL打开失败！”)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (是否为空 (参_工作表索引) 或 参_工作表索引 ≤ 0 或 参_工作表索引 ＞ 局_工作簿.取工作表数量 ())  ' 索引大于工作表数量情况<br />     参_工作表索引 ＝ 1<br /> .如果真结束<br /> 局_工作表 ＝ 局_工作簿.选择工作表 (参_工作表索引 － 1)<br /> <br /> .如果真 (参_是否包含表头 ＝ 假)<br />     局_工作表.删除行 (0, 1, )<br /> .如果真结束<br /> 局_总行数 ＝ 局_工作表.结束使用行 ()  ' 0开始要多加1<br /> 局_总列数 ＝ 局_工作表.结束使用列 ()<br /> 单元格合并数量 ＝ 局_工作表.取单元格合并数量 ()<br /> .如果真 (单元格合并数量 ＞ 0)<br />     局_工作表.取消单元格合并1 (单元格合并数量)<br /> .如果真结束<br /> ' 调试输出 (局_总行数, 局_总列数)<br /> .如果真 (参_是否清空 ＝ 真)<br />     参_超级列表框.禁止重画 ()<br />     参_超级列表框.全部删除 ()<br />     参_超级列表框.允许重画 ()<br /> .如果真结束<br /> .计次循环首 (局_总行数, 局_i)<br />     局_索引 ＝ 参_超级列表框.插入表项 (, , , , , )<br />     .计次循环首 (局_总列数, 局_ii)<br />         处理事件 ()<br />         局_置文本 ＝ 局_工作表.取单元格内容 (局_i － 1, 局_ii － 1)<br />         局_格式 ＝ 局_工作表.取单元格格式 (局_i － 1, 局_ii － 1)<br />         局_置文本 ＝ 单元格格式转文本 (局_置文本, 局_格式.数字格式 ())<br />         参_超级列表框.置标题 (局_索引, 局_ii － 1, 局_置文本)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 局_工作簿.释放 ()<br /> 返回 (真)

算法艺术家

文件_枚举，然后一个一个导入

wh1234567

算法艺术家 发表于 2026-6-22 22:06
文件_枚举，然后一个一个导入

求完整例子。呵呵

算法艺术家

wh1234567 发表于 2026-6-22 22:15
求完整例子。呵呵

原来是弹出来一个选择框  改成直接传一个路径进去

wh1234567

算法艺术家 发表于 2026-6-22 22:31
[e=3]简单修改了一下
.版本 2
.支持库 iext

序
错误(4): 没有找到名为“XL工作簿类”的数据类型。


补充内容 (2026-6-22 22:50):
无法正常运行

算法艺术家

wh1234567 发表于 2026-6-22 22:48
序
错误(4): 没有找到名为“XL工作簿类”的数据类型。

这是人家模块里的函数 我稍微改了一行代码，你还把他放到那个模块里 起个好听点的名字 比如叫 超级列表框_EXCEL_导入手动传路径版

算法艺术家

你只把超级列表框_EXCEL_导入111 放到模块里就行  文件枚举还在外头进行

wh1234567

算法艺术家 发表于 2026-6-22 22:52
这是人家模块里的函数 我稍微改了一行代码，你还把他放到那个模块里 起个好听点的名字 比如叫 超级列表框 ...

文件_枚举 (“C:\2026”, “*.xlsx|*.xls”, 返回路径, 真, , 真)
这样还是中？所有表格文件都在C:\2026文件夹里
文件_枚举 (“C:\2026\”, “*.xlsx|*.xls”, 返回路径, 真, , 真)

补充内容 (2026-6-22 23:19):
你放表格的文件夹路径，文件夹名称后面需要带/吗？

wh1234567

算法艺术家 发表于 2026-6-22 23:00
你只把超级列表框_EXCEL_导入111 放到模块里就行  文件枚举还在外头进行

为什么显示的数量不对？本来9个显示18个了，标签1.标题 ＝ “正在导入全部EXCEL文件   总计文件数:” ＋ 到文本 (取数组成员数 (返回路径)) ＋ “个 当前正在导入第” ＋ 到文本 (返回路径 ) ＋ “个”