Excel转化CSV

最新推荐文章于 2024-05-30 15:00:29 发布

生信了（公众号同名）

最新推荐文章于 2024-05-30 15:00:29 发布

阅读量2.5k

点赞数 3

分类专栏： # 闲余时光文章标签：生物信息数据处理 Excel

本文链接：https://blog.csdn.net/biocity/article/details/85095378

版权

闲余时光专栏收录该内容

4 篇文章 0 订阅

订阅专栏

原创：黄小仙

小仙同学不得不承认，懒是本小仙进步的最大动力（虽然有的时候花费大把时间找捷径失败，但真正能找到的时候，那个feel倍爽?）！
今天给大家介绍一个批量转csv的方法。这个方法就是基于Excel软件中的VBA。

Step1. 将要转换的Excel文件放在同一个文件夹里，新建一个空白的Excel文件，右击左下角的Sheet 1，点击查看代码
在这里插入图片描述

Step2. 在出现的框里填上以下代码，选中之后点击运“运行”
在这里插入图片描述

Sub xls2csv()
    Application.DisplayAlerts = False
    t = ActiveWorkbook.Name
    mypath = ActiveWorkbook.Path & "\"
    myfile = Dir(mypath & "*.xls")
    Do Until Len(myfile) = 0
        If myfile <> t Then
            Workbooks.Open Filename:=mypath & myfile
            ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".csv", FileFormat:=xlCSV
        End If
        If myfile <> t Then ActiveWorkbook.Close
        myfile = Dir
    Loop
    Application.DisplayAlerts = True
End Sub

(声明一下哦，这个VBA代码不是本小仙写的，时间太久找不到出处，欢迎原作者来认领)

Step3.
是不是还在等待下一步，哈哈，已经好啦，没有Step3了。

今天的这个技巧是不是很简单，快去试试吧!

(公众号：生信了)