如题， 是不是要加载什么引用？
我在vb中运行，说变量未定义
程序为： 想实现获取一个文件夹下的所有文件路径的功能
Sub t()
Dim s As FileSearch '定义一个文件搜索对象
Set s = Application.FileSearch
s.LookIn = "E:\data\"
s.Filename = "*.*" '搜索所有文件
s.Execute '执行搜索
For i = 1 To s.FoundFiles.Count
print s.FoundFiles(i)
Next i
End Sub
我添加了添加excel引用，但是运行的时候说“未找到方法或数据成员”，同时Set s = Application.FileSearch 中的FileSearch被选中。
第1个回答 2010-01-21
这个保证可以用：
Sub t()
Dim s As FileSearch '定义一个文件搜索对象
dim xlApp as Excel.Application
Set xlApp = New Excel.Application
Set s = xlApp.FileSearch
....
关键是要先创建一个excel程序的实例（在VBA中，这个实例即为当前excel程序Application，不需使用New语句创建）本回答被提问者采纳
Sub t()
Dim s As FileSearch '定义一个文件搜索对象
dim xlApp as Excel.Application
Set xlApp = New Excel.Application
Set s = xlApp.FileSearch
....
关键是要先创建一个excel程序的实例（在VBA中，这个实例即为当前excel程序Application，不需使用New语句创建）本回答被提问者采纳
第2个回答 2010-01-20
vba中的一个函数 filesearch在VB中可用Dir函数来替代。具体代码如下：
Sub t()
Dim s As String
s = Dir("E:\data\*.*") '搜索所有文件
Do While s <> "" '执行搜索
Print s
s = Dir()
Loop
End Sub
Sub t()
Dim s As String
s = Dir("E:\data\*.*") '搜索所有文件
Do While s <> "" '执行搜索
Print s
s = Dir()
Loop
End Sub
第3个回答 2010-01-20
APPLICATION改为APP吧
第4个回答 2010-01-20
引用EXCEL组件。
第5个回答 2010-01-20
VB中使用VBA的东西，需要在工程里面引用EXCEL先
