Vba 下拉框中的工作簿变量名

我有10本名称几乎相同的工作簿“Service Planner.xlsm”在哪里？？？？？？？？是一个地名。它们都有相同的选项卡名和相同的列标题。我希望有一个单独的文件来查找我需要的信息，而不是逐个查找文件。我希望有一个下拉框，其中包含文件名的“？？”部分，选择后，将打开正确的文件，并使用vlookup填充单独的文件

我以前使用过工作表更改，并将target.value作为工作表名称，我想我也可以这样做，并将其作为工作簿名称的一部分，但无论我如何尝试，都无法使其工作。有人能给我一些建议或给我指出正确的方向吗

下面是我想查找的不同表格时使用的公式

With Range("F5:L" & lRow)
   .Formula = "=IF($C5=""Night"",VLOOKUP($A5,'\\server\drive name\Folder\[filename.xlsm]" & Target.Value & "'!$A:$I,F$1,0)
   .Value = .Value
End With

---

任何帮助都将不胜感激。

如果您创建了一个特定的自定义函数，不包括应用程序名称的某些部分，它可能会如下所示：

Option Explicit

Sub TestMe()

    Debug.Print getApplicationName(" Service Planner.xlsm - Excel")

End Sub

Public Function getApplicationName(nameToExclude As String) As String

    Dim length As Long
    length = Len(Application.Caption) - Len(" Service Planner.xlsm - Excel")
    getApplicationName = Left(Application.Caption, length)

End Function

---

使用的属性是

Application.Caption

，它在末尾返回文件的全名+

-Excel

。

是？？？？？？？？占位符？然后你可以试试

Abcdefgh Service Planner.xlsm

，看起来更容易理解。谢谢。如何使用此选项打开我想要打开的工作簿，并将其作为查找公式的一部分？