FUNCIONA !!
Gracias por la aportación, he probado y me funciona. Hay unos cuantos hilos preguntando lo mismo, y parece que hay una pequeña diferencia.
El código que yo tengo y no funciona tiene unas pequeñas diferencias:
- Las variables son VARIANT en lugar de OLEVARIANT
- Cuando creo el objeto pongo Excel:= CreateObject('Excel.application')
- Lo demás es exactamente igual,...
- pero el resultado no es el mismo.
El código de roman funciona estupendamente tras probarlo.
Gracias y un saludo