今天工作上遇到了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