excel2007文件格式xlsx批量转换为excel2003文件格式xls的宏代码

如何将excel2007文件格式xlsx批量转换为excel2003文件格式xls本文提供实现的宏代码.注意：xlsx文件转换为xls，前提是要在装Excel2007的机器上运行才行,有兴趣的朋友可以参考下，或许对你的遇到的问题有所帮助
复制代码代码如下:
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的机器上运行才行。
上一篇：excel将A列内容插入B列要求位置随机实现步骤(图解) 下一篇：Excel表格中常用快捷键大全(2003/2007)

相关文章

• Excel教程 Excel表格下拉列表怎么设置

  Excel表格下拉列表怎么设置呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel表格下拉列表怎么设置的回答，希望能够对大家有所帮助。......

  2023-01-18

  详细阅读
• Excel教程 Excel如何打印选定区域

  Excel如何打印选定区域呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel如何打印选定区域的回答，希望能够对大家有所帮助。......

  2023-01-18

  Excel表格中常用快捷键大全(2003/2007)

  一个软件最大的用处是提高工作效率，衡量一个软件的好坏，除了是否出自名之外，最主就是能否让一个新手更快的学会这个软件和提高工作速度

  详细阅读
• Excel教程 Excel怎么设置英文首字母大写

  Excel怎么设置英文首字母大写？Excel中输入英文首字母大写怎么操作？当我们需要将Excel表格中的英文单词，把首字母全部大写，该怎么操作呢，怎么将Excel中英文首字母大写，Excel怎么设置英文首字母大写，下面就和小编一起来看看吧！......

  2023-01-18

  详细阅读
• Excel教程 Excel怎么给所有的数字加10

  Excel怎么给所有的数字加10？Excel数字怎么全部加10？怎么全部加1？当我们在使用Excel时，所有的数字都少10，或者1，该怎么给所有的数字都 10、 1呢，Excel怎么给所有的数字加10，EXcel数字怎么全部加10，下面就和小编一起来看看吧！......

  2023-01-18

  详细阅读
• Excel教程 Excel怎么设置日期自动更新

  Excel怎么设置日期自动更新？Excel怎么设置日期自动更新？当我们Excel表格中的日期需要实时更新到最新日期，该怎么设置呢，怎么将Excel表格日期自动更新到最新日期，Excel怎么设置日期自动更新，下面就和小编一起来看看吧！......

  2023-01-18

  详细阅读

Excel2010中如何设置图表指定颜色表示负值

　　在Excel中制作条形图或柱形图时，默认所有的数据条(或柱形)都是同一种颜色的。有时会遇到数据为负值的情况，如果能在图表中用其他颜色表示负值将会更加醒目