Ho trovato su internet uno script per trasferire i dati su un foglio excel e creare il grafico. Se lo provo in locale funziona se lo copio nel server non mi apre excel e non mi carica i dati.
la parte di codice è questa
' creo l'oggetto application di excel
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = true
'aggiungo un foglio
Set ExcelBook = ExcelApp.Workbooks.Add
'nel foglio 1 metto i dati
Set rs_res = Server.CreateObject("ADODB.Recordset")
set rs_res = Conn_tras.Execute("SELECT * from store where (famiglia ='"&v_famiglia& "' and denominazione = '"& v_denominazione &"' and gruppo = '"& v_gruppo & "' and mm='" & v_mese & "' and aa= '" & v_anno & "') order by gg")
v_conta_Rec = 3
ExcelBook.Worksheets(1).Cells(3,2).Value="max_in_p erc"
ExcelBook.Worksheets(1).Cells(3,3).Value="max_out_ perc"
ExcelBook.Worksheets(1).Cells(3,4).Value="media_in _perc"
ExcelBook.Worksheets(1).Cells(3,5).Value="media_ou t_perc"
do while not rs_res.eof
v_conta_Rec = v_conta_Rec + 1
v_gg = rs_res("gg")
v_max_in_perc= rs_res("in_perc")
if not isnumeric(v_max_in_perc) then v_max_in_perc = 0
v_max_out_perc= rs_res("out_perc")
if not isnumeric(v_max_out_perc) then v_max_out_perc = 0
rs_res.movenext
v_media_in_perc= rs_res("in_perc")
if not isnumeric(v_media_in_perc) then v_media_in_perc = 0
v_media_out_perc= rs_res("out_perc")
if not isnumeric(v_media_out_perc) then v_media_out_perc = 0
ExcelBook.Worksheets(1).Cells(v_conta_rec,1).Value =v_gg
ExcelBook.Worksheets(1).Cells(v_conta_rec,2).Value =v_max_in_perc
ExcelBook.Worksheets(1).Cells(v_conta_rec,3).Value =v_max_out_perc
ExcelBook.Worksheets(1).Cells(v_conta_rec,4).Value =v_media_in_perc
ExcelBook.Worksheets(1).Cells(v_conta_rec,5).Value =v_media_out_perc
rs_res.movenext
loop
rs_res.close
Set Rs_res = Nothing%>
<%conn_anagr.close
Set conn_anagr = Nothing
'seleziono i dati
ExcelBook.Worksheets(1).Range("A3:e35").Select
'aggiungo il grafico
ExcelBook.Charts.Add
ExcelBook.activechart.ChartType = 65
ExcelBook.activechart.BarShape =3
ExcelBook.activechart.HasTitle = True
ExcelBook.activechart.ChartTitle.Text = "Andamento del Mese"
ExcelBook.activechart.SetSourceData ExcelBook.Worksheets(1).Range("A3:e35"),2
ExcelBook.activechart.Location 1
ExcelBook.activechart.HasDataTable = True
ExcelBook.activechart.DataTable.ShowLegendKey = false
'salvo il file
'ExcelBook.SaveAs Server.MapPath("Report1.xls")
'scarico l'oggetto
'ExcelBook.close()
in locale lavoro con win px e office 2002
nel server c'è windows 2000 server e windows 2000
Forse è un problema di autorizzazioni ??
grazie