将excel2007文件格式xlsx批量转换为excel2003文件格式xls，本文提供实现的宏代码。

但是注意：xlsx文件转换为xls，前提是一定要在装Excel2007的机器上运行才行,有需要的朋友可以参考下，或许对你的遇到的问题有所帮助！

代码如下:

Sub 批量转换() 
' 
' 批量转换 Macro 
' 
Dim myFiles 
Dim i As Long 
myFiles = Dir("D:文档*.xlsx") 
On Error Resume Next 
Application.ScreenUpdating = True 
Application.DisplayAlerts = False 
Do While myFiles <> "" 
Workbooks.Open Filename:="D:文档" & 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

本文链接：http://www.cbjv.cn/jyzs/718.html 转载请注明来源！