Question

VB 将指定文件夹里的excel文件逐个打开读取数据后，逐个关闭；

关键是1. 我不知道怎么查询文件夹下有多少份excel文件；
2. 逐个打开，关闭，可以用循环吗？

Answer 1

当然可以循环：

1、用dir(“文件夹路径”)获取文件名
2、判断文件名是否为.xls后缀，用do until 做循环
3、结束循环之前用dir()，这次不带参数，获取下一个文件名~