Save / Convert XML Files In Excel Format Without Open Them Into XLS?

Is there a way to convert all files in folder, in this case, xml in excel format to xls without open them?

I recorded the macro below, but this needs to "Open" and "SaveAs" the current file in folder and there are a few thousands of xml files in folder.

I was wondering if through some ADO or VBA code this can be done without open the files in order to save resources and get the work done faster?

Code:
Sub Convert_XML_to_XLS()

Workbooks.Open Filename:="C:MyPathInputFile.xml"
ActiveWorkbook.SaveAs Filename:="C:MyPathInputFile.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False '
End Sub