EXCEL的開(kāi)發(fā)工具中有Visual Basic。打開(kāi)，輸入如下代碼：

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改為自己的路徑即可。

此時(shí)編碼格式不是UTF-8。如果想轉(zhuǎn)為UTF-8編碼格式的，將csv文件用記事本打開(kāi)，另存為，選擇時(shí)注意下面的編碼格式選為UTF-8即可。

總結(jié)

以上是生活随笔為你收集整理的Excel批量转csv格式的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。