excel VBA将一个目录下的所有xls文件批量转换为xlsx文件
Option Explicit
Sub xlsTOxlsx() Dim strFilePath As String, strFileName As String, strFileType As String Dim aIndex As Long, arrFileName() As String, strNewName As String
'设置文件扩展名标识文件类型 strFile......
Sub xlsTOxlsx() Dim strFilePath As String, strFileName As String, strFileType As String Dim aIndex As Long, arrFileName() As String, strNewName As String
'设置文件扩展名标识文件类型 strFile......