Convert xml files to xls without open them?

Hi to all,

Maybe someone helps me over here.

I have many xml files (in a format that Excel can read). Even when Excel can open those xml files, I would like to convert them from xml to xls or xlsx.

I've recorded the following macro that open an xml file and convert it to xlsx.

Sub XML_to_XLS()

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

Is there a way to say to Excel that convert all xml files in folder to xlsx without open them?

This because there are 5000 xml files to convert and open and saving files will take so long I think.

Many thanks in advance.

Regards.

Can't you just change their extensions to xls?

Public Sub xls_xml()
Application.ScreenUpdating = False
xlsfolder = "C:\temp\"
x = Dir(xlsfolder & "*.xls")
i = 1
While x <> ""

Workbooks.Open Filename:="" & xlsfolder & x & ""
    ActiveWorkbook.SaveAs Filename:="C:\MyFolder\MyFile_" & i & " .xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
i = i + 1
x = Dir
 
wend
msgbox "Done"
end sub

Somebody knows if this is possible?

Thanks for any help.

it's possible in MS Access If all workbook has a same worksheets name.
For example, if all worksheets has name "Sheet1" I can help you.

Many thanks egonomist, the xml files contain 2 sheets, but only I need to do it in MS Excel.

Many thanks for help so far.

GOt it . Thanks.