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

推荐阅读

恋爱偏方,让你更好与女生相处

鞋带的系法小白鞋鞋带的系法有哪些

民事诉讼法院给派律师么民事诉讼法院给派律师吗？

关于电工学非电类简述电工学非电类

【养生知识】海带如何不寒凉吃海带的禁忌

2022年女孩有气质温婉美丽的名字

淮山没熟透怎么看淮山熟了没

什么是马亨盖尖晶

基尔霍夫第一定律和基尔霍夫第二定律基尔霍夫第一定律基尔霍夫第一定律是什么

2023清远灵活就业人员参保流程+材料

2020年“二龙治水，十一牛耕田，十人分饼”——古谚要取精华、去糟粕，不尽信！ &amp;#8230; &amp;#8230;

2022CCTV新时代好少年强国有我读书成果展视频在哪观看？

银耳要煮多久才熟银耳煮几分钟就熟了

须眉是什么意思

关于流泗镇简述流泗镇

双子座的好奇心，是不是非常的强？好奇的双子座会做出哪些出格的事？

炒毛豆怎么看熟了没毛豆炒鸡蛋怎么看熟了吗

为什么要去角质,去角质有什么好处怎么去角质去角质的方法

2022福州万达影城各门店春节营业时间福州万达电影城

阿福乌鸦坐飞机鬼畜