Возможно ли перегнать данные из текстового файла по ячейкам в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы