osvaldo
10 de Febrero del 2004

tengo una pequeño problema cuando copio los datos de una tabla que es bastante grande a Excel. Ya que al copiar los datos con la instrucción:
copy to tabla type xl5, me deja algunos registros sin pasar a exel.
No se si sera que no se puesde hacer esto en fox. La cosa es que tengo que paasr estos datos excel. Tambien verifique y el total de registros de la tabla no supera el limite de filas de excel, asi que me imagino que debe haber alguna forma de hacerlo.
Gracias ....

gerardhers
10 de Febrero del 2004

Hola osvaldo.
Yo lo hago leyendo secuencialmente la tabla y pasando campo x celda el codigo que utilizo te lo proporciono a continuacion para que lo veas si tienes alguna duda, con gusto te contestare
* ===================================*
* REPORTE DE CLIENTES *
* ===================================*
f1=57
f2=112
pp=createobject("Excel.application")
pp.Visible=.t.
lib=pp.workbooks.open("c:Sicoprio2Clientes.xls")
SELECT Clientes
go top
f=10
reg=0
do while .not. eof()
reg=reg+1
pp.cells(f,2).value=Clientes.rfc
pp.cells(f,3).value=Clientes.nom
pp.cells(f,4).value=Clientes.dom
pp.cells(f,6).value=Clientes.tel
if reg=44
f=f+13
hoj=lib.worksheets("hoja1")
hoj.range(pp.cells(f1,1),pp.cells(f2,8)).Select
hoj.range(pp.cells(f1,1),pp.cells(f2,8)).copy
f1=f1+56
f2=f2+56
hoj.range(pp.cells(f1,1),pp.cells(f2,8)).select
hoj.Paste
reg=0
else
f=f+1
endif
skip
enddo
pp.Activeworkbook.saveAs("c:Sicoprio2ResCom.xls")
return

osvaldo
10 de Febrero del 2004

Gracias por responder a mi duda. Lo unico es que la tabla es bien grande asi que hay que probar para ver si co nesta opcion el sistema no se pone muy lento.
Gracias denuevo...