También puedes hacer una conexión ADO directa a la Hoja Excel guardando los datos en un recordset y después hacer la comparación:
Código:
Dim rs As New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Libro1.xls;Extended Properties=Excel 8.0;"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * From [Hoja1$]"
End With
Do Until rs.EOF
If rs(0) = Text1.Text Then ' el campo cero es Diseño
MsgBox rs(1) ' el campo 1 es Descripcion
Exit Do
End If
rs.MoveNext
Loop
If rs.EOF Then MsgBox "No se encontró"
Set rs = Nothing
Aquí suponemos que el archivo Excel se llama "Libro1.xls" y la hoja donde están los datos a comparar, "Hoja1" (el signo $ después del nombre de la hoja es obligatorio).
