Здравствуйте,нашел на форуме вот такой код для того чтобы выводилось уведомление во всплывающем окне при запуске .vbs файла:

Set XLSApp=CreateObject("Excel.Application")
   FN="C:\1\k331.xlsx"
XLSapp.visible=false
XLSApp.Workbooks.Open FN,0,true
With XLSApp.Workbooks(1).Sheets(1)
 if .Range("A1").value=DATE then
   MsgBox "ест такие даты в таблице", vbExclamation, "Проверка файла"&FN
 else
   MsgBox "все в порядке", vbInformation, "проверка файла "&FN
 end if
end with
XLSApp.Quit

работает толко если значение в A1, если я ставлю в .vbs диапазон "A1:B4" к примеру - окно с ошибкой выходит - несоответствие типа - строка 6 символ 3 код 800A000D.

как сделат, чтобы проверялся диапазон ячеек, спасибо. Версия офиса 365.