Страницы: 1
RSS
Октрыть файл csv с разделителями ";"
 
Здравствуйте! Столкнулся с проблемой открытия файла формата csv с разделителями запятыми посредством кода vba.

Почитал на форуме советы и готовые решения, использовал код The_Prist из http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=37958

Код выглядит след образом
Код
Workbooks.Open MyFolder & MyFiles, True 
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ 
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _ 
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _ 
Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _ 
Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:=True

Во вложении пример файла csv. В файле в одном из полей должна быть указана через запятую торговая точка и ее адрес.
Код
W07;R16;НасПункт1;Супервайзер1;Торговый1;Клиент1 Ю. Ю.;0;2456335;Магазин, Комунальная, б/н;Q07;06.07.2016;УТДАГ003267;3,08612E+12;889692;товар1;-2;-134,72

При открытии файла вся строка файла csv после запятой теряется.
Пробовал переключить Comma:=True, а также указать Array(9, 2), результат четный

Что идет не так?
 
У меня просто без всяких кодов открылось как надо.
Попробуйте просто без выкрутасов
Код
Workbooks.Open MyFolder & MyFiles, local:=True
Изменено: Hugo - 12.07.2016 21:42:27
 
Подтверждаю. Открылось сразу как надо. 2010 вин7 - 64
 
-
Изменено: Shnr - 24.07.2023 20:09:29
 
Ключевое local:=True
Если сработает на Вашей системе.
Страницы: 1
Наверх