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

来源：本站整理作者：梦在深巷时间：2013-02-03 14:31:41

复制代码

代码如下:

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的机器上运行才行。

本周热门

1

Excel常用函数公式大全 2013/08/05
2

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
3

在Excel工作表区域内快速移动或滚动的几个方法 2013/06/20
4

Excel快速删除所有空行的三种常用方法 2016/05/19
5

EXCEL中如何批量去掉带数字的前缀? 2016/07/25
6

Excel"锅状"对比图表如何制作 2016/10/19
7

Excel表格输入时间是斜杠的格式怎么转换成横杠的格式? 2016/10/30
8

Excel中的数据如何按日期顺序排列的方法 2013/05/17

本月热门

1

Excel常用函数公式大全 2013/08/05
2

excel求和出现#value是什么原因? 2016/08/18
3

Excel怎么设置英文首字母大写 2020/08/24
4

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
5

怎样在excel表格中用今天的日期减去上次的日期? 2016/07/20
6

EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
7

Excel打印时每页都有表头设置方法 2015/05/13
8

excel表格如何把一格分成三格 2016/09/24
9

Excel中将15位身份证号转换为18位 2014/07/08
10

excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24

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

相关推荐

本周热门

本月热门