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格式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。