Excel - passaggio variabile da 2 diversi progetti

[zxc80]

Se in un file excel associo la variabile con la routine, nel modulo di nome "Modulo1"

Public a As Integer
Public Sub CaricaVariabile()
a = 11
End Sub

ed in altro file Excel elaboro tale variabile

Public Sub Elaborazione()
Public Sub CaricaVariabile()
a = 11
Modulo1.a =Modulo1.a+1
End Sub

il risultato non è "12" ma "1".
Come faccio a richiamare una variabile definita prima come pubblica nella seconda routine che è di un progetto diverso?!?

[MetalPiskuan]

Il primo progetto, quello in cui definisci la variabile, deve essere inserito nei riferimenti del secondo.

Ricorda però di rinominare il primo progetto, se lasci il soloito VBAProject puoi creare confusione.

Ciao.

[zxc80]

scusa, mi digiti il codice di come fare il riferimento al primo progetto di cui parli...non ho capito come fare...
ti ringrazio

[MetalPiskuan]

Nessun particolare codice, tento di spiegarmi meglio.

Ammettiamo che il primo progetto sia contenuto un un file XLA di nome Test e che il nome del progetto sia VBATest. In questo progetto è contenuto il seguente codice in un modulo:

Public lngTest As Long

Public Sub Carica()
    lngTest = 11
End Sub

Nel secondo progetto, ammmettiamo che sia contenuto in un file XLA di nome Cartel1, devi mettere fra i riferimenti il primo progetto:
Attiva l'editor di VBA, dal Menu Strumenti -> Riferimenti metti il flag su VBATest.
Ovviamente i due file di Excel devono essere aperti contemporaneamente

Ora nel secondo progetto, in un modulo, puoi inserire il seguente codice:

Public Sub Pippo()
Dim lngTest As Long
    VBATest.Carica
    lngTest = VBATest.lngTest + 1
End Sub

Ti assicuro che lngTest vale 12

Ciao.

[zxc80]

grazie proverò...anche perchè ho fatto l'esempio su Excel ma il mio problema è su AutoCAD...comunque la soluzione dovrebbe essere simile...ciao

[zxc80]

perdona l'ignoranza, ma il tuo codice non mi funziona...ovviamnte la scritta "VBATest.Carica" è un'espressione "maccheronica" per farmi capire il codice da mettere ma io non so cosa mettere...mi dici cosa fare per favor??
Esiste qualche cosa tipo "load"?? Devo aprire il file Excel contennente la 1° routine oppure è possibile (in quale modo) aprire solo il progetto "VBAtest" in qualche modo?? :master: Grazie1000


Public Sub Pippo()
Dim lngTest As Long
VBATest.Carica
lngTest = VBATest.lngTest + 1
End Sub

[MetalPiskuan]

anche perchè ho fatto l'esempio su Excel ma il mio problema è su AutoCAD

Non sono sicuro che in Acad funzioni allo stesso modo, ma penso di si.

VBATest (nome del tutto arbitrario, puoi mettere quello che vuoi) e il nome del progetto che contiene la tua variabile pubbica, quella che vuoi modificare nel secondo progetto.

Entrambi i file (progetti) devono essere aperti contemporaneamente, come ti avevo già detto.

VBATest (o il nome che hai scelto) deve essere inserito nei riferimenti del secondo progetto, quello in cui vuoi modificare la variabile.

Se fai così funziona di sicuro.
Ciao.