无法将excel文件转换为csv

Question

问候语

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

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

如何将此文件转换为csv？

感谢

Answer 1

方法1：

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

方法2：将Excel文件导入MS Access。然后选择文件 - ＆gt;出口 - ＆gt;作为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