使用VBA批量CSV转XLS（97-2003）

 Sub EditCsvToXls()
 Application.ScreenUpdating = False
 '文件目录
 ChDir "C:\Users\QA-Department\Desktop\test"
 Dim sDir As String
 Dim curdir As String
 curdir = "C:\Users\QA-Department\Desktop\test"
 sDir = Dir(curdir & "\*.csv")
 While Len(sDir)
 Workbooks.Open Filename:=curdir & "\" & sDir
 '删除一些段落
     Rows("1:7").Select
     Selection.Delete Shift:=xlUp
     Rows("193:197").Select
     Selection.Delete Shift:=xlUp
     Rows("373:377").Select
     Selection.Delete Shift:=xlUp
     Rows("618:618").Select
     Selection.Delete Shift:=xlUp
     Range("A1").Value = "???(MHz)"
     Range("B1").Value = "???(dB)"
     Columns("A:C").Select
     Columns("A:C").EntireColumn.AutoFit
 '损耗设置为正值
     For i =  To
          Range("B" & i).Value = Range("B" & i) * -
     Next i
 '重命名表名
     Sheets().Name = "sheet1"
     Range("B2:B617").Select
 '有效数字
     Selection.NumberFormatLocal = "0.00"
     Range("A1").Select

 Dim temp As String
 temp = Left(sDir, Len(sDir) - )
 ActiveWorkbook.SaveAs Filename:=curdir & "\" & temp & ".xls", _
 FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
 ReadOnlyRecommended:=False, CreateBackup:=False
 ActiveWorkbook.Close
 sDir = Dir
 Wend
 Application.ScreenUpdating = True
 End Sub