把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