Эта строка ничего не делает:
' Append empty strings on front and back (i.e., do nothing). '
data = "" & data & ""
Попробуйте:
' Append double quotes on front and back. '
data = """" & data & """"
Помогает ли это?
ОБНОВЛЕНИЕ : Я мог бы быть неосновным здесь, но я думаю, что проблема может просто состоять в том, что у вас недостаточно детального контроля над , что делает Excel, когда он сохраняет файл CSV .Насколько я помню, по умолчанию он не помещает кавычки вокруг значений, если они не нужны для определения отдельной ячейки, которая может содержать данные, которые в противном случае испортили бы формат CSV.Например, он помещает кавычки вокруг ячеек с текстовыми значениями, которые включают запятые.
Предположительно, он также преобразует одинарные кавычки в текстовые значения с двойными кавычками в файле CSV и заключает текстовые значения, содержащие кавычки, ну, в общем, в кавычкиотметки.
Самый очевидный способ обойти это, для меня, было бы просто сохранить данные на диск самостоятельно .Таким образом, вы можете вручную ставить кавычки вокруг каждой ячейки и не беспокоиться о том, что voo doo Excel может автоматически выполнять при вызове SaveAs.
Очевидно, что это раздражает, потому что это больше работы.Но это единственная идея, которая приходит мне в голову на данный момент.В любом случае, не должно быть , что много работы.