Возможно ли построчно записывать данные в excel vbs?

[Dima_com]

Здравствуйте!
Столкнулся с такой проблемой:
на входе имею построчно считываемый фаил.
Строку с разделителями табуляцией
на выходе необходимо лист книги ексел.
Записывается это добро в определенные заранее шаблонный документ ексель так что просто открыть с помощью к сожалению не подойдет.
Заранее, всем, спасибо за помощь!

[EducatedFool]

А в чем проблема?
Создавайте программно обычный текстовый (CSV) файл, с разделителем «точка с запятой»
Только расширение текстовому файлу сделайте XLS

Несмотря на то, что файл останется текстовым (CSV), Excel его поймёт как родной XLS, и откроет без всяких предупреждений о несоответствующем формате файла.

[Dima_com]

Спасибо за ответ но я хочу открыть его в конкретной книге где у меня уже есть определенные данные, эти я хочу просто поместить на 1 из листов.
Если делать как вы говорите он откроет новую книгу.

[Hugo121]

Читаете текст в массив, создаёте соответствующий массив для результата, перекладываете данные из одного массива в другой разбивая по полям, выгружаете результат в свой шаблон.
Всё можно делать кодом vbs.

[Dima_com]

Спасибо большое! Но это то о чем я говорил сразу это долго выполняется. Нашел лучший способ может кому то понадобиться.
Пишу все в первый столбик первую ячейку а потом бью по разделителю.

PHP код:

Dim rng: Set rng = WScript.CreateObject("Excel.Application")
 rng.Columns("A").TextToColumns  rng.Range("A1"), xlDelimited,,,,,,,True,vbTab 


[Hugo121]

Долго? Не хотите показать этот долгий код?

[Dima_com]

Ну я уже удалил но по памяти могу сказать
Входящая строка
readLine = знач-таб-знач-таб-знач-таб-знач-таб-знач-таб-знач
col = Split(readLine, vbTab)
For x =0 to UBound (col)
excApp.Cells(y,x).Value = col
Next
x=x+1
Ну как то так но я уже закрыл для себя этот вопрос, у меня сейчас новая беда)).
http://www.programmersforum.ru/showthread.php?t=246666

[Hugo121]

Ну ясно, так и думал.
Нужно было как я выше написал - читать в массив, создать массив, переложить в массив, и лишь затем [a1].resize(x,y).value=arr

[Dima_com]

Спасибо за помощь и совет, в следующий раз попробую!