Ver Mensaje Individual
  #2 (permalink)  
Antiguo 12/06/2008, 15:09
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años, 1 mes
Puntos: 839
Respuesta: Levantar xls desde VB6 y comparar campos con un textbox

Cita:
Iniciado por SeNdEr2003 Ver Mensaje
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...
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.