Open excel files from a folder

[mmmarks]

Hi All,
I'm trying to open excel files from a folder for this, I have copied two Macro code and made changes according to my requirement but It's not working both the codes . can anyone look into the code please ?

Sub nameofexcelfiles()
Dim fpath As String
Dim fol, f, fs, fc
    fpath = InputBox("enter the valid path")
        Set fs = CreateObject("scripting.filesystemobject")
        Set fol = fs.getfolder(fpath)
        Set fc = fol.Files
                For Each f In fc
                    If UCase(Right(f.Name, 4)) = "xlsx" Then
                        Workbooks.Open fpath & "\" & f.Name
                    End If
                Next f
  End Sub

2 Macro

Sub test2()
    Dim path As Variant
    Dim excelfile As Variant
              ChDir path
              path = "C:\Data\"
    
               excelfile = Dir(path & "*.xlsx")
                    Do While excelfile <> ""
                       Workbooks.Open Filename:=path & excelfile
                     excelfile = Dir
                 Loop
End Sub