csv格式文件批量转换成xls excel文件

Sub csv2xls() Dim r As Long, c As Long, str As String, sht As Worksheet Application.ScreenUpdating = False '屏幕闪烁关闭 Dim f As String f = Dir(ThisWorkbook.Path & "\*.csv") Do While f > " " Workbooks.Open ThisWorkbook.Path & "\" & f Workbooks(f).SaveAs ThisWorkbook.Path & "\" & Left(f, Len(f) - 3) & "xls", xlNormal Workbooks(Workbooks.Count).Close 1 f = Dir Loop Application.ScreenUpdating = True '屏幕闪烁打开 End Sub