Dim fso, ts1, xlApp
Dim buf
Dim tmp()

Set fso = CreateObject("Scripting.FileSystemObject")
Set xlApp = CreateObject("Excel.Application")

Set ts1 = fso.OpenTextFile(  "S:\articles.txt",  1 , False)
    Do While Not ts1.AtEndOfStream
        buf = ts1.ReadLine
tmp = xlApp.Split( buf , ";" )

    Loop
ts1.Close
Set ts1 = Nothing
Set xlApp = Nothing
Set fso = Nothing

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы