Pseudocodigo...
Código:
Open E1
Open E2
// Recorro Excel 1
while not EOF(E1)
begin
BuscarCategoriaEnE2(E1.CATEGORIA)
if Encontro
Informar(Diferencias)
else
Informar("La categoria " + E1.CATEGORIA + " no Existe en E2")
end
Close E1
Close E2
Open E1
Open E2
// Recorro Excel 2
while not EOF(E2)
begin
BuscarCategoriaEnE1(E2.CATEGORIA)
if not Encontro
Informar("La categoria " + E2.CATEGORIA + " no Existe en E1")
end
Close E1
Close E2