vba - Excel マクロを使用して .ods を .xls ファイルとして保存する

Question

.ods複数のファイルを.xlsフォーマットに変換しようとしています。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

なんとかファイルを開くことができましたが、正直なところ、次に何をすべきかわかりません。ガイダンスや直接の回答は期待していませんが、ヒント、どうすればよいか、それが可能かどうかを教えてください。
PS.odsファイルを開いて手動で保存すると、.xls正常に機能しますが、自動的に実行する魔法のボタンを考える必要があります。