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

最新推荐文章于 2024-08-15 15:54:15 发布

ronvicki

最新推荐文章于 2024-08-15 15:54:15 发布

阅读量757

点赞数

分类专栏： Tools 文章标签： excel

本文链接：https://blog.csdn.net/ronvicki/article/details/121604651

版权

Tools 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

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

摘要由CSDN通过智能技术生成

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