关于Excel中用宏进行搜寻文件夹里面的相关文件 如何在excel使用宏提取文件夹内文本的内容?
例如 s=dir("C\新建文件夹\"& "*.xls*")
Do While s <> ""
.......
.......
s=dir
loop
你可以自己 查一下 Dir的用法，
2003 可以用FileSerch
With Application.FileSearch '调用fileserch对象
.NewSearch '开始新的搜索
.LookIn = ThisWorkbook.path '设置搜索的路径
.SearchSubFolders = True '搜索范围包括 LookIn 属性指定的文件夹中的所有子文件夹
.Filename = "*.xl*" '设置搜索的文件类型
If .Execute() > 0 Then '如果找到文件
ReDim arr(1 To .FoundFiles.Count, 1 To 1)
For i = 1 To .FoundFiles.Count
arr(i, 1) = .FoundFiles(i) '把找到的文件放在单元格里
Next i
Else
MsgBox "没找到文件"
End If
End With
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 + vbNormal + vbReadOnly + vbSystem)
If (s "") Then
IsExistFile = fileName
Else
IsExistFile = "无"
End If
End Function
参数说明strDir为文件夹路径，fileName为文件名
使用示例：某个单元格输入=IsExistFile("E:\doc",B2) 即可，若不存在返回无，存在返回B2中的文件名称。路径和文件名可以直接用字符串或引用某个单元格内容。
写了一小部分，可以获取文件夹下所有文件名称，路径，大小，创建日期，不知道能否对你有帮助。
1.添加VBA代码，选择新插入的模块后，插入以下代码
Sub getpath()
Range("A2:C1000").ClearContents '清空A2：C1000列
On Error Resume Next
Dim shell As Variant
Set shell = CreateObject("Shell.Application")
Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址
Set shell = Nothing
If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序
Exit Sub
Else
gg = filePath.Items.Item.Path
End If
Set obj = CreateObject("Scripting.FileSystemObject") '定义变量
Set fld = obj.getfolder(gg) '获取路径
For Each ff In fld.Files '遍历文件夹里文件
m = m + 1
Cells(m + 1, 1) = ff.Name
Cells(m + 1, 2) = ff.Path
Cells(m + 1, 3) = ff.Size
Cells(m + 1, 4) = ff.DateCreated
Next
End Sub
2.运行宏（alt+F8），宏的名称为getpath
如何用excel的宏实现查找功能
答：因没有具体内容，可以参照下面程序修改：Sub 查找搜索()Dim MyArr, LastRow LastRow = Sheet2.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row MyArr = Sheet2.Range("A1:A" & LastRow)For i = 2 To LastRow TmpRow = Application.Match(MyArr(i, 1), Sheet1.Range("B:B"), 0)If ...
如何在excel使用宏提取文件夹内文本的内容?
答：For Each ff In fld.Files '遍历文件夹里文件 m = m + 1 Cells(m + 1, 1) = ff.Name Cells(m + 1, 2) = ff.Path Cells(m + 1, 3) = ff.Size Cells(m + 1, 4) = ff.DateCreated Next End Sub 2.运行宏（alt+F8），宏的名称为getpath ...
VBA查找文件夹下所有excel文件中的相关数据
答：MsgBox "您选择的目录没有Excel文件!", vbQuestion, Title:="系统信息"End If End With Set CaZao = Nothing Range("A:A,D:D").Select Selection.HorizontalAlignment = xlCenter Sheet1.Range("A4").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 然后,再增加...
excel宏命令 如何查找并定位相应单元格
答：'获取单元格区域中使用的第一行的行号 (56) Rng.Column '获取单元格区域Rng左上角单元格所在列编号 (57)ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)'在活动工作表中返回所有符合条件格式设置的区域 (58) Range("A1").AutoFilter Field:=3,VisibleDropDown:=False '关闭由于执行自动...
我想在excel中通过某列单元格的内容在指定文件夹中查找包含此内容的文...
答：答：复制下面代码到模块，确保图中工作表为活动工作表，运行Demo程序。以下为运行结果截图：代码：Dim FindedNames() As StringDim NumNames As LongSub Demo() Dim FilePath As String Dim FileName As String Dim Cell As Range FilePath = "D:\8029\" FileName = "*.*" ...
如何制作一个宏应用于所有的excel文件如何制作一个宏应用于所有的excel...
答：至此，宏制作完毕。此时退出当前excel，宏已经保存在了默认的路径。此时甚至可以把当前这个excel删除，再另外新建一个excel，再点击开发工具―宏：你会惊喜地发现，宏名下有了刚刚我们创建的两个宏命令。点击执行即可执行对应的宏。个人宏工作簿的默认保存地址在XLSTART文件夹，我们可以在开始菜单处的搜索行...
excel 批量查找 宏
答：用筛选方法：选B列——菜单栏——数据——筛选——自动筛选——点▲下拉“自定义”——出现“自定义自动筛选方式”对话框——显示行▲下拉选“包含”——对应右侧输入：意见簿——确定。
EXCEL如何用宏实现点击单元格根据单元格内容打开同名文件?
答：答：我写了段代码。如下：Sub Demo() Dim FilePath As String Dim FileName As String If IsEmpty(ActiveCell) Then Exit Sub FilePath = "D:\工艺文件\" FileName = Replace(ActiveCell.Value, "/", "-") & ".xls*" Call ReDir(FilePath, FileName)End SubPublic Sub...
EXCEL宏命令 查找并填充指定内容
答：Cells(a, 4) = Sheet2.Cells(b, c) Then Sheet2.Cells(b, c + 1) = Sheet1.Cells(a, 4)Sheet2.Cells(b, c + 2) = Now()End If Next Next Sheet1.Cells(a, 4) = ""Next End Sub 我这是默认你第一个表在“sheet1”，第二个表在“sheet2”里，并且在表2里有4列数据 ...
excel如何通过宏,在一列中查找一个数据,然后将其同一行的某个数据内容...
答：VBA编程还是即存函数？说下思路：查找X3所在行，然后取行号，再通过行号与列号确定单元格位置，直接给单元格赋值。VBA编程与Excel函数都可以实现
