excel - 无法将excel文件转换为csv

Question

问候

我有一个包含近 48600 行和 5000 列的大 excel 文件。我文件中的数据如下所示：

我正在尝试使用SAVE AS-->CSV将此文件转换为 csv但没有成功。

如何将此文件转换为 csv？

谢谢

Answer 1

方法一：

如果您有多个选项卡，它将不起作用。删除除您要保存的选项卡以外的所有选项卡。如果这些选项卡上有数据，则需要将它们移动到它们自己的文件中。CSV 仅支持工作簿中的一个工作表选项卡。

方法 2：将 Excel 文件导入 MS Access。然后选择文件 -> 导出 -> 作为 TXT 文件。在文件名字段中，在文件名后输入“.csv”，然后单击“全部导出”。

Answer 2

我认为上面的解决方案应该适合您，但是您可以尝试另一种方法。我在一个约 25,000 行和约 1200 列的文件上对其进行了测试。

Public Sub ExportToCSV()
    Dim fso As Object 'Scripting.FileSystemObject
    Dim fileName As String
    Dim file As Object 'Scripting.File
    Dim rng As Range
    Dim r As Range
    Dim tmp As Variant

    '## Modify this line to the destination path & filename of your exported file
    fileName = "C:\users\david_zemens\desktop\exported_file.csv"

    'Define the range of your worksheet
    Set rng = ActiveSheet.UsedRange
    'Create fileSystemObject & file output
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.CreateTextFile(fileName)

    'Write each row to the file as a new line
    For Each r In rng.Rows
        tmp = Application.Transpose(Application.Transpose(r.Value))
        file.WriteLine Join(tmp, ",")
    Next
End Sub