[已解决]遍历文件夹获取特定文件的数据！

白耀凡

遍历文件下的文件名称进行模糊匹配，并获取其中部分区域的数据

QPjjcOc5.rar (11.41 KB, 下载次数: 41)

2010-6-19 10:26 上传

点击文件名下载附件
遍历文件夹获取特定文件的数据！

[此贴子已经被作者于2010-6-19 10:26:30编辑过]

最佳答案

月排行榜 / 总排行榜

兰色幻想

2010-6-19 10:54

Sub t()
 Dim mf As String
 mf = Dir(ThisWorkbook.Path & "/" & [a1] & "*.xls")
 Do
   MsgBox mf
   mf = Dir
 Loop Until Len(mf) = 0
End Sub

跳转到最佳答案楼层

过儿

遍历用dir

filename=dir ("路径.xls")

do

 ...........(判断和提取数据)

 filename=dir

loop until len(filename)=0  

白耀凡

楼上的老大能整个完整的代码么！

我看了一些例子，也弄了几天了，不过时间不多也没好好的消化进去！

兰色幻想

Sub t()
 Dim mf As String
 mf = Dir(ThisWorkbook.Path & "/" & [a1] & "*.xls")
 Do
   MsgBox mf
   mf = Dir
 Loop Until Len(mf) = 0
End Sub

兰色幻想

遍历可以了，取值你自已改吧

hhzjxss

学习兰版好榜样,

忠于E P 忠于网，

爱憎分明代码爽，

立场坚定斗志强。

 

[em01][em01][em01]

白耀凡

QUOTE:

以下是引用hhzjxss在2010-6-19 13:19:00的发言：

学习兰版好榜样,

忠于E P 忠于网，

爱憎分明代码爽，

立场坚定斗志强。

[em01][em01][em01]

[em01][em01][em01]