Question

我有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

任何帮助将不胜感激。

Answer 1

如果您要进行特定的自定义功能，但不包括应用程序名称的某些部分，则它可能如下所示：

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。

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

1 个答案: