Levantar xls desde VB6 y comparar campos con un textbox

[SeNdEr2003]

Buenas

Desde Vb6 levanto y leo un dat en texto plano, debo comparar que un codigo que me aparece en una planilla excel sea identico al de un textbox, en caso que lo sea debo tomar la descripcion que muestra en la fila de al lado...

Tengo en el excel por ej:

Diseño Descripcion
5345435 Parte 1
3453453 Parte 2
3245325 Parte 3
3452345 Parte 4

Debo hacer que lo que aparece en diseño comparar con lo que tengo en un textbox, si son iguales mostrar lo que dice en descripcion, se entiende? como logro esto entre vb y excel?

[David]

Iniciado por SeNdEr2003

Buenas

Desde Vb6 levanto y leo un dat en texto plano, debo comparar que un codigo que me aparece en una planilla excel sea identico al de un textbox, en caso que lo sea debo tomar la descripcion que muestra en la fila de al lado...

Tengo en el excel por ej:

Diseño Descripcion
5345435 Parte 1
3453453 Parte 2
3245325 Parte 3
3452345 Parte 4

Debo hacer que lo que aparece en diseño comparar con lo que tengo en un textbox, si son iguales mostrar lo que dice en descripcion, se entiende? como logro esto entre vb y excel?

Debes acceder al archivo (.xls) así:

Código:

 
Dim xlsApp As Object
Dim xlsWorkBook As Object
Set xlsApp = CreateObject("Excel.Application")
Set xlsWorkBook = xlsApp.Workbooks.Open("C:\archivo.xls")

Luego usando la propiedad Range o Cells de xlsWorkbook accedes a los datos de la hoja y los comparas con el TextBox...

[Avellaneda]

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).