批量转换Excel转CSV文件

本文为Excel VBA代码，可以实现将某一文件夹内的Excel文件（xls或者xlsx）另存为“逗号分隔的csv文件”。
使用条件：
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\m