Возможно ли перегнать данные из текстового файла по ячейкам в Excel? - VB
Формулировка задачи:
Возможно ли перегнать данные из TXT файла по ячейкам в Excel?
Структура TXT - это по сути база данных фирм, выглядет она вот как:
~ 01
~ 1'ERGONOMIC DESIGN'
~ 2101000, Россия, г. Москва
~ 3(095)255-34-84, 728-84-74, 795-18-95, 253-56-08
~ 6(095)255-34-84
~ removed@mail.ru, removed@mail.ru
~ 11http://www.ergonomic.ru
~ 9столы компьютерные эргономичные.
~ 10Услуги: проектирование эргономичной мебели. Отдел 'Эргономик Дизайн' - 'МДО ЭЛИТ': 123022, Москва, ул. Красная Пресня, влад. 24.
~ 02
~ 1'АТУМ ДИЗАЙН ГРУПП'
~ 2101000, Россия, г. Москва
~ 3(095)264-01-63
~ 6(095)264-01-63
~ 9мебель высокохудожественная; мебель эксклюзивная.
~ 10Проектирование и изготовление мебели, витражей, люстр и бра.
~ и тд...
А мне надо, чтобы данные выстраивались в строчку поячейка в Excel.
Логически мне представляется это возможным, а вот практически, за не имением особых навыков программирования, не получается...
Очень буду благодарен, если мне распишут и объяснят...
Заранее благодарен!
Решение задачи: «Возможно ли перегнать данные из текстового файла по ячейкам в Excel?»
textual
Листинг программы
Private Sub Command1_Click() Dim ret As String Dim n as integer Dim objExcel As Excel.Application Set objExcel = New Excel.Application objExcel.Workbooks.Add ('C: est.xls') 'excel sTemp = 'C: est.txt' 'text FileHandle% = FreeFile ret = '' Open sTemp For Input As #FileHandle% While Not EOF(1) Line Input #FileHandle%, emp If InStr(emp, '~') Then ret = ret & emp End If Wend Close #1 n = 0 VarFull = Split(ret, '~') cnt = UBound(VarFull) For rec = 0 To cnt n = n + 1 ret = VarFull(rec) With objExcel.ActiveSheet objExcel.Cells(n, 1) = ret End With Next rec objExcel.Visible = True 'Set objExcel = Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д