предлагаю еще раз внимательно посмотреть на постановку задачи.
В ней прямо сказано - каждое значение находится в одной строке.

Прочитал. 

Так что данные нужно всё-таки транспонировать, причём разделителем результирующих строк служит пустая строка. И "заказанный" формат - XLS, а не текстовый с разделителем

Сформировать CSV предложил Dmitrii, я лишь предложил реализацию(благо код там копеешный, а у меня было свободное время). Потом, поняв уровень спрашивающего уже доделал вариант с экселем(Тут конечно код не идиален, делался полунаучным методом. Но ведь выполняет поставленную задачу )

Лаконичнее и правильнее было бы обойтись без промежуточных файлов, а формировать отчёт сразу. Если очёты требуется дополнять(возникло такое подозрение по высказываниям Pitkin-а), то я бы всё-таки перешел к хранению в БД. Там гораздо проще манипулировать данными, да и встроенные механизмы получения отчётов в разных форматах тоже присутствуют(про экспресс не уверен, но в MSDE - 100%).

В целом согласен(про пользу разнообразных решений). Что касается "трюков", то тут я своё отношение написал. Их полезно знать, их иногда можно использовать. Но нужно также знать из-за чего эти трюки работают - чтобы понять почему вдруг трюк перестал работать на другом компьютере Думаю что многие тут, на форуме, представляют уровень типового пользователя. Так что чем меньше будет в конечном результате зависеть от опыта работы "оператора"(того к кому попадёт трюковый отчёт), тем надёжнее решение.

...
Slav, если в первом моём примере скрипта(где вывод идёт в текстовый файл) поменять расширение на xls, то на выходе будет текстовый файл("файл1"):

142459875;1635;180;20110426
142460066;387;180;20110426
142460100;395;207;20110426
142459875;1635;180;20110426
142460066;387;180;20110426
142460100;395;207;20110426

...
Если открыть экселем текстовый файл "файл1", то результат будет отнюдь не тот что ожидался - с данными будет только первая колонка, в каждой ячейки которой помещена строка. Мне кажется или это далеко от задачи описанной в первом посте?
...

BeS Yara,

предлагаю еще раз внимательно посмотреть на постановку задачи.
В ней прямо сказано - каждое значение находится в одной строке.

Это Вы предлагаете преобразовать входные данные в формат csv - как раз для решения проблемы "одной строки".
А затем применить трюк с заменой на расширение xls.
Не нужно этого делать - так и читайте с расширением csv.

Я не имею ничего против Excell.Application.
Но давайте оценим разные решения с точки зрения лаконичности - ведь все гениальное просто.

Имея txt-файл с конкретной структурой с одной стороны предлагается сделать еще как минимум 2 файла: скрипт преобразования в csv и на выходе сам csv.
Второе решение - скрипт с Excell.Application, который читает данные - пишет в xls-формате.

А третье решение - назовем его "трюковое" - требует всего-то сменить расширение на xls.
И еще - давайте уж рассмотрим его до конца - небольшую макру Auto_Open в самом Excel, которая переставит значения из исходного формата в строку при открытии файла.
И которая может быть создана пользователем начального уровня в самом Excel путем "записать макро".

Я не хочу давать оценку - какое решение лучше.
Пусть каждый выберет то, которое лично ему больше нравится.
Или больше подходит в данной конкретной ситуации.

Полюбому - лучше всегда знать как можно больше вариантов, в том числе и "трюковых".
Как Вы считаете?

Удачи!

Slav, если в первом моём примере скрипта(где вывод идёт в текстовый файл) поменять расширение на xls, то на выходе будет текстовый файл("файл1"):

Экселевский файл с этими-же данными будет выглядеть примерно так(кусок, все 5к приводить не буду):

Если открыть экселем текстовый файл "файл1", то результат будет отнюдь не тот что ожидался - с данными будет только первая колонка, в каждой ячейки которой помещена строка. Мне кажется или это далеко от задачи описанной в первом посте?

