[VB6]Ricerca in un file Excel

[karl93]

Salve ragazzi,
sto ancora lavorando con il file Excel da VB6. Volevo sapere una volta aver stabilito la connessione tra i due programmi è possibile effettuare una ricerca nel file Excel, precisamente di una determinata colonna come da A1 a A25, da VB6 con un CommandButton. Poi dopo dovrei controllare il contenuto che visualizzo nella cella affianco al testo cercato.

Esempio:

A1 = 516-01
A2 = 516-02
A3 = 515-01
A4 = 508-01
A5 = 513-02
...
An = n


B1 = ATA1
B2 = ATA2
B3 = ATA1
B4 = ATA1
B5 = ATA3
...
Bn = n


Se cerca 516-01 e nella sua cella affianco trovo ATA1, devo visualizzare nella mia TextBox Verde, lo stesso se c'è ATA2, invece se non trova ATA3, devo visualizzare rosso.


Non so se sono stato chiaro. Ma si può fare?

[gibra]

Certo che si può.

Devi usare l'automazione di Excel.
Cerca in rete, trovi esempi a pacchi.

[karl93]

Non trovo gli esempi!
Ho scritto: "Automazione di Excel".

Mi aiuti con qualke link???

Thanks

[gibra]

Ho cercato su questo forum

Excel VB6

trovato 250 link.

[karl93]

Ho fatto in questo modo:

For i = 1 To 40
Valore = wb.Worksheets(1).Range("A" & i).Value
Valore1 = wb.Worksheets(1).Range("B" & i).Value
If Valore = "516-01" And Valore1 = "ATA1" Then
    Text1.BackColor = vbGreen
   End If
Next i

Secondo voi così è giusto?


P.s.
Il codice funziona, faccio ugualmente la domanda x sapere se il codice può essere modificato in modo diverso e casomai più performante.


Grazie!

[gibra]

Mi pare vada benissimo così.

[karl93]

Ok...grazie! Molto gentile!