Excel-VBA将一个目录下的所有xls文件批量转换为xlsx文件图文攻略666 _Excel

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
【Excel-VBA将一个目录下的所有xls文件批量转换为xlsx文件图文攻略666】 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文件图文攻略666

推荐阅读

汽车贴膜前需要洗车吗汽车贴膜前要洗车吗?

瘦麒麟臂方法瘦胳膊最有效的方法

糖不甩怎么做才Q

形容经历了事情的成语是什么

白煮牛肉的家常做法大全白煮牛肉的家常做法

梦见下牙掉了,但没流血是什么意思

金鱼眼面相解析，有金鱼眼的人运势怎么样

关于本玉12号简述本玉12号

双子座的床上功夫

2022年护士年终工作总结 2022美工个人年终工作总结

手机无响应的解决方法应该怎么解决呢

宝马有什么技术

诗歌鉴赏蜀相咏史怀古诗蜀相的作者

猫咪渴了的表现

母亲节要买什么礼物,分享几款走心的

越狱第3季中第几集越狱成功？

抗皱六胜肽精华液的使用方法六胜肽抗皱精华液使用方法

开元通宝680万图片 &#8211; 开元通宝2020价格

怎么去胶？

蓝牙耳机使用小技巧蓝牙耳机的正确使用方法