Здесь Кодий для того чтобы создать пустой архив текста (как раз комментируют вне линии для добавлять текст, и добавляют MS Scripting архив продолжитеный по времени к вашим справкам VBA)
Отсюда:
http://www.ozgrid.com/forum/showthread.php?t=58283&page=1Sub WriteTextFile ()
'Пишущ архив текста using предмет системы файлов в VBA
'Это Кодий требует справки (в VBE оборудует > справки) к Майкрософт Scripting продолжительность времени
Тусклое FSO как FileSystemObject
Тусклое FSOFile как TextStream
Тусклое FilePath как шнур
Тусклое NoOfLoop как интежер
FilePath = «c:\WriteTest.txt» 'создает архив test.txt или изменяет это
Установите FSO = новое FileSystemObject
'раскрывает архив внутри напишите режим
Установите FSOFile = FSO.OpenTextFile (FilePath,
2, поистине)
'' закрепите петлеть вокруг добавлять линии
'Для NoOfLoop = от 1 до 10
'' напишите ваше Кодего здесь
'FSOFile.WriteLine (" я буду линией сочинительства» & NoOfLoop)
'Следующее NoOfLoop
FSOFile.Close
Подводная лодка конца
Опять, после того как я подготовлен с всем из этого знания, я уверен вы может сделать вашу систему работать как определено.
; -)
JeffCoachman