Экспорт в CSV разделитель табулятор

[strannick]

Добрый день, уважаемые форумчане!
Столкнулся с такой пока проблемой. Необходимо экспортировать данные в CSV файл с разделителем табулятор. При автоматическом сохранении в формате CSVMSDOS получаю нужный файл (макросом FileFormat:=xlCSVMSDOS) получаю нужный файл, но с проблемой кодировки кирилицы. При автоматическом сохранении в формате xlCSVMac получаю файл с разделителями запятыми в отличие от ручного сохранения. Просмотрел много тем по этому вопросу, но так и не понял, что же необходимо делать: либо экспортировать как-то по другому (не пойму как), либо дополнительно перекодировать? Чего-то запутался. Подскажите, где решение.
Заранее Спасибо!!!

[Скрипт]

strannick, я так понял, что особенностью формата "csv" как раз и является то, что данные сохраняются через запятую ("csv" от англ. Comma-Separated Values — значения, разделённые запятыми).

Получается, что вы хотите сделать какое-то нелогичное действие. Значит вам нужно идти обходным путём и что-то придумать дополнительно. Готовых решений нет для решений вашей задачи.

[strannick]

Видно я не совсем правильно описал. На выходе необходимо получить файл CSV, текст в которым при простом открывании в Excel отображается разбитым по столбцам. Есть такой образец. В свойствах указано, что это текстовый файл с разделителями ",". Если сохранить аналогичную таблицу Excel в файл CSV с разделителями ",", а потом открыть опять в Excel, то текст идет построчно. Нужный эффект дает сохранение в формате CSVMSDOS, по появляется проблема с кодировкой. Я уже сам запутался в форматах, перечитал массу тем, но объяснения не нашел. Либо что-то не то делаю, либо ...

[Скрипт]

strannick, вот этот файл у вас правильно открывается в программе "Excel"?

[Hugo121]

Я такое делал так: открывал на запись новый текстовый файл, писал в него построчно данные с разделителем vbtab, сохранял с расширением xls.
В общем конечно всё зависит от задачи - мне так было удобнее и проще копипастить в другой xls результат анализа (скриптом vbs) другого огромного текстового отчёта.
Получаем небольшой файл, который можно смотреть блокнотом или листером ТС, а можно открыть даблкликом в Экселе и вручную выбрать что нужно в другой файл.

[strannick]

Сообщение от Скрипт

strannick, вот этот файл у вас правильно открывается в программе "Excel"?

это ДА, единички в отдельных столбцах

Hugo121 сохранение в формате txt с разделителями табулятор при обратном открывании в Excel тоже дает нужный результат. Пробовал переименовать в csv - не пролезло

[Hugo121]

Сообщение от strannick

При автоматическом сохранении в формате CSVMSDOS получаю нужный файл (макросом FileFormat:=xlCSVMSDOS) получаю нужный файл.

- сомневаюсь...
Я получаю с разделителем ";".
Я думаю, что csv с разделителем vbtab сделать конечно можно, но открывать его придётся через импорт внешних данных -> из текста.
И в общем это будет не csv, а текст с таким расширением.

[Скрипт]

С помощью макроса сделать файл, как в сообщении #4, можно вот так (часть кода получена с помощью макрорекордера):

Sub Макрос4()
    
    'Local - позволяет добавлять в файлы точку с запятой.
    ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\Книга1.csv", _
        FileFormat:=xlCSV, Local:=True
        
End Sub

[strannick]

Чудеса какие-то. Добавку Local:=True опробовал еще до создания темы (на каком-то родственном форуме прочитал). Тогда не сработало. Сейчас да. Так что порядок. Спасибо!!!
Есть один нюанс: срабатывает, если после этого Workbook.Close False.

[Hugo121]

Согласитесь, что в решении нет и следа от табуляторов...