Здравствуйте,нашел на форуме вот такой код для того чтобы выводилось уведомление во всплывающем окне при запуске .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.
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.