Страницы: 1
RSS
Импорт данных из текста
 
Здравствуйте ;)  знатоки.

Столкнулся с задачей имею выгрузку из lotus в не совсем перевариваемом виде.
Все данные хоть и разделены но расположены каждая позиции на следующей строке из за чего при импорте образуются только 2 столбца и каша...

Вообщем вопрос как сказать Exselю переходить на другую строку только после символа \

столбцы разделитель ~

пример данных ниже

\Декларации о соответствии продукции
 
~  Россия, Краснодарский край, Туапсинский район, 352844, п. Джубга, ул. Колхозная, 82
~  ПИРОЖНЫЕ И РУЛЕТЫ В АССОРТИМЕНТЕ. ПИРОЖНЫЕ БИСКВИТНЫЕ СО СЛИВОЧНЫМ КРЕМОМ: "РОМБИКИ", "ЁЖИК" (код ОКП 913511); ПИРОЖНОЕ БИСКВИТНЫЕ: "ЁЖИК" С БЕЛКОВЫМ КРЕМОМ, РУЛЕТ С ФРУКТОВОЙ НАЧИНКОЙ, РУЛЕТ С ШОКОЛАДНОЙ НАЧИНКОЙ (код ОКП 913519); ПИРОЖНОЕ ПЕСОЧНОЕ "КОЛЕЧКИ" С АРАХИСОМ, ПИРОЖНОЕ ПЕСОЧНОЕ "ТВОРОЖНОЕ" (код ОКП 913529); ПИРОЖНОЕ ЗАВАРНОЕ СО СЛИВОЧНЫМ КРЕМОМ (код ОКП 913541), ПИРОЖНОЕ ЗАВАРНОЕ С ЗАВАРНЫМ КРЕМОМ, ПИРОЖНОЕ ЗАВАРНОЕ С БЕЛКОВЫМ КРЕМОМ (код ОКП 913549); ПИРОЖНОЕ "НАПОЛЕОН" СО СЛИВОЧНЫМ КРЕМОМ, ПИРОЖНОЕ "ТРУБОЧКА СЛОЁНАЯ" СО СЛИВОЧНЫМ КРЕМОМ (код ОКП 913551), ПИРОЖНОЕ "НАПОЛЕОН" С БЕЛКОВЫМ КРЕМОМ, ПИРОЖНОЕ "ТРУБОЧКА СЛОЁНАЯ" С БЕЛКОВЫМ КРЕМОМ (код ОКП 913559); ПИРОЖНОЕ "МИНДАЛЬНОЕ" (код ОКП 913569); ПИРОЖНОЕ "КОРЗИНОЧКА" С ФРУКТОВОЙ НАЧИНКОЙ (код ОКП 913575), ПИРОЖНОЕ "КОРЗИНОЧКА" С БЕЛКОВЫМ КРЕМОМ (код ОКП 913579); ПИРОЖНОЕ "КАРТОШКА"(код ОКП 913591); ПИРОЖНОЕ МЕДОВОЕ "МИКАДО" СО СЛИВОЧНЫМ КРЕМОМ, ПИРОЖНОЕ МЕДОВОЕ "МИКАДО" СО СГУЩЁННЫМ МОЛОКОМ (код ОКП 913599) ПИРОЖНОЕ БИСКВИТНОЕ СО СГУЩЁНЫМ МОЛОКОМ "ВЕСЕННЕЕ" (код ОКП 913519) ПИРОЖНЫЕ ПЕСОЧНЫЕ: "КОЛЬЦО", "КОРЖИК ПРАЗДНИЧНЫЙ", "КОЛЬЦО НА СОРБИТЕ", "ЯНТАРНОЕ", "ДЕТСКОЕ", ПЕСОЧНОЕ С СУФЛЕ "СНЕЖОК", "ЛЮБИМОЕ" С МОЛОЧНОЙ НАЧИНКОЙ, "ЧАРОДЕЙКА" С МОЛОЧНОЙ НАЧИНКОЙ, "ПЕСОЧНО-ЖЕЛЕЙНОЕ", "ПЕСОЧНОЕ" ГЛАЗИРОВАННОЕ ШОКОЛАДНОЙ ГЛАЗУРЬЮ, "РЫЖИК"С МОЛОЧНО-ФРУКТОВОЙ НАЧИНКОЙ, "ФАНТАЗИЯ", "ЮЖНОЕ" (код ОКП 913520)
~  913034

 
~  по ТУ 9130-001-45031498-02
~ СанПиН 2.3.2.1078-01 приложение 1 п.п. 1.5.5., 1.5.5.1., 1.5.5.5.; ГОСТ Р 51074-2003 р.3, 4 п. 4.8.
~
~   АЙРАПЕТЯН АРМАН ПЕТИКОВИЧ, пекарня "Джубга хлеб"
~  Россия, Краснодарский край, Туапсинский район, 352844, п. Джубга, ул. Ореховая, 7
~  
~
~   протоколов испытаний № 0904, № 0905 от 15.10.2012 ИЛ ООО ИТЦ "Качество", рег. № РОСС RU.0001.21 АЮ 17 до 10.05.2016.
~   26.11.2012 00:00:00
~   27.11.2015 00:00:00
~   Айрапетян А.П.
~   ОРГАН ПО СЕРТИФИКАЦИИ ПРОДУКЦИИ И УСЛУГ ООО "ИНЖЕНЕРНО-ТЕХНИЧЕСКИЙ ЦЕНТР "КАЧЕСТВО"
~  г. Сочи,ул. Ворошиловская, 8, тел. (8622) 41-22-81, 41-23-30, факс (8622) 41-23-30
~   РОСС RU.0001.10АЕ15
~  Е.В. Кулиахметова
~  27.11.2012 01:00:00
~   РОСС RU.АЕ15.Д04142
~   913034
~   -
~  0
~   -
~   CN=serverall/O=kachestvo,[DOC_READ],CN=Администратор13/OU=Сочинский ЦСМ/O=ГОССТАНДАРТ
~   7.4
~   Айрапетяна Армана Петиковича
~  
~   Т.Ю.Самарская
~  
~   1
~  
~   3
c~   -
~   Л.Е.Илюшкина
~  
~  
~  
~  АЙРАПЕТЯН АРМАН ПЕТИКОВИЧ, пекарня "Джубга хлеб"
~    Зарегистрирован: Инспекцией МНС России по городу Туапсе и Туапсинскому району 09.12.2004 за ОГРН ИП 304236534400024; ИНН 235500214501
~   Россия, Краснодарский край, Туапсинский район, 352844, п. Джубга, ул. Ореховая, 7
s~  
~
~
~  
~   03 255 554
~   5
~  
~  
~
~   235500214501
~   1,2
~   408
~   26.11.2012 01:00:00
~  03 255 554
~  
~  
~  
~   235500214501
~   5
~   Система сертификации пищевых продуктов и продовольственного сырья
~    РОСС RU.0001.01ПО00
~   6200
~   33F7D1C0542E397F44257A99002AEBDB
~
~   CP20130306010021
~  
~  
~  
~  0
~   CN=Администратор13/OU=Сочинский ЦСМ/O=ГОССТАНДАРТ
~   18.12.2012 01:39:49
 
