Excel добавляет двойные кавычки при экспорте csv [дубликат]

кавычки являются стандартными для CSV, когда поля включают пробелы (как в вашем случае).

обычно, вы бы написать все ваши CSV с кавычками (и избежать кавычки, которые вы хотите сохранить с двумя кавычками ""):

"field 1", "field 2", "field with ""escaped"" quotes"

вот полное объяснение, включая конкретные ссылки на обработку Excel: http://www.csvreader.com/csv_format.php

но это может быть трудно получить то, что вы хотите, если вы не контролируете экспорт Excel, и вы не управление программой импорта. Возможно, вам придется настроить текстовый файл в середине процесса.

это хорошо документировано и является ожидаемым поведением. Тем не менее, обойти это кажется сложным, и я могу думать только о обходных путях.

работы по-видимому, откройте экспортированный файл и найти и заменить кавычки ни с чем (убрать кавычки).

Если вам нужно больше контроля (например, вы можете кавычки в некоторых случаях), то вы должны сделать это вручную, или взломать его-добавить уникальное ключевое слово, где вы хотите, чтобы " существовать (например не используя " , но вместо qwertquote (поскольку эта строка будет уникальной, вы можете найти и заменить ее кавычкой) или напишите служебное приложение, чтобы сделать это за вас, так как у вас есть опыт программирования.

есть какой-то код из http://www.mcgimpsey.com/excel/textfiles.html#csvwithquotes

текстовые файлы, без модификации

этот макрос будет выводить текстовый файл без окружающих ячеек, которые имеют запятые в кавычках знаки, или двойные кавычки в тексте:

Public Sub TextNoModification()
    Const DELIMITER As String = "," 'or "|", vbTab, etc. 
    Dim myRecord As Range
    Dim myField As Range
    Dim nFileNum As Long
    Dim sOut As String

    nFileNum = FreeFile
    Open "Test.txt" For Output As #nFileNum
    For Each myRecord In Range("A1:A" & _
            Range("A" & Rows.Count).End(xlUp).Row)
        With myRecord
            For Each myField In Range(.Cells(1), _
                    Cells(.Row, Columns.Count).End(xlToLeft))
                sOut = sOut & DELIMITER & myField.Text
            Next myField
            Print #nFileNum, Mid(sOut, 2)
            sOut = Empty
        End With
    Next myRecord
    Close #nFileNum
End Sub