Visualizzazione dei risultati da 1 a 10 su 10

Discussione: grafici in excel

  1. #1
    Utente di HTML.it
    Registrato dal
    Oct 2000
    Messaggi
    93

    grafici in excel

    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

  2. #2
    Utente di HTML.it L'avatar di Corwin
    Registrato dal
    Jan 2002
    Messaggi
    584
    Excel viene aperto sul server. Non puoi da asp fare aprire excel sul client...
    I don't wanna have to shout it out / I don't want my hair to fall out
    I don't wanna be filled with doubt / I don't wanna be a good boy scout
    I don't wanna have to learn to count / I don't wanna have the biggest amount
    I don't wanna grow up

  3. #3
    Che errore ti da?
    Matrix è ovunque, è intorno a noi, anche adesso nella stanza in cui siamo. È quello che vedi quando ti affacci alla finestra o quando accendi il televisore. L'avverti quando vai al lavoro, quando vai in chiesa, quando paghi le tasse. È il mondo che ti è stato messo dinanzi agli occhi, per nasconderti la verità.

  4. #4
    Corwin certo che si può... basta che il file excel non contenga macro
    Matrix è ovunque, è intorno a noi, anche adesso nella stanza in cui siamo. È quello che vedi quando ti affacci alla finestra o quando accendi il televisore. L'avverti quando vai al lavoro, quando vai in chiesa, quando paghi le tasse. È il mondo che ti è stato messo dinanzi agli occhi, per nasconderti la verità.

  5. #5
    Utente di HTML.it L'avatar di Corwin
    Registrato dal
    Jan 2002
    Messaggi
    584
    Originariamente inviato da ZeroCool981
    Corwin certo che si può...
    Non con lo script che ha postato lui...
    I don't wanna have to shout it out / I don't want my hair to fall out
    I don't wanna be filled with doubt / I don't wanna be a good boy scout
    I don't wanna have to learn to count / I don't wanna have the biggest amount
    I don't wanna grow up

  6. #6
    ah ok
    Matrix è ovunque, è intorno a noi, anche adesso nella stanza in cui siamo. È quello che vedi quando ti affacci alla finestra o quando accendi il televisore. L'avverti quando vai al lavoro, quando vai in chiesa, quando paghi le tasse. È il mondo che ti è stato messo dinanzi agli occhi, per nasconderti la verità.

  7. #7
    Utente di HTML.it L'avatar di Corwin
    Registrato dal
    Jan 2002
    Messaggi
    584
    Cmq, per tornare a bomba, per verificare che excel sia presente sul server puoi provare ad aprire il file report1.xls. Se lo trova vuol dire che lo script ha funzionato .
    I don't wanna have to shout it out / I don't want my hair to fall out
    I don't wanna be filled with doubt / I don't wanna be a good boy scout
    I don't wanna have to learn to count / I don't wanna have the biggest amount
    I don't wanna grow up

  8. #8
    Utente di HTML.it
    Registrato dal
    Oct 2000
    Messaggi
    93
    Io tempo fa avevo usato questo codice per aprire e scrivere in un file excel solo che così non ho la più pallida idea di come far partire il grafico avete mica qualche link di esempio per prendere spunto ??

    Dim FileName
    FileName="xxx.xls"
    response.buffer = true
    response.ContentType = "application/vnd.ms-excel"

    response.AddHeader "content-disposition", "inline; filename=" & FileName

    if codice_ro = "99" then
    aggiunta ="SommaDi"
    desc_ro = "Totale"
    else
    aggiunta =""
    desc_ro= objRs("desc_ro")
    end if

    I_1T_P=0
    I_2T_P=0
    I_3T_P=0
    I_4T_P=0
    I_TT_P = 0

    I_1T_T=0
    I_2T_T=0
    I_3T_T=0
    I_4T_T=0
    I_TT_T = 0

    desc_forn = objRs("descr_fornitore")

    <table border='0' cellspacing= '0' cellpadding='0' ><tr>
    <td width = '180'>RO</td>
    <td width = '120'>Fornitore</td>
    <td width = '120'>Gruppo</td>
    <td width = '320'>Apparato</td>
    <td width = '70'>Q_1T</td>
    <td width = '70'>I_1T</td>
    <td width = '70'>Q_2T</td>
    <td width = '70'>I_2T</td>
    <td width = '70'>Q_3T</td>
    <td width = '70'>I_3T</td>
    <td width = '70'>Q_4T</td>
    <td width = '70'>I_4T</td>
    <td width = '70'>Q_TOT</td>
    <td width = '70'>I_TOT</td>
    </tr>
    <%
    do while not objRs.EOF%>

    <tr>
    <td><%=desc_ro%></td>
    <td><%=desc_forn%></td>
    <td><%=objRs("desc_gruppo_apparato")%></td>
    <td><%=objRs("descr_app") %></td>
    <td><%=objRs(aggiunta& "Q_1T")%></td>
    <td><%=objRs(aggiunta& "I_1T")%></td>
    <td><%=objRs(aggiunta& "Q_2T")%></td>
    <td><%=objRs(aggiunta& "I_2T")%></td>
    <td><%=objRs(aggiunta& "Q_3T")%></td>
    <td><%=objRs(aggiunta& "I_3T")%></td>
    <td><%=objRs(aggiunta& "Q_4T")%></td>
    <td><%=objRs(aggiunta& "I_4T")%></td>
    <td><%=objRs(aggiunta& "Q_TT")%></td>
    <td><%=objRs(aggiunta& "I_TT")%></td>
    </tr>
    <%objRs.movenext
    loop%>
    </table>

    <%
    response.flush
    response.end

    end if
    objRs.Close
    Set objRs = Nothing
    Conn_sdh.Close
    Set Conn_sdh = Nothing

  9. #9
    Utente di HTML.it
    Registrato dal
    Oct 2000
    Messaggi
    93
    up

  10. #10
    Utente di HTML.it
    Registrato dal
    Oct 2000
    Messaggi
    93
    ritorno per chiedervi altre informazioni l'unico modo che ho trovato per far funzionare lo script è questo:
    lo script crea sul server il file report.xls e poi genero una pagina con un link al file che me lo apre.
    il problema piu grosso che ho trovato è che la seconda volta in locale mi chiede se voglio riscrivere il file sul server no e mi blocca tutto se vado nel server e cancello il file allora funziona
    le possibilità sono o cancellare il file prima della creazione oppure
    mettere una opzione di salva e riscrivi

    avete qualche dritta ??

    ciao e grazie

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.