Excel批量转化CSV

最新推荐文章于 2025-03-31 16:08:18 发布

roamer314

最新推荐文章于 2025-03-31 16:08:18 发布

阅读量2.7k

点赞数

分类专栏：软件技巧文章标签： Excel CSV VBA 批量转换宏

本文链接：https://blog.csdn.net/roamer314/article/details/119617573

版权

软件技巧专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种使用VBA宏在Excel中批量转换.xls或.xlsx文件为.csv格式的方法。通过编写简单的VBA代码并运行，可以自动化处理同一文件夹下的所有Excel文件，大大提高了工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Step1. 将要转换的Excel文件放在同一个文件夹里，新建一个空白的Excel文件，右击左下角的Sheet 1，点击“查看代码”（WPS中为开发工具->VB编辑器）

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