Excel批量转csv格式

EXCEL的开发工具中有Visual Basic。打开，输入如下代码：

Sub SaveToCSVs()Dim fDir As StringDim wB As WorkbookDim wS As WorksheetDim fPath As StringDim sPath As StringfPath = "C:\Users\qiany\Desktop\文件\"sPath = "C:\Users\qiany\Desktop\csv保存位置\"fDir = Dir(fPath)Do While (fDir <> "")If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" ThenOn Error Resume NextSet wB = Workbooks.Open(fPath & fDir)'MsgBox (wB.Name)For Each wS In wB.SheetswS.SaveAs sPath & wB.Name & ".csv", xlCSVNext wSwB.Close FalseSet wB = NothingEnd IffDir = DirOn Error GoTo 0Loop End Sub

中间fPath和sPath改为自己的路径即可。

此时编码格式不是UTF-8。如果想转为UTF-8编码格式的，将csv文件用记事本打开，另存为，选择时注意下面的编码格式选为UTF-8即可。

总结

以上是生活随笔为你收集整理的Excel批量转csv格式的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。