2

我正在尝试将多个.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时，它应该可以正常工作，但是我必须考虑自动执行此操作的魔术按钮。

4

0 回答 0