Please help to get a macro to convert without format file to excel file.

This is my first post on Excel forum.

I want a macro that will open a without fiile in a folder and convert without format file whose name is like "cognos.701Z%27%5d&SA=propEnum,properties&ITEM=data&EA=&SS=queryOptions,options&dataEncoding=MIME&ES=&EM=" to Excel (.xlsx). Save excel file in same folder and delete above file.

Please help on this.

Thanks,

I am not able to upload file. Error - Invalid File.. I download file from Cognos tool and it doesn't have excel file extension. I am working on automation of that report. Rest part I have automated except starting part i.e. convert file in excel format. I have a code but its not working. Please find below.
Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String

sPath = "E:\Macro" 'location of files
ChDrive "E" '-> if E is different than the current drive (if you didn't change it before, it is the drive where Office is installed)
ChDir sPath
sFil = Dir("*.*") 'change or add formats
Do While (sFil <> "" And InStr(sFil, ".") = 0)
NewFileName = sPath & "\" & sFil & ".xlsx"

On Error Resume Next
Name sFil As NewFileName 'Add extension to file

Set oWbk = Workbooks.Open(NewFileName) 'Open file as XLSX

'Do anything with the workbook

oWbk.Close True 'close the workbook, saving changes

sFil = Dir("*.*")
Loop ' End of LOOP
End Sub