[Mike909]

что-то все же с $oExcel.Activesheet.Cells($i, 1).Value. может переполняется какая-то память ?

у меня подобные ошибки были только когда я во время выполнения скрипта закрываю excel ручками.
Соответственно можно поставить дополнительно перед записью в ячейку проверку If not IsObj($oExcel) Then ...

Вообще перед запуском скрипта нужно проверить чтобы процессы excel.exe и iexplore.exe были закрыты, снять их в диспетчере задач. Тогда ошибок не должно быть никаких.

PS:
еще в начале главного цикла все таки нужен таймаут )) , сайт может блокирнуть временно по IP если слишком часто идут запросы:

PHP код:

For $i = 1 to 100 Step 1
    Sleep(1000) 

[Mike909]

Окончательный вариант скрипта:

Скрытый текст

PHP код:

#include <IE.au3>

Local $oIE, $oLinks, $tags, $boolIsRealPage

_IEErrorNotify(False)

;Удаление кэша IE
RunWait(@SystemDir & '\RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8', '', @SW_HIDE) 

; Открываем IE
My_New_IE()    

;Создаем Excel
Local $oExcel = ObjGet("", "Excel.Application")
If not IsObj($oExcel) Then
      $oExcel = ObjCreate('Excel.Application')
EndIf

If IsObj($oExcel) Then

$oExcel.Visible = True
$oExcel.WorkBooks.Open(@ScriptDir & '\links.xlsx')
    
    For $i = 1 to 250 Step 1
        Sleep(1000)
            
        If not IsObj($oExcel) Then
              ConsoleWrite ('Excel not found')
              ExitLoop
        EndIf
        
        $boolIsRealPage = False
        $link = $oExcel.Activesheet.Cells($i, 1).Value        
        ConsoleWrite ( $i & ' ' & $link & @LF)
        _IENavigate($oIE, $link, 0)       ; тут не ждем пока загрузится
        _IELoadWait($oIE, 5000 , 15000)      ;  а тут ждем максимум 15 сек
            if @error Then  ; 2 попытка
                ConsoleWrite ('2 try' & @LF)    
                My_New_IE()            
                _IENavigate($oIE, $link, 0)       ; тут не ждем пока загрузится
                _IELoadWait($oIE, 5000 , 15000)      ;  а тут ждем максимум 15 сек
            EndIf
        if not @error Then
                ConsoleWrite (' open url ')    
                $oLinks=_IETagNameGetCollection($oIE, 'a')    
                ConsoleWrite (', get collecion a ' & @LF)    
                    
                if IsObj($oLinks) Then
                    ConsoleWrite (' links=' & $oLinks.Length & ' ')
                    Sleep(200)
                    For $oTextArea In $oLinks
                            
                        If StringInStr(_IEPropertyGet($oTextArea, 'outerhtml'), 'Показать номер') Then
                          
                             _IEAction($oTextArea, 'click')
                            
                             Sleep(500)
                            
                             $oExcel.Activesheet.Cells($i,2).Value=$oTextArea.href
                             $boolIsRealPage = True
                             ExitLoop
                    
                        EndIf
                    
                    Next
                Else
                   ConsoleWrite ('links no obj' & @LF)            
                EndIf
            
                if $boolIsRealPage Then
                    $tags = $oIE.document.GetElementsByTagName("div")        
                    if  IsObj($tags) Then
                        ConsoleWrite ('tags=' & $tags.Length & @LF)
                        Sleep(200)
                        For $tag in $tags
                           
                            $class_value = $tag.className
                    
                            If $class_value = "person-name" Then
                        
                                $oExcel.Activesheet.Cells($i,3).Value=_IEPropertyGet($tag, 'innertext')        
                                ExitLoop
                    
                            EndIf
                        
                        Next
                    Else
                       ConsoleWrite ('tags no obj' & @LF)
                    EndIf
                Else
                    ConsoleWrite ('Bad page - no tel.' & @LF)
                EndIf
                
           Else
                ; в случае ошибки IE - переоткрываем 
                ConsoleWrite ('New IE content' & @LF)    
                My_New_IE()    

            
           EndIf
    Next
    
Else

 ConsoleWrite ("Excel is running." & @LF)
 
EndIf
_IEQuit($oIE)

ConsoleWrite ("Exit au3." & @LF)


;----------------------------------------
Func My_New_IE()

   If  IsObj($oIE) Then
       _IEQuit($oIE)
   EndIf   
   $oIE=_IECreate("about:blank",1,0,1)    
        
EndFunc 

Убрал постоянное открытие закрытие IE, заменил на открытие ссылки в том же окне, добавил переоткрытие в случае ошибки/зависона.
Таймауты можно наверное переделать, но это уже не суть.

ЗЫ: Вообще IE неуклюжий монстр..

[Mike909]

подправил скрипт выше.

[garanov]

нды. видимо проблему у меня.
The requested action with this object has failed.:
$tags = $oIE.document.GetElementsByTagName("div")
$tags = $oIE.document^ ERROR
а какая у вас ОС на компьютере и какой Internet Explorer можно поинтересоваться ?

[Mike909]

Win 10 (10576) 32x, IE 11
у Вас ошибки все связаны с отсутствием объекта, в данном случае $oIE, может он слетает? Могу посоветовать одновременно с выполнением скрипта просмотреть в диспетчере задач поведение IE.

[garanov]

да. Нужно разобраться с поведением IE.
Спасибо за вашу помощь , доберусь до этой проблемы после выходных. Сюда отпишусь.

[garanov]

Все работает... правда у меня тоже стоит вин 10 32х, но все работает )
Думаю проблема была в разрядности IE. он похоже путался когда какой запускать.
спасибо за помощь!