URGENTE!!! Buscar un valor en una celda EXCEL

Joan
10 de Diciembre del 2003
Buenos días a todos.

Tengo que comparar dos hojas excel (utilizando un programa en VB), las cuales tienen valores repetidos. Necesito saber si hay alguna instrucción como el SEEK o FIND (BD) o CTRL+B cuando trabajamos directamente con EXCEL.

kinoscar
10 de Diciembre del 2003
EXCEL CUANTA CON UN BUSCAR ATRAVEZ DE CONTROL+B, SI LO QUE NECESITAS ES EL CODIGO DE COMO HACERLO TE SUGIERO QUE GRABES UNA MACRO EN EXCEL, EJECUTANDO UNA OPERACION DE BUSCAR Y ASI TENDRAS EL CODIGO QUE NECESITAS.

KayKay
10 de Diciembre del 2003
Hola Joan, para poder trabajar con Excel desde Visual Basic se puede hacer de la siguiente manera, partiendo que el usuario del programa tiene en su maquina el Excel instalado, crearemos una instancia de la aplicación desde Visual Basic :

Dim ObjExcel as Object
Dim ObjLibro1 as Object
Dim ObjLibro2 as Object

On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True 'Aqui pon si quieres que se vea la instancia del Excel o no
End If

Set objLibro1 = objExcel.Workbooks.Open("C:Prueba1.xls")

Set objLibro2 = objExcel.Workbooks.Open("C:Prueba2.xls")

'Ahora puedes comprobar,modificar y validar lo que quieras del libro Excel, como si lo estuvieses haciendo desde una Macro.
'PorEjemplo :
If objLibro1.Sheets("Hoja1").Range("A1").Value = objLibro2.Sheets("Hoja1").Range("B2").Value Then

Msgbox "Son iguales!!!!"

End If
'Podriamos hacer :
objLibro1.Sheets("Hoja1").Range("C15").Value = "Hola"
'O Podriamos hacer para cambiar La alineacion de una celda :
objLibro1.Sheets("Hoja 1").Range("F1").HorizontalAlignment = -4131

'Al final deberiamos hacer :
objLibro1.Save
objLibro2.Save
objLibro1.Close
objLibro2.Close

Set objLibro1 = Nothing
Set objLibro2 = Nothing

Set objExcel = Nothing


kinoscar
10 de Diciembre del 2003
OTRA BUENA OPCION ES CARGAR LAS REFERENCIAS DE EXCEL LO CUAL TE VA A DAR LOS OBJETOS ESPECIFICOS HE IR SETEANDOLOS CASI DE LA MISMA FORMA COMO SE HACEN EN LAS MACRO QUE GENERA EXCEL, ESTO TE PERMITE TRABAJAR CON ARCHIVAS EXCEL SIN HABRIR EL PROGRAMA, DE ESTA FORMA TRABAJARAS CASI IGUAL COMO SI ESTUVIERAS HACIENDO UNA MACRO DIRECTAMENTE EN EXCEL.