vbs将csv转xlsx

简单粗暴，直接上代码

Set oExcel= CreateObject("Excel.Application") 
Set xls = oExcel.WorkBooks.Add
oExcel.ActiveWorkbook.SaveAs( "C:\Users\file.xlsx" )

set xlsx = oExcel.Workbooks.Open("C:\Users\file.xlsx") 
Set csv = oExcel.Workbooks.Open("C:\Users\newfile.csv") 

csv.Sheets(1).Copy xlsx.Sheets(1) '复制sheet
oExcel.Workbooks(1).Save '保存工作表

oExcel.WorkBooks.Close 
oExcel.Quit

'方法二

Sub csv2xlsx(ByVal xlsxpath, ByVal csvpath)
	Set oExcel= CreateObject("Excel.Application") 
	Set xls = oExcel.WorkBooks.Add
	oExcel.ActiveWorkbook.SaveAs( xlsxpath )

	set xlsx = oExcel.Workbooks.Open(xlsxpath) 
	Set csv = oExcel.Workbooks.Open(csvpath) 

	xlsx.Sheets(1).Activate
	csv.Sheets(1).Copy xlsx.Sheets(1) '复制sheet
	xlsx.Save '保存工作表

	oExcel.WorkBooks.Close 
	oExcel.Quit
End Sub

csv2xlsx "C:\Users\lgh\Desktop\3\0605.xlsx","C:\Users\0605.csv"
csv2xlsx "C:\Users\lgh\Desktop\3\0606.xlsx","C:\Users\0606.csv"