Возможности использования данного элемента управления ограничены только самим 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)
Итак, запускаем:
По нажатию на кнопку запущен Excel и пока диалоговое окно на экране он будет запущен. Стоит нажать OK, как сразу все пропадет. Правильно, переменная связанная с Excel локальная и сохраняется только пока работает процедура.