problemas con Excel

08/11/2005 - 13:26 por vestacl | Informe spam
Hola a todos/as necesitaría que alguíen me ayude con el código que se añade
al final. La intención es que me genera una hoja excel y su correspondiente
gráfico ( cosa que hace puesto que sí graba el archivo "chart.xls", el
problema es que no me genera la exportación del gráfico a formato gif
quedando el navegador como colgado pero no hace nada. He probado a generar la
exportación antes de grabar el archivo "chart.xls", pero tampoco funciona.
Saludos y Muchas Gracias

<%@ LANGUAGE="VBSCRIPT" %>
<%
' Create Object
<!--#include virtual="msvbvm60.dll"-->

Set MyExcelChart = server.CreateObject("Excel.Sheet")

' show or dont show excel to user, TRUE or FALSE
MyExcelChart.Application.Visible = True

' populate the cells
MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array("Week1", "Week2",
"Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10")
MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array("67", "87", "5", "9",
"7", "45", "45", "54", "54", "10")
MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array("10", "10", "8", "27",
"33", "37", "50", "54", "10", "10")
MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array("23", "3", "86", "64",
"60", "18", "5", "1", "36", "80")
MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer"
MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape"
MyExcelChart.ActiveSheet.Cells(5,1).Value="Other"

' Select the contents that need to be in the chart
MyExcelChart.ActiveSheet.Range("b2:k5").Select

' Add the chart
MyExcelChart.Charts.Add
' Format the chart, set type of chart, shape of the bars, show title, get
the data for the chart, show datatable, show legend
MyExcelChart.activechart.ChartType = 97
MyExcelChart.activechart.BarShape =3
MyExcelChart.activechart.HasTitle = True
MyExcelChart.activechart.ChartTitle.Text = "Visitors log for each week shown
in browsers percentage"
'MyExcelChart.activechart.SetSourceData
myexcelchart.Sheets("sheet1").Range("B2:K5"),2
MyExcelChart.activechart.Location 1
MyExcelChart.activechart.HasDataTable = True
MyExcelChart.activechart.DataTable.ShowLegendKey = True






'Save the the excelsheet to chart.xls
MyExcelChart.SaveAs "c:\chart.xls"

' sentencia que supuestamente exporta el gráfico a gif
myExcelchart.activechart.export "c:\hola.gif", "GIF"


%>
<HTML>
<HEAD>
<TITLE>MyExcelChart</TITLE>
</HEAD>
<BODY>
</BODY>
<img src="c:\hola.gif">
</HTML>
 

Leer las respuestas

#1 Miguel Gonzalez
09/11/2005 - 11:00 | Informe spam
Hola Vestacl

Es posible que el Excel del servidor no tenga instalado el filtro de
exportación "GIF"...

Cabría exportar manualmente (en el servidor) para probarlo.

Saludos!
Miguel

vestacl escribió:
Hola a todos/as necesitaría que alguíen me ayude con el código que se añade
al final. La intención es que me genera una hoja excel y su correspondiente
gráfico ( cosa que hace puesto que sí graba el archivo "chart.xls", el
problema es que no me genera la exportación del gráfico a formato gif
quedando el navegador como colgado pero no hace nada. He probado a generar la
exportación antes de grabar el archivo "chart.xls", pero tampoco funciona.
Saludos y Muchas Gracias

<%@ LANGUAGE="VBSCRIPT" %>
<%
' Create Object
<!--#include virtual="msvbvm60.dll"-->

Set MyExcelChart = server.CreateObject("Excel.Sheet")

' show or dont show excel to user, TRUE or FALSE
MyExcelChart.Application.Visible = True

' populate the cells
MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array("Week1", "Week2",
"Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10")
MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array("67", "87", "5", "9",
"7", "45", "45", "54", "54", "10")
MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array("10", "10", "8", "27",
"33", "37", "50", "54", "10", "10")
MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array("23", "3", "86", "64",
"60", "18", "5", "1", "36", "80")
MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer"
MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape"
MyExcelChart.ActiveSheet.Cells(5,1).Value="Other"

' Select the contents that need to be in the chart
MyExcelChart.ActiveSheet.Range("b2:k5").Select

' Add the chart
MyExcelChart.Charts.Add
' Format the chart, set type of chart, shape of the bars, show title, get
the data for the chart, show datatable, show legend
MyExcelChart.activechart.ChartType = 97
MyExcelChart.activechart.BarShape =3
MyExcelChart.activechart.HasTitle = True
MyExcelChart.activechart.ChartTitle.Text = "Visitors log for each week shown
in browsers percentage"
'MyExcelChart.activechart.SetSourceData
myexcelchart.Sheets("sheet1").Range("B2:K5"),2
MyExcelChart.activechart.Location 1
MyExcelChart.activechart.HasDataTable = True
MyExcelChart.activechart.DataTable.ShowLegendKey = True






'Save the the excelsheet to chart.xls
MyExcelChart.SaveAs "c:\chart.xls"

' sentencia que supuestamente exporta el gráfico a gif
myExcelchart.activechart.export "c:\hola.gif", "GIF"


%>
<HTML>
<HEAD>
<TITLE>MyExcelChart</TITLE>
</HEAD>
<BODY>
</BODY>
<img src="c:\hola.gif">
</HTML>


Preguntas similares