今天工作上遇到了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
【xls与csv转换（多工作表合并与拆分）】其中all-groups名字可以切换，xls格式也可以切换（比如换成csv）
推荐阅读
- MD5加密
- java串口通信rxtx-2.1-7-bins-r2方式
- Unix时间戳(Unix timestamp)在线转换工具
- MarkDownPad私钥
- 谷歌chorme浏览器假死解决办法
- C盘容量加大和foxmail企业邮箱设置
- U盘或电脑复制文件时提示文件过大（超过4G）的解决方案
- pay|收集银行卡号前六位识别发卡行和卡的种类(不全)
- 使用GDAL建立影像金字塔