批量将Excel2007文件格式xlsx转换为Excel2003文件格式xls的宏

Sub Macro1()
'
' Macro1 Macro
'
    Dim myFiles
Dim i As Long
    myFiles = Dir("D:\1\*.xlsx")
On Error Resume Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = False
Do While myFiles <> ""
        Workbooks.Open Filename:="D:\1\" & myFiles
        ActiveWorkbook.SaveAs Filename:= _
"D:\1\" & Left(myFiles, Len(myFiles) - 1), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWindow.Close
        myFiles = Dir
        i = i + 1
        DoEvents
Loop
MsgBox "全部转换完毕，共转换文件 " & i & "个"
End Sub

xlsx文件转换为xls，前提是要在装Excel2007的机器上运行才行。