Не говоря уже о том что всё зависит от работы(и, кстати, наличия) конвертера текстовых файлов в конкретной версии офиса. Не говоря уже о том, что ОпенОфис при открытии такого "экселевского" файла честно откроет окно импорта из текстового файла(впрочем разделители он распознал вполне корректно).

Я считаю что подобный подход в корне не верен - расширение файла должно соответствовать внутреннему формату. Одну из причин я уже писал. Предположим Ваша организация передавала смежникам экселевские отчёты, которые они обрабатывали автоматически. Теперь Вы решили процесс автоматизировать и скриптом генерируете "экселевские"(а на самом деле текстовые) отчёты. Так вот, скрипт ориентированный на работу с настоящим форматом XLS псевдо экселевские файлы не поймёт(я с этим уже сталкивался). Для начала, пройдёт некоторое время прежде чем обнаружится что данные не получаются. Потом одной из сторон прийдётся переписывать свои скрипты. Кто станет крайнем в потере оперативности из-за смены формата данных?

Если уж нет желания использовать Excell.Application(или его нет - например на сервере не установлен офис), то можно установить MSDE, и все данные сливать туда. А уже с MSDE получить экселевские отчёты элементарно - DTS Вам в помощь

...
Просто поменял расширение, txt на xls и о чудо, формирует xls файл.
...

Еще раз убедился - темы "новичков" таят много интересного.
Мне бы сделать такое даже в голову не пришло - но ведь это работает!

Может пригодиться - спасибо, Pitkin.

P.S.  BeS Yara Все равно наличие файла Книга1.xls требует, не могу понять почему, но буду разбираться, все впереди...

Еще раз всем спасибо, УДАЧИ !!!

Более того - если далее файл будет обрабатываться автоматически, возможны проблемы. Мне как-то подсунули таблицу сохранённую в html-виде, но с расширением XLS - я долго не мог понять почему эксель файл открывает, а скрипт нет. Пока по F3 его не посмотрел. Убил бы!

Далее:
1. наличие файла Книга1.xls не обязательно
2. он не дописывается, а перезаписывается

Скрипт открывает невидимое окно Excel, записывает туда данные, сохраняет в указанный в скрипте файл и закрывает окно Excel. Если нужно дописывать данные, то необходимо открывать этот файл, находить конец данных, и записывать дальше новые. Мой вариант этого не делает.

P.S. С меня 83103 литра пива

Просто поменял расширение, txt на xls и о чудо, формирует xls файл.

Это была шутка?
Если нет, то Вы ставите меня в тупик(состояние более известное как "разрыв шаблона")...

По поводу второго куска кода, это была часть замены. Вот что подразумевалось(вчерне):

option explicit
Const ForReading = 1 :  Const ForWriting = 2 :  Const ForAppending = 8
Const TristateUseDefault = -2 :  Const TristateTrue = -1 :  Const TristateFalse = 0

Dim fso, f, ts
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\aScripts\vbs\txt2xls\input.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

Dim Excel
Set Excel = WScript.CreateObject("Excel.Application")
Excel.Visible = False ' не показывать окно Excel
Excel.WorkBooks.Add
Dim data
data = ts.ReadAll
Dim Rows, Cells, i, j
Rows = Split(data, VbCrLf & VbCrLf, -1, vbTextCompare)
For i = LBound(Rows) to UBound(Rows)
 Cells = Split(Rows(i), VbCrLf, -1, vbTextCompare)
 For j = LBound(Cells) to UBound(Cells)
  Excel.ActiveSheet.Cells(i+1, j+1).Value = Cells(j)
 Next
Next

Excel.ActiveWorkbook.SaveCopyAs "C:\aScripts\vbs\txt2xls\Книга1.xls"
Excel.DisplayAlerts = False ' не выводить запрос о сохранении
Excel.Quit
Set Excel = Nothing

WSH: преобразуем макрос VBA в скрипт VBScrip, а также поиск по форуму на тему "Excel.Application" даст достаточно много примеров работы с Excel.

