+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 1 su 1

killare processo excel

  1. #1
    misonsan non è in linea Scolaretto
    grazie a chiunque sa darmi una mano

    in una pagina asp devo elaborare un file excel.
    nella fase dei controlli di congruità dei campi inseriti attivo una istanza di excel
    per poter fare delle considerazioni sulle celle valorizzate.
    a fine test chiudo l'istanza
    Questo secondo il codice, maandando a verificare con task meneger vedo un numero grande di processi excel.exe quindi mi vien da pensare che quando chiudo l'istanza questa non viene eseguita.
    Come posso killare il processo ?

    allego il codice per una verifica

    Dim oApp, oWks, oSheet           
    
        Set oApp = CreateObject("Excel.Application")   '<-- assegno all'oggetto l'istanza di Excel
    
        if Err.Number <> 0 then
            MessErrore = "caricatoOrdiniXls check_01 - Errore  " & err.number & " " & Err.description
            exit function
        end if 
    
    ' Verifico se sul file excel esistono delle righe ordini valorizzate
             
        Set oWks = OApp.Workbooks.Open(FileXLS)   ' elaboro il file excel
            
        if Err.Number <> 0 then
            MessErrore = "caricatoOrdiniXls check_9999 - Errore  " & err.number & " " & Err.description
            exit function
        end if 
        NumrigheOrdine = 0
    
        For x = 1 To oWks.Worksheets.Count
            FoglioElaborabile = true
            Fornitore = oWks.Worksheets(x).name
           
            If ucase(Fornitore) = "TOTALI" Then    
                FoglioElaborabile = False
            end if
            if FoglioElaborabile  then
                Fornitore = ucase(Mid(Fornitore,1,6))
                If Fornitore = ParamSearch  Then
                    FoglioElaborabile = False
                end if
            end if
            if FoglioElaborabile  then
                r = 2 ' Ricerco il codice del fornitore
                If oWks.Sheets(x).Range("E" & r).Value > 0 Then
                    NumrigheOrdine = NumrigheOrdine + 1
                end if                
            END IF
        next
    
        IF     NumrigheOrdine = 0   THEN
            MessErrore = "File XLS del cliente non valorizzato -  Caricamento non possibile"
            exit function
        end  if
    
        oApp.close
        oWks.close
        oSheet.close
            
        Set oApp = Nothing
        Set oWks = Nothing
        set oSheet = Nothing
    
    ' qui mi aspetto che il processo sia chiuso, mentre in task manager ne vedo molti
    
    grazie


    Moreno

    Ultima modifica di Master85; 23-01-2009 12:00 

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. WMI e elimina processo
    Da roccolamann nel forum Microsoft Word
    Risposte: 10
    Ultimo Post: 15-04-2020, 09:02
  2. processo principale
    Da incazzato nel forum PHP
    Risposte: 6
    Ultimo Post: 27-07-2011, 13:11
  3. VB 2008 - killare 2 processi insieme
    Da Ale-vb2008 nel forum Visual Basic .Net
    Risposte: 5
    Ultimo Post: 28-12-2010, 11:14
  4. Processo come risorsa?
    Da Superigno nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 20-09-2008, 22:57
  5. Processo IE
    Da Shumy300 nel forum Microsoft Windows
    Risposte: 14
    Ultimo Post: 20-05-2008, 12:00