在office vba 中如何让程序对某一文件夹中所有excel表格执行操作？

来源：百度知道 编辑：UC知道 时间：2024/05/14 19:31:04
在用office vba编程中，需要让程序对某一文件夹中所有excel表格执行操作，但不知如何写这个循环体语句。请大家赐教

很少处理此类程序, 刚简单的编了一个, 希望对你的思路有帮助
Sub Files_Found()
xxx = "File Found:" & Chr(10)
dpath = ThisWorkbook.Path
With Application.FileSearch
.NewSearch
.LookIn = dpath
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
xxx = xxx & Chr(10) & i & Chr(9) & Dir(.FoundFiles(i))
Next
End With
MsgBox xxx
End Sub