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

其它 专栏收录该内容
5 篇文章 0 订阅

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

  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 游动-白 设计师:白松林 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值