Question

我试图运行一个宏，该宏将采用我提供的文件夹路径，然后将该文件放在该文件夹中，并将文件名作为变量。然后，该文件名变量将用作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部分得到对象并不支持此操作。我也不知道如何获取上面的代码并将输出变为变量。

有没有办法做到这一点？

Answer 1

你的意思是这样吗？

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（）在单元格中调用它。

在文件夹中查找文件名并使其成为变量

1 个答案: