Vba 通过Excel宏将.ods另存为.xls文件

我正在尝试以

.xls

格式转换多个

.ods

文件。由于无法使用Workbook.SaveAs或Workbook.Open方法的原因，我目前无法使用以下方法：

Public FileName As Variant
Sub Choose()
    Set FileName= Nothing
    ChDrive (ThisWorkbook.Path)
    ChDir (ThisWorkbook.Path)
    FileName = Application.GetOpenFilename _
        (FileFilter:="Excel Worksheets(*.xls; *.xlsx; *.ods), *.xls; *.xlsx; *.ods", _
        Title:="Select a file.", MultiSelect:=False)
End Sub
Sub Saving()
    Call Choose
    ActiveWorkbook.FollowHyperlink Address:=FileName, NewWindow:=True
End Sub

我设法打开了一个文件，但是，老实说，我不知道下一步该怎么办。 我不希望得到任何指导或直接的回答，而是一个提示，我应该做什么，如果可能的话。
另外，当我手动打开

.ods

文件并另存为

.xls

时，它会正常工作，但我必须想到一个神奇的按钮，它会自动工作