xls与csv转换：多工作表合并与拆分

今天工作上遇到了xls与csv互转的场景，分别是xls的多工作表批量转csv，和多个csv纵向合并成一个xls，简单记录一下。

多工作表批量转csv

先用ALT+F11打开VBA编辑窗口,在左边列表框点鼠标右键选插入模块粘贴一个宏：

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 

在工作表页面按ALT+F8 点选转换csv并回车执行，所有工作表就会导出成独立csv存放在原xls所在文件夹，文件名为工作表名

多个csv纵向合并转一个xls

在csv的所在文件夹中，shift+右键打开命令窗口，输入

copy *.csv all-groups.xls

其中all-groups名字可以切换，xls格式也可以切换（比如换成csv）