FoxPro/Visual FoxPro - VisualFoxpro 6.0

Cordial saludo a todos:

Mi problema es el siguiente: Tengo una aplicación en VisualFoxpro 6.0 que mediante el comando COPY TO me genera archivos en EXCELL. El inconveniente que tengo es que deseo que los n archivos que necesito generar, los haga en un mismo libro y dentro de el en diferentes hojas, según la cantidad que necesite.

Por favor, si me pueden ayudar, les estoy agradecido.

Javier V.

Amigo, tal vez esto te pueda ayudar.
* Declaro las variables a utilizar para controlar la instancia de Excel, la fila y la columna
LOCAL loExcel, lnFila, lnColumna
* Creo la instancia
loExcel = CREATEOBJECT("Excel.Application")
* Agrego 3 hojas de trabajo
loExcel.Workbooks.Add(3)
* Posteriormente puede utilizar loExcel.Worksheets.Add para agregar más hojas si fuera necesario.

lnFila = 1
lnColumna = 1
USE tabla
* Recorro la tabla transfiriendo los valores de la tabla a las celdas de Excel
SCAN
loExcel.cells(lnFila,lnColumna).VALUE = campoA
lnColumna = lnColumna + 1
loExcel.cells(lnFila,lnColumna).VALUE = campoB
lnColumna = lnColumna + 1
loExcel.cells(lnFila,lnColumna).VALUE = campoC
lnFila = lnFila + 1
ENDSCAN

Espero que te sirva.

Gracias, su ayuda ha sido muy importante. Ahora quiero saber como hago para desde el aplicativo abrir el excell y ver su contenido.

Como le voy dando nombre a cada hoja que vaya creando?

Gracias.

Al procedimiento anterior le podrías agregar estas sentencias:

* Hacer visible el libro de Excel
loExcel.Visible = .T.

* Selecccionar una hoja y cambiarle el nombre
loExcel.Sheets("Hoja1").Select
loExcel.Sheets("Hoja1").name = "Facturas"

Espero que esto te sirva

Gracias amigo: Su ayuda ha sido muy importante para mi. Tengo las siguientes instrucciones que tu me has proporcionado:

loExcel = CREATEOBJECT("Excel.Application")
loExcel.Visible = .T.
loExcel.Workbooks.Add(1)
loExcel.Sheets("Hoja1").select

Ahora quiero dibujar una tabla en un rango de celdas especificado. Para lo cual hice una macro en excell y me genera la siguiente instrucción.

Range("D8:J18").Select

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$D$8:$J$18"), , xlNo).Name = "Tabla1"
Range("D8:J19").Select

El problema es que no encuentro como llevarlo a codigo VisualFoxPro. No se el valor de los parametros xlScRange, xlNo.

Si me puedes ayudar, te lo agradezco.

Javier V.