Как открыть файла CSV без разделения данных на столбцы?

Question

[Olesya_190]

Добрый день, уважаемые эксперты.

Проблема и решила обратиться к Вам за помощью.

Есть файл с данными в .CSV (программа в этом формате выгружает).
Есть скрипт .VBS для переноса данных из в CSV в шаблон MS Excel (.XLT).

Весь перенос выполняется примерно таким видом:

XLCSV.ActiveSheet.range("A21").Copy
XLSheet.ActiveSheet.Cells(13,8).PasteSpecial(8)

Для открытия файлов с исходниками и шаблона использую это:

Dim XLCSV, XLSheet
Set XLCSV = CreateObject("Excel.Application")
Set XLSheet = CreateObject("Excel.Application")
XLCSV.Application.Workbooks.Open "c:\Export\Export.csv"
XLSheet.Application.Workbooks.Open "c:\Export\COMPASSSurveyReport.xlt"
XLSheet.Visible=True

Проблема в том, что есть данные вида:


После отработки скрипта они выглядят так в .CSV (если сделать XLCSV.Visible=True):


А в конечном файле в MS Excel:


Вопрос в том, как предотвратить разделение на столбцы с использованием запятой или других символов?
Так как если просто двойным кликом открыть CSV, то данные на столбцы не делятся:

То есть при таком раскладе, я могла бы использовать TextToColumns для контролируемого разделения.

Разделитель между выгружаемыми значениями я могу изменять и задать любой.

Если есть другие идеи, то буду рада их услышать.

Answer 1

[Olesya_190]

Нашла способ. Выгружаю данные в .TXT и открываю его тем же методом:

XLCSV.Application.Workbooks.Open "c:\Export\Export.txt"