批量将csv转xls

转载：https://www.cnblogs.com/guhuazhen/p/11179932.html
1.csv与xlsx（xls）区别：

2.csv转xls代码：

'ChDir "C:\"
Dim sDir As String
Dim curdir As String
'要转换的文件路径
curdir = "C:\1"
'转换后存文件路径
targetdir = "C:\2"

'curdir = ThisWorkbook.Path

sDir = Dir(curdir & "\*.csv")
While Len(sDir)

Workbooks.Open Filename:=curdir & "\" & sDir
Dim temp As String
temp = Left(sDir, Len(sDir) - 4)
ActiveWorkbook.SaveAs Filename:=targetdir & "\" & temp & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
sDir = Dir
Wend

更新：直接利用python

import os
import pandas as pd

#%%
path = r'./csv/'

for i in os.listdir(path):
    df = pd.read_csv(os.path.join(path,i))
    df.to_excel(os.path.join('./xls/' + i.split('.')[0] + '.xls'), index = None, header = None)
print('done!')

如果列数超过236，需要转换成xlsx。