excel拆分成多个sheet，excel批量转csv

最新推荐文章于 2025-05-07 20:29:36 发布

原创最新推荐文章于 2025-05-07 20:29:36 发布 · 970 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#excel

收录于

Tools 专栏收录该内容

8 篇文章

订阅专栏

这个博客分享了两个实用的Excel VBA宏代码，第一个宏用于将工作簿中的每个工作表分拆成单独的.xlsx文件，第二个宏则将指定目录下的所有.xls文件批量转换为.csv格式。这两个宏对于处理大量Excel数据非常有用，能够提高工作效率。

Private Sub 分拆工作表()

       Dim sht As Worksheet

       Dim MyBook As Workbook

       Set MyBook = ActiveWorkbook

       For Each sht In MyBook.Sheets

           sht.Copy

           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

           ActiveWorkbook.Close

       Next

       MsgBox "文件已经被分拆完毕!"

   End Sub

excel批量转csv

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

转自：https://zhuanlan.zhihu.com/p/52458010