FoxPro/Visual FoxPro - AYUDA MUY URGENTE CON EXCEL!!!!

Haber si alguien me puede ayudar, ya no se como hacerlo he probado mil cosas y no me sale.

Haber yo hago lo siguiente:

use paciente

excSesion = ""
excSesion = CreateObject("Excel.Application")

excSesion.Workbooks.open("c:\pro\libro1.xls")
set filter to numhist='0000001'
excSesion.Sheets.add
export to c:\pro\libro1.xls type xl5
excSesion.ActiveSheet.name = '000001'
set filter to numhist='0000002'
excSesion.Sheets.add
export to c:\pro\libro1.xls type xl5
excSesion.ActiveSheet.name = '000002'

Yo hago esto para que creo un libro y por ejemplo el paciente con numero 0000001 tiene que ir a una hoja sola con el nombre de hoja 0000001, el paciente 0000002 tiene que ir a la siguiente hoja y así sucesivamente pero cuendo hago el export me da un error no se si habrá que decirle en que hoja hay que exportarlo y todo eso.

Alguien me puede decir como puedo hacer todo eso y si lo estoy haciendo bien.

Gracias

Amigo Juan : Para exportar utilizas el siguiente comando...
EXPORT To &titulo FIELD LIKE yerd_ord, orden, Fech_ing TYPE XLS
Ahora bien no le indiques la ruta al nuevo archivo, luego que aparece generado el archivo en EXCEL haces un COPY TO a donde lo quieres copiar. Ej.EXPORT TO libro1.XLS...
Saludos,
GABRIEL