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

Question

在text1里随便输入一个excel文件的文件名，按command按钮，在指定的文件夹中查找这个excel，不存在就提示“不存在这个文件”；存在就提取该excel表格中sheet1的D4，D5，D7数据分别显示在text2，text3，text4里，请高手指教！

Answer 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

Answer 2

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

😱能不能更详细点啊，你的这个答复好抽象啊

追答

EXCEL文件可以被程序当成一个数据库打开，只要不是在EXCEL表中填写公式，仅仅是填写单元格中的数据，按数据库编程的方式写程序就能做到，没有什么特别的。

追问

能不能帮忙写出来啊😊

本回答被网友采纳

Answer 3

set xlsapp=createobject("excel.application")
xx=dir(app.path & "\" & text1.text & ".xls*")
if xx<>"" then
xlsapp.workbooks.open(xx)
else
msgbox "不存在这个文件"

end if
text2.text=xlsapp.Range("D4")
.....
大约如此，如果有错误的地方，百度 vb操作excel，并做修改