The requested action with this object has failed.:

Mike909 · Конфигурация компьютера

интересно посмотреть, а links.xlsx файла нет для примера?

garanov · Отправлено: **08:17, 04-11-2015** | #3

есть, вот

garanov · Отправлено: **08:18, 04-11-2015** | #4

вот

garanov · Отправлено: **08:18, 04-11-2015** | #5

ой, продублировал

Mike909 · Конфигурация компьютера

Попробуйте этот вариант, поставил разные проверки..
А конкретно Ваша ошибка

$tags = $oIE.document.GetElementsByTagName("div")
$tags = $oIE.document^ ERROR

из-за того что oIE.document не был открыт или с ошибкой ( нет страницы например)
можно еще проверять $oIE на то, что он - объект...

Код

Код:

#include <IE.au3>


Local $oExcel = ObjGet("", "Excel.Application")

If not IsObj($oExcel) Then
	  $oExcel = ObjCreate('Excel.Application')
EndIf
Sleep(2000)

If IsObj($oExcel) Then

$oExcel.Visible = True
$oExcel.WorkBooks.Open(@ScriptDir & '\links.xlsx')

Sleep(1000)

	
	For $i = 1 to 15 Step 1
	
		If not IsObj($oExcel) Then
			  ConsoleWrite ('Excel not found')
			  ExitLoop
		EndIf
	    
		ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)
		
		$link = $oExcel.Activesheet.Cells($i, 1).Value		
		$sUrl=$link		
		$oIE=_IECreate($sUrl,0,0,1,1)		
		$oLinks=_IETagNameGetCollection($oIE, 'a')		
		
		For $oTextArea In $oLinks
				
		    If StringInStr(_IEPropertyGet($oTextArea, 'outerhtml'), 'Показать номер') Then
		
		         _IEAction($oTextArea, 'click')
				
		         Sleep(500)
				
		         $Var=$oTextArea.href
		         $oExcel.Activesheet.Cells($i,2).Value=$Var
	
		         ExitLoop
		
		    EndIf
		
		Next
		
	
		$tags = $oIE.document.GetElementsByTagName("div")		
		;Sleep(2000)
		if  IsObj($tags) Then
			For $tag in $tags
		
			    $class_value = $tag.className
		
			    If $class_value = "person-name" Then
			
			        ;Sleep(2000)		
			        $oExcel.Activesheet.Cells($i,3).Value=_IEPropertyGet($tag, 'innertext')		
			        ExitLoop
		
			    EndIf
			
			Next
		EndIf
		_IEQuit($oIE)
		
	Next
	
Else

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

ConsoleWrite ("Exit au3." & @LF)

garanov · Отправлено: **21:25, 04-11-2015** | #7

спасибо.
но теперь это :

PHP код:


The requested action with this object has failed.:
$tags = $oIE.document.GetElementsByTagName("div")
$tags = $oIE.document^ ERROR

вот вам файл мой(большой). чуть подольше выполняется и падает.
может можно какую-то проверку добавить перед

$oIE.document.GetElementsByTagName("div")

?

добавил if IsObj($oIE) Then ... не помогло

garanov · Отправлено: **21:39, 04-11-2015** | #8

файл links побольше

Mike909 · Конфигурация компьютера

Вот попробуй такой вариант.
до 100 пробовал, норм.

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

PHP код:


#include <IE.au3>



_IEErrorNotify(False)



Local $oExcel = ObjGet("", "Excel.Application")



If not IsObj($oExcel) Then

      $oExcel = ObjCreate('Excel.Application')

EndIf

Sleep(2000)



If IsObj($oExcel) Then



$oExcel.Visible = True

$oExcel.WorkBooks.Open(@ScriptDir & '\links.xlsx')



Sleep(2000)

    

    For $i = 1 to 15 Step 1

        

    

        If not IsObj($oExcel) Then

              ConsoleWrite ('Excel not found')

              ExitLoop

        EndIf

        

        ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)

        Local $boolIsRealPage = False

        $link = $oExcel.Activesheet.Cells($i, 1).Value        

        $sUrl=$link        

        $oIE=_IECreate($sUrl,1,0,1,0)

        ;Sleep(200)        

        $oLinks=_IETagNameGetCollection($oIE, 'a')    

            

        if IsObj($oLinks) Then

            ;ConsoleWrite ('links=' & $oLinks.Length & @LF)

            ;Sleep(200)

            For $oTextArea In $oLinks

                    

                If StringInStr(_IEPropertyGet($oTextArea, 'outerhtml'), 'Показать номер') Then

                  

                     _IEAction($oTextArea, 'click')

                    

                     Sleep(500)

                    

                     $Var=$oTextArea.href

                     $oExcel.Activesheet.Cells($i,2).Value=$Var

                     $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

        _IEQuit($oIE)

        

    Next

    

Else



 ConsoleWrite ("Excel is running." & @LF)

 

EndIf



ConsoleWrite ("Exit au3." & @LF)

garanov · Отправлено: **08:05, 05-11-2015** | #10

PHP код:


The requested action with this object has failed.:
ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)
ConsoleWrite ( $i & ' ' & $oExcel.Activesheet^ ERROR

если убрать ConsoleWrite ( $i & ' ' & $oExcel.Activesheet.Cells($i, 1).Value & @LF)
, то ошибка дальше в $link = $oExcel.Activesheet.Cells($i, 1).Value

что-то все же с $oExcel.Activesheet.Cells($i, 1).Value. может переполняется какая-то память ? какую бы проверку пихнуть туда.ю чтобы в случае ошибки там, он просто проходил дальше.