[VB] Applicazione che si blocca ogni seconda volta che viene lanciata

[Andreabianchi1984]

ABC

[MarcoGG]

Il tuo codice è soggetto ad errori, principalmente perchè stai usando Excel da VB6, non da VBA, perciò è rischioso ed ambiguo chiamare proprietà e metodi del modello ad oggetti di Excel in modo diretto, senza riferimenti completi.
Al momento non mi è chiaro perchè VB6 ti passi per buona la prima e non la seconda, in ogni caso è meglio così :

xlApp.ActiveCell.Offset(0, 0).Select
xlApp.ActiveCell.Offset(0, 0).Value = Text1(0).Text
xlApp.Range("A2").Select
a = xlApp.Range("B2").Value

e così via per tutti gli altri... A questo punto non dovrebbe più dare errori.

[Andreabianchi1984]

ABC

[lorenzo001]

Originariamente inviato da MarcoGG

Al momento non mi è chiaro perchè VB6 ti passi per buona la prima e non la seconda

Perche' VB6, in modo del tutto opinabile, crea automaticamente una istanza nascosta se si accorge che non c'e' il riferimento ad un'istanza esplicita.

[MarcoGG]

Originariamente inviato da lorenzo001

Perche' VB6, in modo del tutto opinabile, crea automaticamente una istanza nascosta se si accorge che non c'e' il riferimento ad un'istanza esplicita.

E perchè questa istanza nascosta viene creata solo sulla prima esecuzione della routine, e non sulla seconda e le successive ?

[lorenzo001]

Originariamente inviato da MarcoGG

E perchè questa istanza nascosta viene creata solo sulla prima esecuzione della routine, e non sulla seconda e le successive ?

Non viene creata sulla prima esecuzione.

Ad ogni esecuzione, se sono usate delle istruzioni che fanno riferimento alla libreria di Excel senza passare da una esplicita istanza, ne viene creata automaticamente una nascosta.

[MarcoGG]

Originariamente inviato da lorenzo001

Non viene creata sulla prima esecuzione.

Ad ogni esecuzione, se sono usate delle istruzioni che fanno riferimento alla libreria di Excel senza passare da una esplicita istanza, ne viene creata automaticamente una nascosta.

E' una teoria che non mi convince. Non spiega perchè alla prima esecuzione tutto funzioni, mentre nelle successive, no.
Se così fosse dovrebbe funzionare ad ogni esecuzione, ossia ad ogni Click su quel pulsante, su una nuova istanza "fantasma" creata da VB6 allo scopo...

Secondo me l'errore è dovuto al fatto di mischiare insieme 2 soluzioni possibili. Ci si può aiutare tenendo aperto il Task Manager durante le esecuzioni, e tenendo traccia del PID dei processi Excel tramite la GetWindowThreadProcessId :

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long

> CASO 1 - Riferimenti totalmente espliciti :

    Dim AppExcel As Excel.Application
    Dim WB As Excel.Workbook
    
    Set AppExcel = New Excel.Application
    AppExcel.Visible = True
    
    Dim PID As Long
    PID = GetWindowThreadProcessId(AppExcel.hwnd, 0)
    MsgBox PID
    
    Set WB = AppExcel.Workbooks.Open(percorso & "TEST.xls")
    
    AppExcel.ActiveCell.Offset(1, 1).FormulaR1C1 = "OFFSET"
    WB.Worksheets("Foglio2").Select
    WB.Worksheets("Foglio2").Range("A1").FormulaR1C1 = "PROVA"
    
    WB.Close SaveChanges:=True
    
    AppExcel.Quit
    Set WB = Nothing
    Set AppExcel = Nothing

questa tecnica è la migliore in assoluto, non produce alcuna ambiguità, nessun errore. A Task Manager, il processo Excel è slegato dall'Application VB6, viene aperto, usato e chiuso correttamente. Il PID cambia ad ogni esecuzione.

> CASO 2 - Riferimenti totalmente impliciti :

    Workbooks.Open percorso & "TEST.xls"
    
    Dim PID As Long
    PID = GetWindowThreadProcessId(ActiveCell.Application.hwnd, 0)
    MsgBox PID
    
    ActiveCell.Offset(2, 2).FormulaR1C1 = "OFFSET"
    Worksheets("Foglio2").Select
    Worksheets("Foglio2").Range("A1").FormulaR1C1 = "PROVA"
    
    ActiveWorkbook.Close SaveChanges:=True

questa tecnica ha senso solo per risparmiare codice su task molto semplici, ed è funzionante. Alla prima esecuzione VB6 crea l'istanza di Excel, e la "collega" all'Application. Dalla seconda esecuzione in poi, VB6 NON crea altre istanze, ma si basa sempre sulla stessa, ecco il perchè dello strano errore di Andreabianchi1984. Tutte le esecuzioni funzionano e non ci sono errori. A Task Manager è visibile l'istanza fantasma di Excel, che infatti viene chiusa automaticamente alla chiusura dell'Application VB6. Il PID ad ogni esecuzione è lo stesso.

> CASO 3 - L'Ibrido :

    Dim AppExcel As Excel.Application
    Dim WB As Excel.Workbook
    
    Set AppExcel = New Excel.Application
    AppExcel.Visible = True
    
    Set WB = AppExcel.Workbooks.Open(percorso & "TEST.xls")
    
    ActiveCell.Offset(1, 1).FormulaR1C1 = "OFFSET"
    Worksheets("Foglio2").Select
    Worksheets("Foglio2").Range("A1").FormulaR1C1 = "PROVA"
    
    Dim PID As Long
    PID = GetWindowThreadProcessId(ActiveCell.Application.hwnd, 0)
    MsgBox PID
    PID = GetWindowThreadProcessId(AppExcel.hwnd, 0)
    MsgBox PID
    
    WB.Close SaveChanges:=True
    AppExcel.Quit
    Set WB = Nothing
    Set AppExcel = Nothing

la peggiore soluzione che si possa adottare. Nella prima esecuzione viene creata AppExcel, ma alla prima istruzione "implicita" VB6 si trova a dover "indovinare", e lo fa creando UNA VOLTA SOLA la sua solita istanza fantasma, e la collega ( con quello che sembrerebbe una sorta di "ByRef implicito" ) ad AppExcel. Alla chiusura del WorkBook su AppExcel viene implicitamente chiuso anche quello sull'istanza fantasma, con il risultato che, alla prima istruzione di lettura o scirttura, l'istanza fantasma è sempre quella, ma senza alcun WorkBook all'interno, da qui l'errore VB6 di istanza non impostata. Basta commentare la linea "WB.Close SaveChanges:=True
" affinchè non vada più in errore. Dallo studio del PID risulta che alla PRIMA esecuzione il PID di AppExcel coincide con l'istanza fantasma, mentre dalla seconda in poi l'istanza fantasma conserva sempre il suo PID, mentre AppExcel cambia.