xls批量转换为xlsx

vb代码

Sub ConvertToXlsx()
    Dim strPath As String
    Dim strFile As String
    Dim wbk As Workbook
    ' 路径请以反斜杠结尾
    strPath = "C:\xls2xlsx\"
    strFile = Dir(strPath & "*.xls")
    Do While strFile <> ""
        If Right(strFile, 3) = "xls" Then
            Set wbk = Workbooks.Open(Filename:=strPath & strFile)
            wbk.SaveAs Filename:=strPath & strFile & "x", _
                FileFormat:=xlOpenXMLWorkbook
            wbk.Close SaveChanges:=False
        End If
        strFile = Dir
    Loop
End Sub

注意：.xlsx 不在存储宏,所以将xls转为xlsx后会导致原工作簿中的宏丢失
来源

xls,xlsx批量转换为csv

http://cwestblog.com/2011/05/05/excel-batch-convert-xls-to-csv/