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

no entiendo bien lo que quieres hacer pero yo veo un problema en tu codificacion de fox , y es que export se usa para llevar a una hoja excel desde una tabla dbf que previamente esta vigente por medio de un select. y en tu codificacion quieres exportar de excel a excel pues nunca se observa que previamente tengas una tabla abierta.

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'