问题描述
我需要将很多文件从.xls转换为.csv文件。 我试图用循环来做到这一点:
Sub Datatotext()
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"),DataType:=xlDelimited,_
TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False,Tab:=True,_
Semicolon:=False,Comma:=False,Space:=False,Other:=False,FieldInfo _
:=Array(1,2),TrailingMinusNumbers:=True
Next
ActiveWorkbook.Save
End Sub
我得到了错误:
excel_files = glob.glob("A/2018/*xls")
for excel in excel_files:
out = excel.split('.')+'.csv'
df = pd.read_excel(excel)
df.to_csv(out)
哪些变量以及如何更改?
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)