VBA CVS另存为xlsx

Sub CVS另存为xlsx()
Application.DisplayAlerts = False	'先禁用excel的告警
Dim i As Integer
Dim wb As Workbook
Dim SaveAsExcelName As String
Dim str()
On Error Resume Next '加上以后防止点了取消发生的错误

'打开需要转换的csv文件，可以转换多个
str = Application.GetOpenFilename("Excel数据文件,*.csv", , , , True)

'遍历选择的文件
For i = LBound(str) To UBound(str)
    Set wb = Workbooks.Open(str(i))
    '获取文件名
    SaveAsExcelName = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
    '另存为xlsx操作
    wb.SaveAs Filename:=wb.Path & "\" & SaveAsExcelName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    '关闭excel
    wb.close
Next

Application.DisplayAlerts = True	'恢复excel的告警
End Sub