Добрый день!
Имеется скрипт
Который работает отлично, но иногда бывает так что $aTableData = _IETableWriteToArray ($oTable, True) не срабатывает так как таблицы на данной странице нет. Как можно сделать так, чтобы в случае отсутствия таблицы скрипт просто выполнялся дальше а в ячейки добавлялись значения, например "ошибка"
Имеется скрипт
Код:
$i = 2
$oExcel = _ExcelBookOpen("d:\2.xls")
While $i < 300
$market = _ExcelReadCell($oExcel, 'L' & $i)
$oIE = _IECreate($market)
$oTable = _IETableGetCollection ($oIE, 1)
$aTableData = _IETableWriteToArray ($oTable, True)
_ExcelWriteCell($oExcel,$aTableData[1][0], 'M' & $i)
_ExcelWriteCell($oExcel,$aTableData[2][0], 'N' & $i)
_ExcelWriteCell($oExcel,$aTableData[3][0], 'O' & $i)
_ExcelWriteCell($oExcel,$aTableData[4][0], 'P' & $i)
_ExcelWriteCell($oExcel,$aTableData[5][0], 'Q' & $i)
_ExcelBookSave($oExcel)
_IEQuit($oIE)
$d = _ExcelReadCell($oExcel, 'R' & $i)
$oIE = _IECreate($d)
$str = _IEDocReadHTML($oIE)
$price = StringRegExp($str, '(?i)lowest_price\D*(\d+)\D+(\d+)', 2)
If @error Then Local $price[2] = ['', 'ошибка']
_ExcelWriteCell($oExcel,$price[1], 'S' & $i)
_IEQuit($oIE)
$i = $i +1
WEnd
Который работает отлично, но иногда бывает так что $aTableData = _IETableWriteToArray ($oTable, True) не срабатывает так как таблицы на данной странице нет. Как можно сделать так, чтобы в случае отсутствия таблицы скрипт просто выполнялся дальше а в ячейки добавлялись значения, например "ошибка"