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 

Answer 2

は、これが私の作品：コードの

Option Explicit 

Sub TestMe() 

    Dim objFSO   As Object 
    Dim objFolder  As Object 
    Dim objFile   As Object 
    Dim wbs    As Workbook 

    Dim strExtension As String 
    Dim lngNumber  As String 
    Dim lngAdditional As Long 
    Dim lngLenFile  As Long 

    strExtension = ".xlsx" 
    lngNumber = 20 
    lngAdditional = 4 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFSO.GetFolder("C:\Users\Desktop\") 
    lngLenFile = Len(strExtension) + Len(lngNumber) + lngAdditional 

    For Each objFile In objFolder.Files 
     If Left(objFile.Name, Len(lngNumber)) = lngNumber And _ 
       Right(objFile, Len(strExtension)) = strExtension And _ 
       Len(objFile.Name) = lngLenFile Then 

      Debug.Print objFile.Name 
      Set wbs = Workbooks.Open(objFile) 

     End If 
    Next objFile 

End Sub 

アイデアは、このように、lngNumberとstrExtensionが追加され、それを柔軟にすることです。左右のサイズだけでなく、サイズも常にチェックします。したがって、24Some.xlsxは、2Some.xlsxとは異なります。

Debug.Printが開かれたファイルを見るために追加されます。

lngAdditionalが追加されます（追加の4文字分）。