怎么在vb中使用vba中的一个函数 filesearch

Question

如题， 是不是要加载什么引用？

我在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被选中。

Answer 1

这个保证可以用：

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语句创建）本回答被提问者采纳

Answer 2

vba中的一个函数 filesearch在VB中可用Dir函数来替代。具体代码如下：

Sub t()
Dim s As String
s = Dir("E:\data\*.*") '搜索所有文件
Do While s <> "" '执行搜索
Print s
s = Dir()
Loop
End Sub

Answer 3

APPLICATION改为APP吧

Answer 4

引用EXCEL组件。

Answer 5

VB中使用VBA的东西，需要在工程里面引用EXCEL先