Импорт из текстового файла

[Lucky Jo]

Научите, пожалуйста, кто умеет, как с помощью VB-макроса автоматически вставлять данные из файла .TXT в файл .XLS из нужного места текстового файла в нужную ячейку файла Excel.

[RayShade]

Типа так:

Код: Выделить всё

open "c:\1.txt" for input as #1
line input #1,st
sheets(1).cells(1,1).value=st



[Lucky Jo]

Спасибо, сейчас попробую!

[Lucky Jo]

Написал такой вот макрос, с целью закидывания отдельной строки текстового файла в отдельную ячейку листа, а он при запуске подвешивает комп. Что не так?

n = 0
Open "C:\NNN.txt" For Input As #1
Do While Not EOF(1) 'Цикл выясняет кол-во строк в файле
n = n + 1
Loop

Do While Not EOF(1)
Line Input #1, st
For i = 1 To n
Sheets(1).Cells(i, 1).Value = st
Next
Loop
Close

[RayShade]

То, что у тебя выясняет кол-во строк, будет ввыполняться бесконечно Потому что надо вставить в его тело что то типа line input #1,st

[Lucky Jo]

Спасибо за ответ!
Честно говоря не совсем понял почему бесконечно...
Но задачу решил (и решается то проще, сам че то замудрил)

Код: Выделить всё

n = 0
Open "C:\NNN.txt" For Input As #1
  Do While Not EOF(1)
    n = n + 1
    Line Input #1, st
    Sheets(1).Cells(n, 1).Value = st
  Loop
Close


Но исходная задача сложнее. В одной строке текстового файла находится несколько значений, разделенных точкой с запятой; каждое из этих значений нужно вставить в отдельную ячейку .XLS-файла.
Подскажите, пожалуйста, как это сделать?

[RayShade]

Это что, CSV? Тогда его можно просто заимпортить встроенными средствами Excel. Типа workbooks.open

[Lucky Jo]

А что такое CSV?

В общем вся задача такова: есть некая DOS-прога, в которую ежедневно заносятся данные.
Насколько я понимаю все это хозяйство, программа связана с базой данных BTRIEVE, автор этой давней программы оставил еще некий экзешничек, который все данные за месяц выгружает в текстовый файл. Данные в программу вносятся несколькими людьми из разных мест, так что получать их сразу в Excel не представляется возможности. Мне нужно сотворить отчет в Excel.
Может быть, конечно, есть возможность импортировать данные непосредственно из БД, но для меня это вообще дремучий лес.

[Sirik]

Знаю, что звучит глупо, но можно так: загрузить файл и скопировать данные в clipboard, потом вставить средством Ctrl+V...

Я написал такую прогу, вот посмотри http://bbs.vbstreets.ru/viewtopic.php?t=8320&highlight=grid

Может что-то и поможет