RE:Ayuda (comparar datos de una BD con excel)
Segun recurdo hay un ejemplo parecido de Leer o Pasar es algo similar desde Excel a Visual Basic en codigo fuente de visual basic de esta pagina
le boy un ejemplo de algo parecido pero es mejor que busque en los dos ejemplos que ya tiempos encontre en esta pagina siempre en codigo Fuente de Visual Basic
Al usar CreateObject no nesesita hacer referencia de ninguna libreria
Dim FilMax As Long
Set ApExcel = CreateObject("Excel.Application")
ApExcel.Visible = True
ApExcel.SheetsInNewWorkbook = 3
ApExcel.Workbooks.Add
FilMax = Me.MSF.Rows
ApExcel.cells(2, 3) = "EMPRESA DE PRUEBA "
ApExcel.cells(4, 3) = "CLIENTES "
Fil = 6
Do Until j = FilMax
ApExcel.cells(Fil, 3) = MSF.TextMatrix(Fil, 1)
ApExcel.cells(Fil, 4) = MSF.TextMatrix(Fil, 2)
ApExcel.cells(Fil, 5) = MSF.TextMatrix(Fil, 3)
ApExcel.cells(Fil, 6) = MSF.TextMatrix(Fil, 4)
ApExcel.cells(Fil, 7) = MSF.TextMatrix(Fil, 5)
ApExcel.cells(Fil, 8) = MSF.TextMatrix(Fil, 6)
ApExcel.cells(Fil, 9) = MSF.TextMatrix(Fil, 7)
ApExcel.cells(Fil, 10) = MSF.TextMatrix(Fil, 8)
ApExcel.cells(Fil, 11) = MSF.TextMatrix(Fil, 9)
ApExcel.cells(Fil, 12) = MSF.TextMatrix(Fil, 10)
ApExcel.cells(Fil, 13) = MSF.TextMatrix(Fil, 12)
ApExcel.cells(Fil, 14) = MSF.TextMatrix(Fil, 13)
If Me.MSF.TextMatrix(Fil, 1) = "" Then Exit Sub
Fil = Fil + 1
j = j + 1
Loop
End Sub