无法将excel文件转换为csv

欢迎

我有一个很大的excel文件，几乎有48600行和5000列。 我的文件中的数据如下所示：

我试图转换这个文件为csv SAVE AS – > CSV，但没有成功。

我怎样才能将这个文件转换成csv？

谢谢

Answer 1

我认为上面的解决scheme应该为你工作，但是这里是一个你可能尝试的替代方法。 我testing了约25000行和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 

Answer 2

方法1：

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

方法2：将Excel文件导入MS Access。 然后select文件 – >导出 – >作为TXT文件。 在文件名字段中，在文件名后面input“.csv”，然后点击“全部导出”。