使用VBA批量转换Excel格式,由.xls转换成.xlsx
2017-04-07 17:52
531 查看
[b]问题分析:[/b]
Excel2007以前的格式是.xls,之后的格式是.xlxs。打开单独的一个Excel文档,使用“另存为”功能,可以很轻松的转换格式。但是面对几百个Excel表这样就太累了,搜索很久,也没发现一个工具可以直接批量进行格式转换。
最终发现可以使用VBA来实现批量转换Excel格式的功能。大家不要被吓到,VBA我也不懂,代码是从别人那里搞到的,现在也只是知道了怎么使用,但这足够解决问题了
[b]VBA介绍:[/b]
1、VBA是一种编程语言,它依托于Office软件,不能独立的运行,通过VBA可以实现各种Office软件操作的自动化。
2、Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,主要能用来扩展Windows的应用程式功能。使用Excel的VBA开发的Excel文档,在Excel中运行时需要开启Excel的宏功能,否则此文档的VBA自动化功能将被完全屏蔽,文档的功能无法实现。
[b]执行条件:[/b]
1、Office2007及以上版本的Excel
2、Excel启用宏
[b]工具下载:[/b]
可以自己新建Excel,编写VBA代码,代码在后面。也可以使用我提供的已经写好的两个,以下是百度网盘中的链接:
《xls2xlsx.xlsm》
链接:http://pan.baidu.com/s/1mit3FGc 密码:s57a
《Convert2xlsx.xlsm》
链接:http://pan.baidu.com/s/1sluFttb 密码:pguv
[b]功能介绍:[/b]
先介绍这两个工具功能,大家可以根据需要下载。
《xls2xlsx.xlsm》会在所在文件夹目录中、包括子目录中,遍历所有.xls格式的文件,执行“另存为”操作,然后在原文件当前位置另存为一个同名的.xlsx格式的文件。
比如:执行前xls2xlsx.xlsm所在的文件夹中有3个.xls格式的文件,同时包含一个子文件夹,子文件夹中也有3个.xls格式的文件
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174137925-2069374374.png)
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174150332-817505012.png)
执行后,会生成如下文件:
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174212847-912921544.png)
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174219785-472609115.png)
《Convert2xlsx.xlsm》会在所在文件夹目录中(不包括子目录),遍历所有.xls格式的文件,执行“另存为”操作,然后在当前路径下生成一个文件夹xlsx,这个文件夹中放了所有新生成的文件。
比如:执行前Convert2xlsx.xlsm所在的文件夹中有3个.xls格式的文件
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174320628-866982803.png)
执行后,会生成如下文件:
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174341988-1419970457.png)
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174440003-2071752925.png)
[b]执行方法:[/b]
1、从上面下载任意一个工具,或者新建一个Excel;
2、启用宏操作
一般情况下,打开Excel的时候,会弹出如下警告
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174403300-1217577299.png)
如果弹出了这个警告,直接启用就可以了;如果没有出现的话,请参考以下百度经验启用宏http://jingyan.baidu.com/article/39810a23e39b9db637fda651.html
3、编写执行VBA代码
这一步新手肯定是不会的,详细地图文介绍就参考百度经验http://jingyan.baidu.com/article/09ea3ede265e8bc0aede39ba.html,我这里只作简单的说明:
(a)在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境
(b)如果是下载的我的工具,可以跳过此步骤;如果是新建的Excel,此时在VBA编辑环境中的“代码窗口”复制粘贴以下两个代码中的一个:
《xls2xlsx.xlsm》
《Convert2xlsx.xlsm》
(c)按下F5快捷键执行这段代码或者在菜单中单击“运行子过程/用户窗体”命令
PS:需要说明的是,在执行过程中,不要去做其他的事情,不然可能会中断程序的运行
后来有同学提了些问题,最后执行代码的时候,并没有达到效果。先来看下正常的效果,会先弹出一个对话框,然后运行
![](https://images2017.cnblogs.com/blog/380239/201711/380239-20171106103830731-1925990143.png)
出问题的原因是:在文件夹中的 .xls的后缀是大写的。这导致了代码不能执行,不过这种情况稍微修改下就可以了
![](https://images2017.cnblogs.com/blog/380239/201711/380239-20171106104010856-1386075372.png)
我还试了一下,如果同目录下 .xls 和 .xlsx同时存在,也执行不了……
原创文章,欢迎转载,转载请注明出处!
Excel2007以前的格式是.xls,之后的格式是.xlxs。打开单独的一个Excel文档,使用“另存为”功能,可以很轻松的转换格式。但是面对几百个Excel表这样就太累了,搜索很久,也没发现一个工具可以直接批量进行格式转换。
最终发现可以使用VBA来实现批量转换Excel格式的功能。大家不要被吓到,VBA我也不懂,代码是从别人那里搞到的,现在也只是知道了怎么使用,但这足够解决问题了
[b]VBA介绍:[/b]
1、VBA是一种编程语言,它依托于Office软件,不能独立的运行,通过VBA可以实现各种Office软件操作的自动化。
2、Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,主要能用来扩展Windows的应用程式功能。使用Excel的VBA开发的Excel文档,在Excel中运行时需要开启Excel的宏功能,否则此文档的VBA自动化功能将被完全屏蔽,文档的功能无法实现。
[b]执行条件:[/b]
1、Office2007及以上版本的Excel
2、Excel启用宏
[b]工具下载:[/b]
可以自己新建Excel,编写VBA代码,代码在后面。也可以使用我提供的已经写好的两个,以下是百度网盘中的链接:
《xls2xlsx.xlsm》
链接:http://pan.baidu.com/s/1mit3FGc 密码:s57a
《Convert2xlsx.xlsm》
链接:http://pan.baidu.com/s/1sluFttb 密码:pguv
[b]功能介绍:[/b]
先介绍这两个工具功能,大家可以根据需要下载。
《xls2xlsx.xlsm》会在所在文件夹目录中、包括子目录中,遍历所有.xls格式的文件,执行“另存为”操作,然后在原文件当前位置另存为一个同名的.xlsx格式的文件。
比如:执行前xls2xlsx.xlsm所在的文件夹中有3个.xls格式的文件,同时包含一个子文件夹,子文件夹中也有3个.xls格式的文件
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174137925-2069374374.png)
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174150332-817505012.png)
执行后,会生成如下文件:
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174212847-912921544.png)
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174219785-472609115.png)
《Convert2xlsx.xlsm》会在所在文件夹目录中(不包括子目录),遍历所有.xls格式的文件,执行“另存为”操作,然后在当前路径下生成一个文件夹xlsx,这个文件夹中放了所有新生成的文件。
比如:执行前Convert2xlsx.xlsm所在的文件夹中有3个.xls格式的文件
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174320628-866982803.png)
执行后,会生成如下文件:
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174341988-1419970457.png)
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174440003-2071752925.png)
[b]执行方法:[/b]
1、从上面下载任意一个工具,或者新建一个Excel;
2、启用宏操作
一般情况下,打开Excel的时候,会弹出如下警告
![](https://images2015.cnblogs.com/blog/380239/201704/380239-20170407174403300-1217577299.png)
如果弹出了这个警告,直接启用就可以了;如果没有出现的话,请参考以下百度经验启用宏http://jingyan.baidu.com/article/39810a23e39b9db637fda651.html
3、编写执行VBA代码
这一步新手肯定是不会的,详细地图文介绍就参考百度经验http://jingyan.baidu.com/article/09ea3ede265e8bc0aede39ba.html,我这里只作简单的说明:
(a)在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境
(b)如果是下载的我的工具,可以跳过此步骤;如果是新建的Excel,此时在VBA编辑环境中的“代码窗口”复制粘贴以下两个代码中的一个:
《xls2xlsx.xlsm》
'***********访问当前文件夹下所有子文件夹及文件, Dim iFile(1 To 100000) As String Dim count As Integer Sub xls2xlsx() iPath = ThisWorkbook.Path On Error Resume Next count = 0 zdir iPath For i = 1 To count If iFile(i) Like "*.xls" And iFile(i) <> ThisWorkbook.FullName Then MyFile = iFile(i) FilePath = Replace(MyFile, ".xls", ".xlsx") If Dir(FilePath, 16) = Empty Then Set WBookOther = Workbooks.Open(MyFile) Application.ScreenUpdating = False ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False WBookOther.Close SaveChanges:=False '解决不能close 文件问题 Application.ScreenUpdating = True End If End If Next End Sub Sub zdir(p) '访问当前文件夹下所有子文件夹及文件 Set fs = CreateObject("scripting.filesystemobject") For Each f In fs.GetFolder(p).Files If f <> ThisWorkbook.FullName Then count = count + 1: iFile(count) = f Next For Each m In fs.GetFolder(p).SubFolders zdir m Next End Sub
《Convert2xlsx.xlsm》
Sub xls2xlsx() Dim FilePath, MyFile, iPath, Name, OutPath As String iPath = ThisWorkbook.Path OutPath = Dir(iPath & "\xlsx", vbDirectory) If OutPath = "" Then MkDir (iPath & "\xlsx") End If MyFile = Dir(iPath & "\*.xls") If MyFile <> "" Then Do On Error Resume Next If MyFile = ThisWorkbook.Name Then MyFile = Dir Workbooks.Open (iPath & "\" & MyFile) MyFile = Replace(MyFile, ".xls", ".xlsx") Name = "\" & MyFile FilePath = iPath & "\xlsx" & Name Application.ScreenUpdating = False ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Workbooks(MyFile).Close True Application.ScreenUpdating = True MyFile = Dir Loop While MyFile <> "" End If End Sub
(c)按下F5快捷键执行这段代码或者在菜单中单击“运行子过程/用户窗体”命令
PS:需要说明的是,在执行过程中,不要去做其他的事情,不然可能会中断程序的运行
后来有同学提了些问题,最后执行代码的时候,并没有达到效果。先来看下正常的效果,会先弹出一个对话框,然后运行
![](https://images2017.cnblogs.com/blog/380239/201711/380239-20171106103830731-1925990143.png)
出问题的原因是:在文件夹中的 .xls的后缀是大写的。这导致了代码不能执行,不过这种情况稍微修改下就可以了
![](https://images2017.cnblogs.com/blog/380239/201711/380239-20171106104010856-1386075372.png)
我还试了一下,如果同目录下 .xls 和 .xlsx同时存在,也执行不了……
原创文章,欢迎转载,转载请注明出处!
相关文章推荐
- POI使用:用poi接口不区分xls/xlsx格式解析Excel文档(41种日期格式解析方法,5种公式结果类型解析方法,3种常用数值类型精度控制办法)
- 在java中使用weka:用java将Excel文件(xlsx,xls)转换为csv文件
- POI使用:用poi接口不区分xls/xlsx格式解析Excel文档(41种日期格式解析方法,5种公式结果类型解析方法,3种常用数值类型精度控制办法)
- Apache POI读写Excel文档入门(支持XLS和XLSX格式)
- python txt与excel 相互转换(.xls、.xlsx)
- java 使用maven架包Poi来读取Excel(xlsx与xls)
- POI 3.8读取2003与2007格式EXCEL(xls、xlsx)
- 64位的Sql Server使用OPENROWSET导入xlsx格式的excel数据的时候报错(转载)
- c#读取生成excel表格文件xls、xlsx格式文件
- java使用jxl包读写excel表格文件,即xls格式文件
- 使用ADO.net转换数据到Excel格式并提供下载
- 使用PHPExcel生成excel、xls的格式文件
- Excel转换DataSet (通用 .xls .xlsx)
- 右键新建Excel时如何设定其版本即.xlsx转.xls格式
- 使用ExcelDataReader读写excel(.xls,.xlsx)
- java读取Excel的方法,解析xls、xlsx两种格式
- java读取Excel的方法,解析xls、xlsx两种格式
- 使用poi来解析Excel的xls和xlsx
- Java实现不同excel格式(*.xls、*.xlsx)文件的读取
- 使用ADO.net转换数据到Excel格式并提供下载