Здравствуйте! Столкнулся с проблемой открытия файла формата csv с разделителями запятыми посредством кода vba.
Почитал на форуме советы и готовые решения, использовал кодThe_Prist из http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=37958
Код выглядит след образом
Во вложении пример файла csv. В файле в одном из полей должна быть указана через запятую торговая точка и ее адрес.
При открытии файла вся строка файла csv после запятой теряется.
Пробовал переключить Comma:=True, а также указать Array(9, 2), результат четный
Что идет не так?
Почитал на форуме советы и готовые решения, использовал код
Код выглядит след образом
Код |
---|
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), результат четный
Что идет не так?