將.xls轉換為.xlsx的代碼

Question

我在線找到了此代碼片段，將我的.xls文件轉換為.xlsx文件。

Sub ProcessFiles()
Dim Filename, Pathname, SaveFileName As String
Dim wb As Workbook

Pathname = "C:\Users\user\Desktop\test\"
Filename = Dir(Pathname & "*.xls")
Application.DisplayAlerts = True

Do While Filename <> ""
    Set wb = Workbooks.Open(Pathname & Filename)
    wb.CheckCompatibility = True
    saveFileName = Replace(Filename, ".xls", ".xlsx")

    wb.SaveAs Filename:=saveFileName

    wb.Close SaveChanges:=True
    Filename = Dir()
Loop
Application.DisplayAlerts = True
End Sub

當我運行它時，它確實會正確創建備份，但是在保存文件時，它會顯示以下消息：文件夾中已經存在test.xls，但是我希望將其保存為.xlsx，如替換所示。功能。

代碼有什么問題？

Answer 1

更換

wb.SaveAs Filename:=saveFileName

與

wb.SaveAs Filename:=saveFileName, FileFormat:=xlOpenXMLWorkbook

並更換

wb.Close SaveChanges:=True

與

wb.Close SaveChanges:=False