ODS to xls

[Aarif A Idrisi]

Dear Sir,

I want to convert ODS Format to excel format which is XLS or other format.

i have try in .bat file but its not working i have try preparing OpenOffice Macro but its not working as its asking to install some application .net

i have try openoffice wizard its also not working.

Sir pls help, I Know my English is not good.

 

[Marc L]

Hi,

try with LibreOffice or on another computer …
​

 

[YasserKhalil]

Try this link
http://answers.microsoft.com/en-us/...a/610e0321-4c91-4c25-b23f-a1e0bbdc9e3e?auth=1

Or try this code (untested)

Sub Test()
  Dim strFileName As String
  strFileName = "Sample.ods"
  Application.DisplayAlerts = False
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strFileName, CorruptLoad:=xlRepairFile
    ActiveWorkbook.SaveAs Filename:=Left$(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
  Application.DisplayAlerts = True
End Sub