ENVIAR DATOS A EXCEL Y MANIPULAR GRAFICOS
Publicado por DOUGLAS (107 intervenciones) el 13/05/2005 15:04:53
PARA PLINIO, ROMAN SUZO DAVID AMADOR Y MUCHOS EXPERTOS LES AGRADEZCO LAS PREGUNTAS CONTESTADAS ANTERIORMENTE, A MI PERSONA.
BIEN AMIGO UNA INQUIETUD TENGO UN GRAFICO EN EXCEL DESDE VFP PERO DESEO DARLE EL ORIGEN DE DATOS NUEVAMENTE YA QUE NO ME TOMA TODAS LAS COLUMNAS.
GRACIAS. ESTE ES MI CODIGO
DONDE ABRO EXCEL AGREGO UNA NUEVA PAGINA Y ENVIO LA INFORMACION. ESTE ESTA BIEN.
PERO QUIERO DARLE EL ORIGEN DE DATOS NUEVAMENTE AL GRAFICOS..
****
oXLChart1.Application.worksheets(1).Range("$A$1:$G$"+xCUL).select
***
ASI ME EXPLICO UN AMIGOO DONDE XCOL ES HASTA CUALQUIER FILA. ESTEO BLOQUEO LA INFORMACION ENVIADA PERO NO ES ESO LO QUE DESEO ES DARLE EL ORIGEN DE DATOS AL GRAFICOS..
GRACIAS
DOUGLAS SANCHEZ
NICARAGUA
Public oXLChart1
oXLChart1 = Getobject('','excel.chart')
oXLChart1.Application.charts[1].haslegend = .F.
oXLChart1.Application.Visible = .T.
oXLChart1.Application.worksheets(1).cells().Clear
oXLChart1.Application.charts[1].HasTitle = .T.
oXLChart1.Application.charts[1].ChartTitle.Caption = "VENTAS NETAS DE CONTADO EN CORODOBAS"
oXLChart1.Application.worksheets(1).cells(1,1).Value = " "
oXLChart1.Application.worksheets(1).cells(1,2).Value = "Sto. Tomas"
oXLChart1.Application.worksheets(1).cells(1,3).Value = "Juigalpa"
oXLChart1.Application.worksheets(1).cells(1,4).Value = "Nva. Guinea"
oXLChart1.Application.worksheets(1).cells(1,5).Value = "La Villa"
oXLChart1.Application.worksheets(1).cells(1,6).Value = "Nueva01"
oXLChart1.Application.worksheets(1).cells(1,7).Value = "Nueva02"
Select VENTAS
Go Top
Xnum = INT(RECCOUNT())
GO TOP
Local T
T=1
SCAN &&&&&LLENADO DE FILAS Y COLUMNAS
oXLChart1.Application.worksheets(1).cells(1+T,1).Value = ANO1
oXLChart1.Application.worksheets(1).cells(1+T,2).Value = SUCURSAL01 oXLChart1.Application.worksheets(1).cells(1+T,3).Value = SUCURSAL02 oXLChart1.Application.worksheets(1).cells(1+T,4).Value = SUCURSAL03 oXLChart1.Application.worksheets(1).cells(1+T,5).Value = SUCURSAL04 oXLChart1.Application.worksheets(1).cells(1+T,6).Value = SUCURSAL05 oXLChart1.Application.worksheets(1).cells(1+T,7).Value = SUCURSAL06
T=T+1
Select VTANUAL
ENDSCAN
xcol = ALLTRIM(STR(xnum+1)) &&&&cuantas filas genere
oXLChart1.Application.charts[1].haslegend = .T.
oXLChart1.Application.worksheets(1).Activate &&&VER LOS DATOS
oXLChart1.Application.worksheets(1).Range("$A$1:$G$"+xcol).select &&&&bloqueo el rango
BIEN AMIGO UNA INQUIETUD TENGO UN GRAFICO EN EXCEL DESDE VFP PERO DESEO DARLE EL ORIGEN DE DATOS NUEVAMENTE YA QUE NO ME TOMA TODAS LAS COLUMNAS.
GRACIAS. ESTE ES MI CODIGO
DONDE ABRO EXCEL AGREGO UNA NUEVA PAGINA Y ENVIO LA INFORMACION. ESTE ESTA BIEN.
PERO QUIERO DARLE EL ORIGEN DE DATOS NUEVAMENTE AL GRAFICOS..
****
oXLChart1.Application.worksheets(1).Range("$A$1:$G$"+xCUL).select
***
ASI ME EXPLICO UN AMIGOO DONDE XCOL ES HASTA CUALQUIER FILA. ESTEO BLOQUEO LA INFORMACION ENVIADA PERO NO ES ESO LO QUE DESEO ES DARLE EL ORIGEN DE DATOS AL GRAFICOS..
GRACIAS
DOUGLAS SANCHEZ
NICARAGUA
Public oXLChart1
oXLChart1 = Getobject('','excel.chart')
oXLChart1.Application.charts[1].haslegend = .F.
oXLChart1.Application.Visible = .T.
oXLChart1.Application.worksheets(1).cells().Clear
oXLChart1.Application.charts[1].HasTitle = .T.
oXLChart1.Application.charts[1].ChartTitle.Caption = "VENTAS NETAS DE CONTADO EN CORODOBAS"
oXLChart1.Application.worksheets(1).cells(1,1).Value = " "
oXLChart1.Application.worksheets(1).cells(1,2).Value = "Sto. Tomas"
oXLChart1.Application.worksheets(1).cells(1,3).Value = "Juigalpa"
oXLChart1.Application.worksheets(1).cells(1,4).Value = "Nva. Guinea"
oXLChart1.Application.worksheets(1).cells(1,5).Value = "La Villa"
oXLChart1.Application.worksheets(1).cells(1,6).Value = "Nueva01"
oXLChart1.Application.worksheets(1).cells(1,7).Value = "Nueva02"
Select VENTAS
Go Top
Xnum = INT(RECCOUNT())
GO TOP
Local T
T=1
SCAN &&&&&LLENADO DE FILAS Y COLUMNAS
oXLChart1.Application.worksheets(1).cells(1+T,1).Value = ANO1
oXLChart1.Application.worksheets(1).cells(1+T,2).Value = SUCURSAL01 oXLChart1.Application.worksheets(1).cells(1+T,3).Value = SUCURSAL02 oXLChart1.Application.worksheets(1).cells(1+T,4).Value = SUCURSAL03 oXLChart1.Application.worksheets(1).cells(1+T,5).Value = SUCURSAL04 oXLChart1.Application.worksheets(1).cells(1+T,6).Value = SUCURSAL05 oXLChart1.Application.worksheets(1).cells(1+T,7).Value = SUCURSAL06
T=T+1
Select VTANUAL
ENDSCAN
xcol = ALLTRIM(STR(xnum+1)) &&&&cuantas filas genere
oXLChart1.Application.charts[1].haslegend = .T.
oXLChart1.Application.worksheets(1).Activate &&&VER LOS DATOS
oXLChart1.Application.worksheets(1).Range("$A$1:$G$"+xcol).select &&&&bloqueo el rango
Valora esta pregunta
0