通过VBA将.xls文件另存为.xlsx文件

Question

我将.xls文件另存为.xlsx。

当我尝试打开转换后的.xls文件时，它说书可能已损坏，但是当我手动执行时，它会起作用。

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xl*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)

'-------------HERE GOES MY CODE so it's not worth putting it---------------------

                Dim IntialName As String
                Dim sFileSaveName As Variant
                IntialName = "Sample"
                sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
                  filefilter:="Libro de Excel (*.xls), *.xls")

                If sFileSaveName <> False Then
                    ActiveWorkbook.SaveAs sFileSaveName
                End If

            End With
            xFileName = Dir
        Loop
    End If
End Sub

如何将.xls文件保存到.xlsx？