我想把excel表格批量转为csv,表格太多了,一个个转太麻烦,向高手求助...

发布网友发布时间：2022-04-29 18:21

共3个回答

热心网友时间：2022-04-27 12:22

工作表都在同一个工作薄?
ALT+F11打开VBA编辑窗口,在左边列表框点鼠标右键选插入模块粘贴以下代码后,关闭VBA编辑窗口,在工作表页面按ALT+F8 点选转换CSV,按回车执行或点击执行按钮.该工作薄里所有的工作表都保存在这个工作薄的路径下.文件名就是: 工作表名.csv
Sub 转换CSV()
iPath = ThisWorkbook.Path
For n = 1 To Worksheets.Count
Name = "\" & Sheets(n).Name & ".csv"
filepath = iPath & Name
Sheets(n).SaveAs Filename:=filepath, FileFormat:= _
xlCSV, CreateBackup:=False
Next
End Sub

热心网友时间：2022-04-27 13:40

将文件“另存为”，在“另存为”对话框的“保存类型”选项中选择相应的csv格式即可

热心网友时间：2022-04-27 15:15

你是要转一个工作簿中的多个表格，还是多个工作薄中的多个表格？追问多个excel，每个里面只有一个sheet1，还有就是我不会用vf，最好不要告我一堆码