Como Obtenr en VB.net el valor de una celda en excel.

[Guadalupe]

Hola ya lo resolvi, gracias, todos cooperamos para que me funcionara entre mis libros y ustedes, ya corre hasta aqui...

Les mando el codigo, talves lespueda servir de algo en un futuro.

Dim i As Integer
Dim cad As String


cad = ""
For i = 1 To 20
cad = oHoja2.Range("B" & i).value
If cad = Nothing Then ' y si ya no tiene datos que salga
Exit For
End If



If oHoja2.Range("B" & i).value = "GRANDE" Then
oHoja2.Range("Q1") = "ID_PRODUCTO" ' Me pone una etiqueta en la Q1

oHoja2.Range("Q" & i) = "33"

Else

If oHoja2.Range("B" & i).value = "CHICO" Then
oHoja2.Range("Q" & i) = "34" ' Id Producto
End if