Шаг 107 - Более сложный пример VBScript

Возможности использования данного элемента управления ограничены только самим VBScript. Давайте попробуем запустить Excel. Вот код файла:

Hello
Sub Hello() 
	Dim objXL
	Set objXL = CreateObject("Excel.Application") 
	objXL.Visible = TRUE
	MsgBox "OK!"
End Sub

А код чтения из файла немного изменим:

............
Do While Not EOF(1)
	Input #1, LineString
	strCode = strCode + LineString & vbCrLf
Loop
............

Я использовал константу переноса строки:

vbCrLf Chr(13) + Chr(10)

Итак, запускаем:

gif/107_1.gif (6979 b)

По нажатию на кнопку запущен Excel и пока диалоговое окно на экране он будет запущен. Стоит нажать OK, как сразу все пропадет. Правильно, переменная связанная с Excel локальная и сохраняется только пока работает процедура.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.