А в файле это никак нельзя было выложить?
Я сам - дурнее всякого примера! ...
 
Извините в попыхах ((... это все советы на сегодня ((
 
Воть кусочек в файле
 
Тут нужен макрос:
http://excelvba.ru/code/csv2excel

Пример использования: (указаны разделители строк и столбцов)
Код
1
2
3
Sub ЗагрузитьВExcelВыгрузкуИзLotus()
    CSV2Excel "a", , , , "*.txt", "~", vbNewLine & "\"
End Sub
 
Ураааа... спасибо ....  проблемму решил ... с макросами еще не знакомы ((
 
Вариант(раз уж писал):

Код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub www()
    Dim a, i&, sh As Worksheet, c As Range, n
    Application.ScreenUpdating = 0
    On Error Resume Next
    Workbooks.OpenText Filename:=ThisWorkbook.Path & "\зд.txt", Origin:=65001, _
    DataType:=xlDelimited, TextQualifier:=xlNone, Tab:=True
    For Each c In ActiveSheet.UsedRange.Cells
        a = a & " " & Replace(Replace(c.Value, "\", vbLf), "~", "|")
    Next
    ActiveWorkbook.Close 0
    a = Split(a, vbLf): Set sh = ActiveSheet
    sh.[a1].Resize(UBound(a)) = a
    For i = 0 To UBound(a) + 1
        n = Split(a(i), "|")
        sh.Cells(i, 1).Resize(, UBound(n) + 1) = n
    Next
    Application.ScreenUpdating = -1
End Sub
Я сам - дурнее всякого примера! ...
 
Хм а это что делает и как это использовать...  в первом хоть понятно ... почти на русском))
 
:D  вот такие они руны VBA
Лень двигатель прогресса, доказано!!!
Страницы: 1
Читают тему
Наверх
Loading...