VBA 在知道部分名称的情况下从此工作簿的文件夹中打开文件

Question

我正在尝试从与主工作簿相同的文件夹中打开文件。问题是这个名字不是永久的，只有一个词总是留在名字里——“NAME”。

我想对 Thisworkbook.Path 使用特定的方法打开 xlsx 文件，但找不到带有代码的工作簿。

这是代码的相关部分:

Sub RemoveDuplicats()

Dim Harel As Workbook
Dim SAP As Workbook
Dim Path As String
Dim Found As String

Path = ThisWorkbook.Path
Found = Dir(Path & "*NAME*.xlsx")   'open SAP report
If Found <> "" Then
    Set SAP = Workbooks.Open(Path & Found)
End If

End Sub

Answer 1

ThisWorkbook.Path 返回不带反斜杠的路径，
尝试

Found = Dir ( Path & "\" & "*NAME*.xlsx")