@Olesya_190

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

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

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

Есть файл с данными в .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


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

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

А в конечном файле в MS Excel:
60b61f95c3b06330127539.jpeg

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

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

Если есть другие идеи, то буду рада их услышать.
  • Вопрос задан
  • 96 просмотров
Пригласить эксперта
Ответы на вопрос 1
@Olesya_190 Автор вопроса
Нашла способ. Выгружаю данные в .TXT и открываю его тем же методом:

XLCSV.Application.Workbooks.Open "c:\Export\Export.txt"
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы