Excel2003被退休了，以前做的文档都是XLS的，肿么办？（Excel代码集团）

Excel2003被退休了，以前做的文档都是XLS的，现在都要转成XLSX，一个一个转，那样是不是2X青年的标准做法？

不要2！

来看下魔术青年是如何搞定的~~

注意：执行以下代码之前，先在文件所在文件夹内创建一个名为“NEW”的文件夹，转好的文件会被存放在该文件夹中。

Sub Sample()
Dim MyPath As String
Dim MyWbN As String
Dim MyBook
Application.DisplayAlerts = False
MyPath = InputBox("请输入待转换文档所在的文件夹路径：" & Chr(10) & "（转换后的文件将被保存在此文件夹下的NEW文件夹内，请确保没有重名的文件夹存在。）", "", ThisWorkbook.Path)
MkDir MyPath & "\NEW"
MyWbN = Dir(MyPath & "\*.xls")
Do While MyWbN <> ""
    If MyWbN <> ThisWorkbook.Name Then
       If Right(MyWbN, 4) <> "xlsx" Then
           Set MyBook = GetObject(MyPath & "\" & MyWbN)
           With Windows(MyBook.Name)
               .Visible = True
               ActiveWorkbook.SaveAs Filename:=MyPath & "\NEW\" & MyWbN & "x", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
               .Close
           End With
       End If
    End If
    MyWbN = Dir
Loop
MsgBox "转换成功，保存在" & MyPath & "\NEW文件夹内。" & Chr(10) & "为防止同名被覆盖，原文件夹中已有xlsx文档未作任何转换与移动。"
Set MyBook = Nothing
Application.DisplayAlerts = True
End Sub