191问答库 > 用VB查找某个文件夹里的Excel文件，并读取该Excel表格里的相关数据

用VB查找某个文件夹里的Excel文件，并读取该Excel表格里的相关数据

2024-11-07 18:10:48

推荐回答（2个）

回答1：

代码及注释如下：
Sub main()
f = Dir("D;\*.xls*") '查找D盘根目录的所有Excel文件
Do While f <> ""
Workbooks.Open ("D:\" & f) '依次D盘根目录的所有Excel文件
k = k + 1
Cells(k, 1) = Workbooks(f).Range("A1") '将打开的Excel文件中的A1单元格内容依次提取到当前工作表中
f = Dir
Loop
End Sub

回答2：

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