vba - Excel VBA 打开工作簿及其部分名称

Question

我想使用 VBA 从包含数字的特定路径打开工作簿，例如 2。我尝试过的任何变体都不起作用。

工作簿的名称除数字外都是希伯来语，因此我希望 VBA 代码根据数字来命名文件名以打开文件。

数字前有 4 个希伯来字母。在希伯来语中，我们从右向左书写。

这是我的代码:

Set WB1 = Workbooks.Open("C:\RESULTS\" 2 & ".xlsx")

感谢您的帮助。

Answer 1

试试这个

Dim sFound As String, fPath As String

fPath = "C:\RESULTS\"
sFound = Dir(fPath & "*2*.xlsx")   'get the first file in dir
If sFound <> "" Then
    Set WB1 = Workbooks.Open(fPath & sFound)
End If