com error with excel

[faustf]

i guys , i have some problem with this script

expandcollapse popup

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.12.0
    Author:         faustf

    Script Function:
    GROSSISTI GRABBER
    BY faustf

    DA CONTROLLARE ASSOLUTAMENTE

    LA 3 COLONNA c IN EXCEL:  METTE COMPONENTI PC---> MODULI MEMORIA ----> MASTERIZZATORIDVD INTERNI???

    FUTURES
    INSERIRE I LOG , ADESSO SOLO SULL EXCEL
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <StringConstants.au3>
#include <InetConstants.au3>
#include <WinAPI.au3>
#include <WinAPIsysinfoConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#include <INet.au3>
#include <Excel.au3>
#include <File.au3>
#include <Array.au3>

_IEErrorHandlerRegister(_User_ErrFunc)

If ProcessExists("iexplore.exe") Then ; Check if the internet esplorer process is running.
    ProcessClose("iexplore.exe")
EndIf
If ProcessExists("EXCEL.exe") Then ; Check if the excel process is running.
    ProcessClose("EXCEL.exe")
EndIf


Global $iGRitardo = 2000, $oIE, $sGName4ExcelG1
Global $aGArray, $aGArray1, $sGName4ExcelG2, $sGName4ExcelG3, $iGTimeToCeck = "6000", $iGTimeOut = "60000"
Global $iGCTRLExTrktOrNOT = 0, $iGPageDynamo = 3, $iGCTRLcreateGroup3 = 0

; variabili relative all excel
Global $oWorkbook, $A_excel = 2, $B_excel = 2, $C_excel = 2, $D_excel = 2, $E_excel = 2, $F_excel = 2, $G_excel = 2, $H_excel = 2
;Global $I = 1, $J = 1, $K = 1, $L = 1, $I_P = 0,
Global $NumB_excell_riga = 2, $H_excel_360 = 2

_EXCEL_CREA()

Func _EXCEL_CREA()
    ConsoleWrite('@@ (666) :(' & @MIN & ':' & @SEC & ') _EXCEL_CREA()' & @CR) ;### Function Trace

    Local $oAppl = _Excel_Open()
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

    $oWorkbook = _Excel_BookNew($oAppl)

    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Categoria", "A1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Sotto Categoria", "B1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Sotto Sotto Categoria", "C1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Codice", "D1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Descrizione", "E1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "", "F1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Disponibilita", "G1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Arrivi", "H1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Listino", "I1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Margine", "J1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Prezzo c&c", "K1")
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "Prezzo Web", "L1")

EndFunc   ;==>_EXCEL_CREA
Func _User_ErrFunc($oError)
    ConsoleWrite('@@ (830) :(' & @MIN & ':' & @SEC & ') _User_ErrFunc()' & @CR) ;### Function Trace
    ; Do anything here.
    ConsoleWrite(@ScriptFullPath & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_User_ErrFunc

return me always t his  error

--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
@@ (666) :(49:51) _EXCEL_CREA()
@@ (830) :(49:51) _User_ErrFunc()
C:\Users\SviluppoGest\Desktop\da-cancellare\test.au3 (65) : ==> COM Error intercepted !
    err.number is:      0x80020006
    err.windescription: Unknown name.

    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  65
    err.retcode is:     0x00000000

+>12:49:52 AutoIt3.exe ended.rc:0
+>12:49:52 AutoIt3Wrapper Finished.
>Exit code: 0    Time: 2.122

is possible  to resolve???

thankz

 

[water]

How many of the cells you process in _EXCEL_CREA do get written to Excel - means: What does the worksheet show you?

[faustf]

o the  excel use  12 cell  only , and  after open and write  the top title  ,  would start  to insert like  list , but i have this error

 

[Jos]

That is the result of the test whether Excel is already running or not (Line 65 in Excel.au3) testing for an existing object. 

Jos

[Bowmore]

You can ignore this error. It is caused by the Excel UDF function _Excel_Open() which by default tries to open an existing instance of Excel before creating a new Excel instance. The error is raised when _Excel_Open() tries to open an instance of Excel that does not exist before opeing a new instance. Since you  want  a new instance you could change

Local $oAppl = _Excel_Open()

to

Local $oAppl = _Excel_Open(True,False,True,True,True)

 

[faustf]

with this work great thankz so much