<span style="font-family: 'Microsoft YaHei', 'Helvetica Neue', SimSun; background-color: rgb(231, 238, 244);">本文为Excel VBA代码,可以实现将某一文件夹内的Excel文件(xls或者xlsx)另存为“逗号分隔的csv文件”。</span>
使用条件:
1. Windows系统;
2. 已安装 MS 2007或以上版本
本文测试环境:
Win7 sp1 64bit 英文系统+MS2013
1.首先新建一个Excel文件,按Alt+F11,打开VBA编辑器,选择Insert-Module, 在编辑器中输入如下代码:
其中,fPath 定义了存放Excel文件的路径,sPath定义了csv文件的输出位置,根据个人情况进行修改,不要忘记路径最后的左斜线。
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\ms-off1\Desktop\temp\"
sPath = "C:\Users\ms-off1\Desktop\temp\"
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
2.点击VBA编辑器中的Run--> Run Sub/User Form,或者按下F5,开始执行程序。