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

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

代码及注释如下:
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个回答  2016-01-27
1、用dir(“文件夹路径”)获取文件名
2、判断文件名是否为.xls后缀,用do until 做循环
3、结束循环之前用dir(),这次不带参数,获取下一个文件名追问

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

追答

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

追问

能不能帮忙写出来啊😊

本回答被网友采纳
第2个回答  2016-01-31
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,并做修改

用VB查找某个文件夹里的Excel文件,并读取该Excel表格里的相关数据
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...

用VB查找某个文件夹里的Excel文件,并读取该Excel表格里的相关数据
1、用dir(“文件夹路径”)获取文件名 2、判断文件名是否为.xls后缀,用do until 做循环 3、结束循环之前用dir(),这次不带参数,获取下一个文件名

如何用vb提取excel表格中的数据如何用vb提取excel表格中的数据和...
首先需要知道你要引用的数据在Excel中的位置,然后在VB里面引用Excel,然后打开Excel文件读数据 Dim scxls As Excel.Application Dim scbook As Excel.Workbook Dim scsheet As Excel.Worksheet ‘Set scxls = CreateObject(\\"excel.application\\")‘Set scbook = scxls.Workbooks.Add Set scbook = s...

如何用VB读取某个特定位置的EXCEL文件中的某个工作簿中的某行某列的内...
Private Sub CommandButton1_Click()Workbooks.Open Filename:="E:\\1.xlsx" '打开目标文件Me.TextBox1.Value = ActiveWorkbook.Sheets(2).Range("A3") '给文本框1赋值ActiveWorkbook.Close No '关闭目标文件End Sub根据你的要求,供参考!

excel,怎么用vba写段关于查找指定文件夹内的文件名,并将其提取值至表...
Alt+F11插入下面的代码到模块 '查找某个文件是否存在 Function IsExistFile(ByRef strDir As String, ByRef fileName As String)Dim s As String If (Right(strDir, 1) <> "\\") Then strDir = strDir & "\\"End If s = dir(strDir & fileName, vbArchive + vbDirectory + vbHidden + ...

VB查找指定文件夹并获取文件路径的代码
1.首先打开Excel电子表格,然后在开发工具中打开VBA编辑器,如下图。2.在单元格区域输入一些内容,如下图。3.将模块插入到VBA编辑器中,如下图。4.文件的子访问路径()Dimfiless,tempfiless=Application。GetOpenFilename(,,“打开文件”)如果filess=False,那么MsgBox“你没有选择知道选择文件,程序...

怎样用VB读取Excel文件中表格中的数据?
第一步:在工程中引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。第二步:在通用对象的声明过程中定义EXCEL对象:Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xl...

如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果
'xlBook.Save '保存文件 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束Excel对象 Set xlApp = Nothing '释放xlApp对象 'MsgBox "初始化完成", vbCritical, "消息提示:OK"Text2.Text = Format(j \/ Text1.Text, "0.00%")End Sub ...

vb数据写入excel,请问如何用vb提取excel表格中的数据有一ex
end sub 以此为例,在Excel中读取VBA程序的操作步骤如下(Excel2007为例):1.选择”开发工具“选项卡,点击”Visual Basic“(或者用快捷键Alt+F11)2.出现VBA编辑界面,注意看左侧,选择需要运行代码的工作表,此例为Sheet1;双击进入Sheet1相关程序编辑界面 3.在程序编辑区域,复制上上述代码 4.点...

vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后,在代码窗口中输入VBA语句,比如输入定义变量语句,...

相似回答