Por otra parte he descubierto la razón del mensaje de error que ponía en la imagen de mi primer mensaje:
Antes de hacer el proceso de conexión del ADOConnection hay que crear el objeto; es decir que hay que añadir esta línea:
Código:
Variant Excel = CreateOleObject("Excel.Application");