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

推荐阅读

塔罗未来结婚对象的特征，我想的人心里想我吗

属虎相冲的属相是什么生肖，属虎与什么生肖相冲

告别2019迎接2020抖音句子大全告别2019迎接2020抖音句子

江苏儿童新冠疫苗可以和其它疫苗同时接种吗

黄蚊子是什么蚊子黄蚊子的介绍

汽车贴膜有气泡怎么办点模糊汽车贴膜有气泡怎么办

2022吉林养老金上调方案最新消息吉林养老金计算公式2022计算器举例

京东拼购1200万赏金大街&ensp;收藏店铺最高可领取250京豆

玉米用量多还是小麦用量多？有什么依据呢？

画苹果核的方法苹果的果核怎么画

运筹帷幄词语解释坐筹帷幄名词解释

手机容量不足怎么办教你简单的几招

削完芋头皮手痒怎么办削完芋头皮手痒可以怎么办

雅诗兰黛口红怎么样

艾薇儿纸尿裤是什么档次的品牌

关于火棘简述火棘

年底出生的女孩取名字冬天女孩取名

显卡怎么测试怎样测试显卡性能

怎么取消科目一考试预约成功怎么取消科目一考试预约

荒原雪荒原雪狼稿件