Возникла необходимость с помощью скрипта в заданном столбце .xls-файла найти значение отличное от нуля. Если такое значение действительно есть, то нужно запустить следующий скрипт (его я сделал), если такого значения нет, - выход.
Написал такой код:
[vba]
Код
Dim oXL
Set oXL = Wscript.CreateObject("Excel.Application")
Дальше не знаю как прописать условие. За любую помощь буду благодарен.
Всем привет.
Возникла необходимость с помощью скрипта в заданном столбце .xls-файла найти значение отличное от нуля. Если такое значение действительно есть, то нужно запустить следующий скрипт (его я сделал), если такого значения нет, - выход.
Написал такой код:
[vba]
Код
Dim oXL
Set oXL = Wscript.CreateObject("Excel.Application")
Запускайте вместо msgbox, правда там нет ветвления нашли/нет, но это легко дописать как угодно. И может книгу можно/нужно и закрыть перед этим, я не знаю что за скрипт там второй. P.S. ещё вариант, если usedrange начинается с первой строки: [vba]
Код
Dim oXL, wb, flag
Set oXL = Wscript.CreateObject("Excel.Application")
oXL.Visible = false
set wb = oXL.Workbooks.open("c:\Downloads\_Test.xls")
'Row = 1
Col = 2
for Row = 1 to wb.sheets(1).usedrange.rows.count if wb.sheets(1).Cells(Row, Col).value <> 0 then flag=true exit for end if next
if flag then msgbox "Row = " & Row & " - " & wb.sheets(1).Cells(Row, Col).value
wb.close 0
set wb = nothing set oXL = nothing
[/vba]
Запускайте вместо msgbox, правда там нет ветвления нашли/нет, но это легко дописать как угодно. И может книгу можно/нужно и закрыть перед этим, я не знаю что за скрипт там второй. P.S. ещё вариант, если usedrange начинается с первой строки: [vba]
Код
Dim oXL, wb, flag
Set oXL = Wscript.CreateObject("Excel.Application")
oXL.Visible = false
set wb = oXL.Workbooks.open("c:\Downloads\_Test.xls")
'Row = 1
Col = 2
for Row = 1 to wb.sheets(1).usedrange.rows.count if wb.sheets(1).Cells(Row, Col).value <> 0 then flag=true exit for end if next
if flag then msgbox "Row = " & Row & " - " & wb.sheets(1).Cells(Row, Col).value