在一个文件夹中find一个文件名,并把它变成一个variables

我试图运行一个macros,将采取我提供的文件夹path,然后将文件在该文件夹中,并使文件名variables。 该文件名variables将被用作VLookup的一部分,以从该文件内的单元获取数据。 下面是我迄今为止发现的代码,但是我一直无法使它工作:

Dim FilePath As String FilePath = "____________________" Set wbCodeBook = ThisWorkbook With Application.FileSearch .NewSearch 'Change path to suit .LookIn = FilePath .FileType = msoFileTypeExcelWorkbooks 'Optional filter with wildcard .filename = "*AD*.xlsm*" End With 

我得到的对象不支持在代码的Application.FileSearch部分这个动作 。 我也不知道如何把上面的代码,使输出variables。

有没有办法做到这一点?

你的意思是这样吗?

 Public Function GetFileName() As String Dim sFilePath As String Dim sFileName As String '---------------- sFilePath = "____________________" sFileName = "*AD*.xlsm*" GetFileName = Dir(sFilePath & sFileName, vbNormal) End Function 

如果你把它放到一个模块中,你可以使用= GetFileName()在一个单元格中调用它。