将Excel批量转换为csv并合并多个csv

       最近在做一些数据分析,想要把多个excel文件合并成一个,写了python脚本尝试一下,结果因为数据量太大合并失败了。老师提示我可以转为csv文件,于是自己尝试了一下,真的太方便了...

一、将Excel批量转换为csv

       1、首先把需要导出的Excel文件集中整理到一个文件夹中,并且确定一个用来保存csv文件的路径

       2、新建一个Excel文件,点击菜单栏上的“开发工具”,并点击下面的Visual Basic

       如果菜单栏上面没有开发工具,则点击文件>>选项,在自定义功能区中将开发工具勾选上


       3、在左侧一栏中双击Sheet1打开代码窗口,输入以下代码

Sub SaveToCSVs()
    Dim fDir As String
    Dim wB As Workbook
    Dim wS As Worksheet
    Dim fPath As String
    Dim sPath As String
    fPath = "你的excel文件路径"
    sPath = "你要存放输出的csv文件的路径"
    fDir = Dir(fPath)
    Do While (fDir <> "")
        If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
            On Error Resume Next
            Set wB = Workbooks.Open(fPath & fDir)
            'MsgBox (wB.Name)
            For Each wS In wB.Sheets
                wS.SaveAs sPath & wB.Name & ".csv", xlCSV
            Next wS
            wB.Close False
            Set wB = Nothing
        End If
        fDir = Dir
        On Error GoTo 0
    Loop
End Sub

       之后点击菜单栏上的“运行”,选择运行子过程/用户窗体。转换过程中会有多个Excel窗口自动显示再关闭。完成后打开设定的文件夹,就能看到转换后的csv文件。

二、将多个csv合并到一个csv中

       1、将所有的csv文件放到一个文件夹中

       2、打开cmd,切换到存放csv的文件夹

       3、输入命令

copy *.csv 你自己起的文件名.csv
       之后按回车等待完成,打开文件夹就可以看到合成的csv
  • 11
    点赞
  • 84
    收藏
    觉得还不错? 一键收藏
  • 9
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 9
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值