excel2007文件格式xlsx批量转换为excel2003文件格式xls的宏代码
发布时间：2013-02-02 17:32:57 作者：佚名 
我要评论
我要评论如何将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中使用VBA提取指定文件夹中指定扩展名的所有文件名的技巧
项目结束后，要把相关文件的存放位置整理成清单交给同事或领导，提取文件夹名称和路径后，能让接收方精准找到对应文件，减少沟通成本，确保工作衔接顺畅，下面我们就来看看2026-02-26不使用VBA! excel表格提取指定文件夹的所有文件名的技巧
Excel提供了一个名为FILES的宏表函数，可以直接在Excel中批量提取指定文件夹下的文件名,这种方法适合有一定Excel基础的用户，操作相对简单2026-02-26- excel表格中数据很多，也存在很多空白单元格，想要统计空白单元格，该怎么操作呢？下面我们就通过公式快速实现2026-02-26
你还在逐个隐藏和取消隐藏工作表吗? Excel快速批量取消隐藏工作表技巧
在制作Microsoft Excel工作簿时，一般情况下很少会删除源数据所在的Excel工作表，通常的操作办法就是将暂时不用的Excel工作表隐藏起来，下面我们就来看看 Excel批量隐藏和2026-02-09excel表格中销售数据拧麻花怎么办? 教你一招轻松搞定按颜色求和计数的
职场工作中经常会遇到带有设置单元格颜色的表格数据需要求和，或者按字体颜色和表格颜色求和，那么如何来进行计算呢，详细请看下文介绍2026-02-09- excel表格中的数据想要制作成创意图表，该怎么制作玫瑰图呢？下面我们就来看看excel玫瑰图的制作方法2026-02-09
单元格还可以按需自定义设置! Excel单元格格式自定义技巧
excel表格中可以按需自定义设置，该怎么设置呢？下面我们就来根据实际的例子来看看详细设置方法2026-01-19- 规划求解是一个相对较复杂的分析工具，但是在对数据的预测分析上，可谓功能强大，下面我们就来举例看看2026-01-15
- “规划求解”是一组命令的组成部分,借助“规划求解”，可求得工作表上某个单元格中公式的最优（最大或最小）值，并受工作表上其他公式单元格的值的约束或限制，详细请看下2026-01-15
轻松掌握基础功能! 给excel初学者的16个VBA基本代码
欢迎来到VBA的世界！这里有一些简单的代码示例，帮助你快速理解VBA的基础概念，通过这些代码，你可以逐步掌握VBA的精髓，为更复杂的任务打下基础2026-01-13
最新评论