【VBA】特定のフォルダ内の全ファイルを部分一致で別ブックとして保存する方法

Option Explicit
Sub SaveFilesAsSeparateBooks()
    Dim fso As Object, folder As Object, file As Object
    Dim wb As Workbook, ws As Worksheet
    Dim filePath As String, fileName As String, tempPath As String
    
    ' フォルダパスを指定
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\TestFolder")
    
    Application.ScreenUpdating = False
    For Each file In folder.Files
        If InStr(file.Name, "部分一致文字列") > 0 Then ' 部分一致の条件を設定
            filePath = file.Path
            fileName = fso.GetBaseName(filePath)
            tempPath = ThisWorkbook.Path & "\" & fileName & ".xlsx"
            
            Set wb = Workbooks.Open(filePath)
            wb.SaveAs Filename:=tempPath, FileFormat:=xlOpenXMLWorkbook
            wb.Close SaveChanges:=False
        End If
    Next file
    Application.ScreenUpdating = True
End Sub