有没有软件能批量地把xls文件excel格式地，一次都转为csv格式的文件

Question

如题所述

Answer 1

excel本身就可以实现批量XLS转换为CSV格式，写一段VBS代码运行即可。

软件工具：excel 2013

1、将需要转换的Excel文件全部整理到一个文件夹中。新建一个保存转换后的文件夹。

2、新建一个Excel工作簿，点击菜单栏上的“开发工具”；功能区下点击打开Visual Basic。

3、如果菜单栏上没有开发工具，则点击文件，弹出菜单选择选项。在EXCEL选项中，点击自定义功能区，右边勾选开发工具，然后点击确定。

4、在左侧工程资源管理器中双击Sheet1 (Sheet1)打开代码窗口。工程资源管理器如果没有显示，则按ctrl+R就可以显示。

5、输入以下代码，其中【fPath =“” 】为文件来源路径；【sPath = ""】为保存路径；路径需要以\结尾。

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

6、写好代码后开始运行。点击菜单栏上的运行，选择运行子过程/用户窗体。

7、点击运行。

8、开始进入转换过程，过程中会多个EXCEL窗体自动显示再自动关闭，完成后打开设定的保存文件夹，就可以看到转换后的CSV文件。

注意事项：

1、fPath = "\"、   sPath = "\"需要以\结速。

2、该程序为每个工作表保存为一个CSV文件。如果一个工作簿中有多个工作表，则会生成多个CVS文件。

Answer 2

如果是单个文件需要转换，那直接另存为，然后选择CSV格式就可以了，如果是需要批量转换的话，建议使用XLS2CSV，
转换成CSV通常是为了导入数据库用的，我更习惯于把所有的数据集中到一起，放在一个文件内，然后一起导入，如果是需要分开导入的，就分成2个或者3个文件，文件量不会太多，不然导入的手也会让人头脑发晕。
希望能帮到你。本回答被提问者采纳

Answer 3

有很多软件可以用，如XLS2CSV Converter。