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

复制代码

代码如下:

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

赞 (0)

相关推荐

  • 如何在Excel2007中使xlsx文件快速转换为适用于Excel2003的xls文件?

    应该如何在Excel中使xlsx文件快速转换为xls文件?在工作中,我们会经常遇到xlsx格式的文件,在Excel 2003中是无法打开它们的,有没有什么办法使xlsx文件转换为xls文件,然后可以在 ...

  • 如何批量修改压缩文件格式

    由于自己粗心大意没有看清楚要求,本来是要压缩为.zip文件的,可是自己将其压缩成了.rar格式.这时如果还有源文件也好办,重新添加压缩就好,偏偏我认为这些没用了个删除了,索性来个直接的:批量修改压缩文 ...

  • 如何将m4a文件批量转换为mp3

    如何将m4a文件批量转换为mp3

    m4a.mp3都是现在十分常用的音频文件格式,有些新用户不知道如何将m4a文件批量转换为mp3,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先打开电脑中的[优速音频处理器]软件 ...

  • WPS 2012快速将幻灯片批量转换为图片

    白领们工作中都会遇到一个普遍的烦恼——做完presentation，老总还让你将今天演讲里的相关数据弄成报告发给他看。话说，弄一份报告对office lady来说不是什么难事，最烦的是如何将PPT里面 ...

  • 芒果TV中下载的mtv文件怎么批量转换为mp4格式

    芒果TV中下载的mtv文件怎么批量转换为mp4格式

    我们在芒果TV中下载的文件默认是.mtv格式的,在手机中不能直接播放的,需要转换成MP4格式才可以播放,今天就跟大家介绍一下芒果TV中下载的mtv文件怎么批量转换为mp4格式的具体操作步骤.1. 首先 ...

  • 如何excel2007中的表格转换为图片格式

    在日常的生活和工作中,我们需要做一些word文档,有时候在word文档中需要嵌入一些excel表格,那么就会遇到如何将excel2007中的表格转换为图片格式,然后放到word文档中,下面就教大家分享 ...

  • Excel日期格式数据批量转换为文本发生异常

    最近遇到一个业务,需要将Excel中的数据直接导入到管理系统的数据库里面,但是屡屡发生错误,经过研究,才发现,原来是Excel的一个日期格式的数据引起的错误. 管理系统需要的是文本数据,但是Excel ...

  • 如何将文本快速批量转换为数字

    Excel是一款使用方便而且功能强大的软件,利用Excel自带的功能可以实现将文本快速批量转换为数字.下面小编就来告诉你如何操作. 操作方法 01 打开Excel2010,进入要编辑的文档. 02 通 ...

  • 将输入的数字转换为用以“万”为单位的代码

    初学java,写一个将输入的数字转换为用以"万"为单位的代码. 操作方法 01 新手,代码写的没有大神好,多多包涵. 02 package 数字转换工具; import java. ...