Andreabianchi1984
12-10-2009, 20:51
ABC
View Full Version : [VB] Applicazione che si blocca ogni seconda volta che viene lanciata
MarcoGG
12-10-2009, 23:12
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.
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
14-10-2009, 00:10
ABC
lorenzo001
14-10-2009, 06:52
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.
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
14-10-2009, 08:27
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 ?
E perchè questa istanza nascosta viene creata solo sulla prima esecuzione della routine, e non sulla seconda e le successive ?
lorenzo001
14-10-2009, 08:51
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.
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
14-10-2009, 14:39
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.
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.
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.