Просто задача состоит в том, что бы в определенное время суток автоматически выполнялся скрипт, который будет брать данные строки из текстового файла, затем переносить их в файл xls формата и выкладывать на сетевой ресурс. Все данные задачи уже решены, кроме преобразования текстового файла в файл Excel.

Мне кажется, можно немного перефразировать задачу - создать excel файл c актуальными данными из текстового источника, требующий дополнительных операций преобразований. Есть два пути решения:
1. (Ваш) Создать скрипт, который будет выполняться по таймингу в определенное время и будет выполнять операции: (а) преобразовать данные; (б) создать xls файл; (в) выкладывать результат на определенный ресурс.
2. Создать файл c эксель импортом данных (теперь понятно, что без vba - никуда), который будет автоматически брать последние данные по запросу пользователя (например - "при открытии").

Как по моему мнению - второй вариант и проще в реализации и актуальней с точки зрения обновления данных. Алгоритм действий vba макроса должен быть такой-же как и алгоритм скрипта по преобразованию текста в csv - значение следующей строки вставлять через разделитель в 1 строку, пока не следующая строка не будет пустой, тогда осуществлять "набор" с новой строки.
К сожалению я, так же слаб в быстром написании скриптов и без мануалов не обхожусь, по этому сейчас, в рабочее время могу поделиться только полезными ссылками:
http://www.rondebruin.nl/tips.htm - см. раздел "Copy/Paste/Merge examples". Там много интересного...
http://www.exceltip.com/exceltips.php?v … amp;ID=214 - советую так же посмотреть остальные разделы
http://excelvba.ru/code/processing_files - русскоязычный ресурс с очень хорошими примерами (там три раздела касаются темы топика)
http://msoffice.nm.ru - то же на русском, правда в количестве примеров нужно долго копаться

Просто поменял расширение, txt на xls и о чудо, формирует xls файл.
Сейчас попробую поковырять ваш код

Я так понял, что вторая часть кода, это как раз то, что нужно для преобразования строк в столбцы?
Не могли бы вы объяснить как это работает, а то не могу понять куда этот кусок вставлять в мой код

option explicit
Const ForReading = 1 :  Const ForWriting = 2 :  Const ForAppending = 8
Const TristateUseDefault = -2 :  Const TristateTrue = -1 :  Const TristateFalse = 0

Dim fso, f, ts
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\aScripts\vbs\txt2xls\input.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

Dim data
data = ts.ReadAll
ts.Close
Set f = fso.GetFile("C:\aScripts\vbs\txt2xls\output.csv")
data = Replace(Replace(data, vbCrLf, ";"), ";;", vbCrLf)
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write data
ts.Close

Это "скелет" - без проверок наличия файлов, папок, доступности файлов на запись.

Если требуется именно эксель, то вместо записи в текстовой файл обрабатываем записи поэлементно. Например так:

Dim Rows, Cells, i, j
Rows = Split(data, VbCrLf & VbCrLf, -1, vbTextCompare)
For i = LBound(Rows) to UBound(Rows)
 Cells = Split(Rows(i), VbCrLf, -1, vbTextCompare)
 For j = LBound(Cells) to UBound(Cells)
  wscript.echo "Cells[" & j & "] = " & Cells(j)
 Next
Next

Вместо вывода в консоль, пишем в ячейки(i, j тут как раз пригодятся ) используя экселевский объект.

P.S. "On Error Resume Next" есть, а где "On Error GoTo 0"? Ошибки нужно обрабатывать а не игнорировать

Правда не без помощи документации и интернета

... чтобы  в самом файле csv строки автоматически становились столбцами...

Приведите содержимое текстового файла к виду
Строка 1;Строка 2;Строка 3
Строка 1;Строка 2;Строка 3
Строка 1;Строка 2;Строка 3

Хотя, в excel можно не импортировать, просто, чтобы  в самом файле csv строки автоматически становились столбцами, подскажите пожалуйста если кто знает.

Попробую пока с формулами в самом excele поколдовать.