S로 시작하는 엑셀파일을 여는 VBA 명령문

Dim wb As Workbook
Dim FolderPath As String
Dim FilePath As String
 
FolderPath = "C:\Users\username\Downloads\"
FilePath = Dir(FolderPath & "s*" & ".xlsx")
Workbooks.Open (FolderPath & FilePath)

Sub OpenFilesFromFolder()
    Dim wb As Workbook
    Dim FolderPath As String
    Dim FilePath As String
        FolderPath = "C:\Users\sumit\OneDrive\Desktop\Project\"
        FilePath = Dir(FolderPath & "*Sales*" & ".xls*")
        Do While FilePath <> ""
            Set wb = Workbooks.Open(FolderPath & FilePath)
            FilePath = Dir
        Loop
End Sub