用VB查找某个文件夹里的Excel文件，并读取该Excel表格里的相关数据 20
在text1里随便输入一个excel文件的文件名，按command按钮，在指定的文件夹中查找这个excel，不存在就提示“不存在这个文件”；存在就提取该excel表格中s...
在text1里随便输入一个excel文件的文件名，按command按钮，在指定的文件夹中查找这个excel，不存在就提示“不存在这个文件”；存在就提取该excel表格中sheet1的D4，D5，D7数据分别显示在text2，text3，text4里，请高手指教！
展开
3个回答
展开全部
代码及注释如下：
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
1、用dir(“文件夹路径”)获取文件名
2、判断文件名是否为.xls后缀，用do until 做循环
3、结束循环之前用dir()，这次不带参数，获取下一个文件名
2、判断文件名是否为.xls后缀，用do until 做循环
3、结束循环之前用dir()，这次不带参数，获取下一个文件名
更多追问追答
追问
😱能不能更详细点啊，你的这个答复好抽象啊
追答
EXCEL文件可以被程序当成一个数据库打开，只要不是在EXCEL表中填写公式，仅仅是填写单元格中的数据，按数据库编程的方式写程序就能做到，没有什么特别的。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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，并做修改
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，并做修改
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
