Как правильно завершить закрытие открытого файла Excel при ошибке?

Я использую файл dos .bat для непрерывного запуска файла .vbs ... Если возникает какая-либо ошибка, пакетный файл снова запускает vbscript и продолжает работу. Скрипт подключается через Интернет к сайту для выполнения некоторых вызовов API. Теперь, когда возникает проблема с подключением или любая другая ошибка, элемент управления выходит из сценария, сохраняя файл Excel открытым. Таким образом, многие файлы Excel открываются при каждой ошибке ... Код выглядит следующим образом ... Пожалуйста, посоветуйте мне, как закрыть файл Excel при ошибке, а затем изящно выйти из сценария.

       '{{{{Some coding}}}}

dim objExcel, objWorkbook, objRange
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\temp.xlsx")
objExcel.Visible = True

       '{{{{Some coding}}}}

objExcel.Cells(xlrow, 3).Value="Test"
objExcel.Cells(xlrow, 3).Select
objExcel.Activecell.Show

       '{{{{Some coding}}}}

objExcel.Workbooks(1).save
objExcel.Workbooks(1).close
objExcel.Quit
Set objExcel = Nothing
Set objWorkbook = Nothing
WScript.Quit

заранее спасибо

Ответы на вопрос(1)

Ваш ответ на вопрос