[KomatoZo]

Хых.... Ну до чего же трудно, наверное пойти в скриптцентр и скомбинировать два примера.... =))))
Я же последний раз программы писал еще на C на x386 =)
Сейчас нарою.

Значит так:
1) создаем файл

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")

2) открываем его и пишем в него

Sub OpenTextFileTest

   Const ForReading = 1, ForWriting = 2, ForAppending = 8

   Dim fso, f

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)

   f.Write "Hello world!"

   f.Close

End Sub

Что еще остается непонятным??? =))))

Кстати, если разделять поля в файле запятыми, то получится csv. А его то уж засунуть в excel нетрудно.
Для засовывания в excel напрямую нужно просто другой объект создавать. Мне искать лениво, так что сам. А общий принцип тот же.