CSV文件转换成Excel文件
Sub CSV2Excel()
Dim strPath As String
Dim strCSVFile As String
Dim strWKName As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
strPath = ThisWorkbook.Path & Application.PathSeparator
strCSVFile = Dir(strPath & "*.csv")
Do While strCSVFile <> ""
Workbooks.Open Filename:=strPath & strCSVFile
strWKName = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:=strPath & strWKName, FileFormat:=xlWorkbookDefault
ActiveWorkbook.Close False
strCSVFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.AskToUpdateLinks = True
MsgBox "Done."
End Sub