学步园

有同事要将上百个xlsx文件转换为xls，于是写了一个原型。

当然前提是要在装Excel2007的机器上运行才行。

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

没甚技术含量，文件固定在D:/1目录了，可以进一步改进并增加对子目录的支持。