把excel表格批量转为csv

工作表都在同一个工作薄?

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