не удалось преобразовать файл excel в csv

Question

Приветствие

У меня есть большой файл Excel с почти 48600 строк и 5000 столбцов. Данные в моем файле выглядеть следующим образом:

Я пытаюсь преобразовать этот файл в формате CSV с SAVE AS -> CSV, но не успех.

Как я могу преобразовать этот файл в csv?

благодаря

Answer 1

Я думаю, что решение выше должно работать на вас, однако вот альтернативный метод, который вы можете попробовать. Я тестировал его на файл размером ~ 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 

Answer 2

Метод 1:

Это не будет работать, если у вас есть несколько вкладок. Удалите все вкладки, кроме тех, которые вы хотите сохранить. Если у вас есть данные на этих вкладках, вам нужно переместить их в свои собственные файлы. CSV поддерживает только одну вкладку рабочего листа в рабочей книге.

Способ 2. Импортируйте файл Excel в MS Access. Затем выберите Файл -> Экспорт -> как TXT-файл. В поле имени файла введите «.csv» после имени файла и нажмите «Экспортировать все».