Ну, похоже, у вас уже есть ответ .. Вам просто нужно обработать ожидание, которое возникает при чтении данных в основном цикле, и заставить его остановиться на этом ..
Теперь я еще долгое время не создавал VBScript, поэтому, псевдо это:
While Not EndOfExcelSheet
ReadDataFromExcel();
If errOccurred Then TakeScreenPrint();
'NOTE: We have caught the error and requested the screen print
'is taken, but we have NOT bubbled the exception up!
End While