Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Comparar 2 archivo de excel en visual Basic 2010

Visual Basic.NET - Comparar 2 archivo de excel en visual Basic 2010

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Comparar 2 archivo de excel en visual Basic 2010

Publicado por patricio (1 intervención) el 19/05/2015 15:57:14
Estimados, estoy realizando un programa que compare dos archivos excel, ya realice la importacion de un archivo y que validara los datos de las celdas que contiene, pero ahora necesito validar por ejemplo en excel A la celda b15 tiene que ser = al excel B g50, pero no se como realiza la comparacion.

Si me pueden ayudar , gracias

Pato
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 481
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Comparar 2 archivo de excel en visual Basic 2010

Publicado por Miguel (476 intervenciones) el 19/05/2015 16:25:40
Hola, no sé en donde tienes inconvenientes, pero primero tienes que referenciar/importar "Microsoft.Office.Interop.Excel". Creo que lo siguiente puede servirte:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub validar()
 
        Dim excelApp As New Excel.Application
        Dim libroA As Excel.Workbook = excelApp.Workbooks.Open("rutaLibroA")
        Dim libroB As Excel.Workbook = excelApp.Workbooks.Open("rutaLibroB")
        Dim hojaExcelLibroA As Excel.Worksheet = libroA.Worksheets("hojaLibroA")
        Dim hojaExcelLibroB As Excel.Worksheet = libroB.Worksheets("hojaLibroB")
 
        If (hojaExcelLibroA.Range("A1").Value = hojaExcelLibroB.Range("G50").Value) Then
            MsgBox("Validado correctamente.", MsgBoxStyle.Information, "Info")
        Else
            MsgBox("Archivo inválido", MsgBoxStyle.Information, "Info")
        End If
 
    End Sub


Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar