excel VBA将一个目录下的所有xls文件批量转换为xlsx文件
发布时间：2022-08-19 04:46:05
Option Explicit
Sub xlsTOxlsx()
Dim strFilePath As String, strFileName As String, strFileType As String
Dim aIndex As Long, arrFileName() As String, strNewName As String
'设置文件扩展名标识文件类型
strFileType = ".xls"
On Error Resume Next
'设置文件夹路径
strFilePath = CreateObject("shell.application").BrowseForFolder(0, "请选择文件夹", 0).self.Path
If Err <> 0 Or InStr(1, strFilePath, "::") > 0 Then
Err = 0
Exit Sub
End If
'开始搜索文件
strFileName = Dir(strFilePath & "*.*")
Do While strFileName <> ""
If LCase(Right(strFileName, Len(strFileType))) = LCase(strFileType) Then
ReDim Preserve arrFileName(aIndex)
arrFileName(aIndex) = strFileName
aIndex = aIndex + 1
'Debug.Print strFileName
End If
strFileName = Dir
DoEvents
Loop
If aIndex = 0 Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For aIndex = LBound(arrFileName) To UBound(arrFileName)
strNewName = Mid(arrFileName(aIndex), 1, Len(arrFileName(aIndex)) - Len(strFileType)) & ".xlsx"
Workbooks.Open strFilePath & arrFileName(aIndex)
ActiveWorkbook.SaveAs Filename:=strFilePath & strNewName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Workbooks(strNewName).Close False '关闭工作簿
Kill strFilePath & arrFileName(aIndex)
DoEvents
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "操作完成，共为您转换了 " & UBound(arrFileName) + 1 & " 个文件。", vbOKOnly, "完成"
End Sub
excel VBA将一个目录下的所有xls文件批量转换为xlsx文件的下载地址：
0
投稿猜你喜欢
微软已经向Slow ring用户推送了Windows 10 Build 10041版本系统，同时还向处在Fast ring的用户推送了该版本- wps怎么做文字镂空效果？wps功能强大，支持各类艺术字的特殊效果，比如镂空效果，阴影效果等，如果想设置文字镂空效果的话要怎么做出来呢？赶紧
- 咱们 常常读的杂志，大多一个页面会分为2列或3列，这 便是分栏。 咱们看到，文章的 题目和作者 并无分栏，而是 注释 分红了三栏，这是 如何
- Win10系统下自带了一个《碎片整理和优化驱动器》，这个工具不仅可以进行磁盘整理，而且还能对SSD固态硬盘进行优化。在SSD硬盘越来越流行的
- 欧朋浏览器怎么设置主页？欧朋浏览器体积小功能又强大，许多用户已经开始使用这款浏览器，一些朋友都在问这款浏览器要怎么设置主页，下面就给大家分享
- 很多用户升级到了Win11系统之后，很多功能还不太熟悉，最近有用户询问Win11 VBS怎么关闭？针对这一问题，本篇带来了详细的关闭Win1
- 通常，创建比较不同类型数据的Excel2007图表是有用的。例如，想要比较交易量的分配价格，或者销售量的税，或者失业率和消费指数，或者其它一
- 这篇文章主要介绍了win7系统打开浏览器无法弹出cmcc edu登陆界面的解决方法，感兴趣的小伙伴们可以参考一下很多用户在win7旗舰版系统
- wps软件出现后一直以来受到了许多用户的关注，并且拥有了很庞大的用户群体，并且用户在面对许多的办公软件时，脑海的第一反应是选择使用wps这款
- 微软最近为Office2016发布了一个更新，除了修复多个安全漏洞和bug，它还为Word、Excel、PowerPoint、OneNote
- vue如何制作照片视频？vue是一款多功能的视频拍摄软件，具有去水印和实时滤镜等功能。vue要如何制作照片视频呢，下面就给大家分享具体步骤。
- 你有没有遇到电脑突然间的黑屏，或者升级完win10系统重启后黑屏幕然后一直进不去的状况。有的小伙伴反应启动系统走到logo后才黑屏，有的是开
- 我们在使用win10操作系统的时候，有些情况下可能因为一些系统的问题或者是人为操作的问题引起了系统死机卡住的情况。对于win10旗舰版死机这
- 无线投屏最常用的就是通过手机来投屏，但有时笔记本也是我们常要用到的，没有数据线的情况怎么投屏呢?下面我们就来看看win10笔记本无线投屏到电
- 2003版本：在菜单栏依次单击“工具”→“选项”菜单命令，打开“选项”对话框，切换到“常规”选项卡，取消“列出最近所用文件”复选框，并单击“
- 电脑黑屏按什么快捷键可以重启？最近有用户询问这个问题，在使用电脑的时候，难免会遇到各种问题，其中电脑黑屏是很常见的问题，电脑黑屏了可以按几个
- 近期很多用户询问小编win8系统怎么优化SSD固态硬盘？随着固态硬盘价格不断下降，新笔记本以及组装电脑也开始普遍采用固态硬盘平台。固态硬盘速
- 默认情况下，在Excel中加入的批注通常(如图1)所示，就是一个矩形的文本框默认情况下，在Excel中加入的批注通常(如图1)所示，就是一个
- 洛奇英雄传是一款大型的角色扮演网游，该网游以神话故事为背景，人类与魔进行激烈的战争，非常刺激，因此深受玩家们的喜爱。可是一些用户升级Wind
- 相信很多用户在使用浏览器的时候都会弹出各种的广告，这让人很烦恼，那么在edge浏览器中怎么样才能去关闭广告呢？下面就一起来看看详细的操作方法
