excel - エクセルファイルをcsvに変換できません

Question

挨拶

ほぼ 48600 行と 5000 列の大きな Excel ファイルがあります。ファイル内のデータは次のようになります。

このファイルをSAVE AS-->CSVで csv に変換しようとしていますが、成功しません。

このファイルを csv に変換するにはどうすればよいですか?

ありがとう

Answer 1

方法 1:

複数のタブがある場合は機能しません。保存したいタブ以外のすべてのタブを削除します。これらのタブにデータがある場合は、それらを独自のファイルに移動する必要があります。CSV は、ブック内の 1 つのワークシート タブのみをサポートします。

方法 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