有多個(gè)文件excel文件需要導(dǎo)出為CSV格式時(shí)，一個(gè)個(gè)導(dǎo)出非常麻煩。有些人想到批量轉(zhuǎn)換工具，然而工具沒找到，倒是下了一堆病毒。其他excel本身就可以實(shí)現(xiàn)，只要編輯一段VBS代碼就可以輕松實(shí)現(xiàn)自動(dòng)批量轉(zhuǎn)換。今天，學(xué)習(xí)啦小編就教大家在Excel2013中進(jìn)行導(dǎo)出Csv格式的操作方法。

　　Excel2013中進(jìn)行導(dǎo)出Csv格式的操作步驟如下：

　　首選我們把需要導(dǎo)出為CVS的Excel文件整理集中到一個(gè)文件夾中。然后新建一個(gè)文件夾用來(lái)保存CSV文件的。支持Xlsx、xls格式。

　　新建一個(gè)EXCEL表格，打開后，點(diǎn)擊菜單欄上的“開發(fā)工具”;功能區(qū)下點(diǎn)擊打開Visual Basic。

　　如果菜單欄上沒有開發(fā)工具，則在選項(xiàng)中添加。點(diǎn)擊文件，彈出菜單選擇選項(xiàng)。在EXCEL選項(xiàng)中，點(diǎn)擊自定義功能區(qū)，右邊勾選開發(fā)工具，然后點(diǎn)擊確定。這樣開發(fā)工具就會(huì)顯示在菜單欄上。

　　在左側(cè)工程資源管理器中雙擊Sheet1 (Sheet1)打開代碼窗口。工程資源管理器如果沒有顯示，則按ctrl+R就可以顯示了。

　　在代碼窗口中輸入下面代碼，其中有兩行(圖片紅框位置)需要自己修改為實(shí)際文件來(lái)源路徑和保存路徑。就是開頭說(shuō)到的那兩個(gè)文件夾位置。后面再解釋。

　　Sub SaveToCSVs()

　　Dim fDir As String

　　Dim wB As Workbook

　　Dim wS As Worksheet

　　Dim fPath As String

　　Dim sPath As String

　　fPath = "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" Then

　　On Error Resume Next

　　Set wB = Workbooks.Open(fPath & fDir)

　　'MsgBox (wB.Name)

　　For Each wS In wB.Sheets

　　wS.SaveAs sPath & wB.Name & ".csv", xlCSV

　　Next wS

　　wB.Close False

　　Set wB = Nothing

　　End If

　　fDir = Dir

　　On Error GoTo 0

　　Loop

　　End Sub

　　代碼中的fPath = "C:\Users\qiany\Desktop\文件\" -定義為需要轉(zhuǎn)換成CSV的Excel源文件。

　　sPath = "C:\Users\qiany\Desktop\csv保存位置\" -定義為轉(zhuǎn)換后的CSV文件保存位置。

　　這兩個(gè)位置需要自己按實(shí)際修改。特別注意：路徑需要以\結(jié)尾。

　　寫好代碼后開始運(yùn)行。點(diǎn)擊菜單欄上的運(yùn)行，選擇運(yùn)行子過(guò)程/用戶窗體。

　　彈出一個(gè)對(duì)話框，點(diǎn)擊運(yùn)行。

　　接下來(lái)就開始進(jìn)入轉(zhuǎn)換過(guò)程，在這過(guò)程中會(huì)多個(gè)EXCEL窗體自動(dòng)顯示再自動(dòng)關(guān)閉，取決于多少個(gè)Excel文件。

　　完成后我們打開剛才設(shè)定的保存文件夾，就可以看到轉(zhuǎn)換后的CSV文件。

　　在步驟9的圖片中CSV的文件明顯多于剛才步驟1中的文件，為什么會(huì)這樣呢?

　　因?yàn)樵瓉?lái)的Excel的單個(gè)工作簿中有多個(gè)工作表，所以才會(huì)出現(xiàn)這么多的CSV文件。

　　簡(jiǎn)單的說(shuō)，就是所有工作簿中的每個(gè)工作表都保存為一個(gè)CSV文件。