VBScript: Как преобразовать текстовый файл в файл xls

Доброго дня.
Имхо, проще вставить текст в Excel, предварительно его обработав в блокноте (ну там, удалить лишние пробелы, сделать пустые строки - пустыми и т.д.) и обработать текст вручную - формулами или макросом. Макрос однозначно будет проще, чем писать скрипт по "подаче" этих данных в екслель, плюс потом пакеткая обработка.
Элементарно это сделать с помощью формул. Допустим, указанные данные начинаются в ячейке A2, тогда в ячейку B2 вставляется формула:

=ЕСЛИ($A1="";СМЕЩ($A2;СТОЛБЕЦ()-СТОЛБЕЦ($A2);0;1;1);"")

Растягиваем на 3 столбца вправо, потом вниз, и вуаля - данные из столбца в стоках. Можно еще и проверку на 0 сделать, если количество непрерывных строк бывает разным (в указанном примере 4 строки - пробел, 4 строки - пробел):

=ЕСЛИ($A1="";ЕСЛИ(A2="";"";ЕСЛИ(СМЕЩ($A2;СТОЛБЕЦ()-СТОЛБЕЦ($A2);0;1;1)=0;"";СМЕЩ($A2;СТОЛБЕЦ()-СТОЛБЕЦ($A2);0;1;1)));"")

Останется только удалить "лишние" строки, но это делается без скриптов - прочтите справку по кнопке "Выделение группы ячеек..."

1. Непонятно, зачем вообще какие-то преобразования, когда уже есть сценарий, который "умеет" обрабатывать текстовый файл и формировать рабочую книгу.
2. Непонятно, зачем Вам именно формат XLS. Если только для того, чтобы файл с данными был автоматически связан с приложением Excel и распознавался им как "свой", то достаточно задать исходному текстовому файлу расширение CSV.

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

Преобразовать в csv достаточно просто(при условии что формат файла именно такой как приведён в первом посте):

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"? Ошибки нужно обрабатывать а не игнорировать

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

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

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

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.

CreateTextFile создаёт текстовый файл. XLS - бинарный файл.
То что эксель правильно открыл переименованный текстовой файл не делает тот файл экселевским. Просто удачно сработал конвертер(excel умеет принимать текстовые форматы, хотя не всегда правильно). Переименованный csv(полученный из скрипта) открывается не совсем верно - по строке в ячейку.

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

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

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

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

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

BeS Yara,

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

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

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

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

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

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

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

Удачи!