3 messaggi dal 20 maggio 2003
lo script, di cui incollerò una parte sotto, in locale crea il file ed io posso aprirlo e visualizzarlo! QUINDI IN LOCALE FUNZIONA.
Quando ho spostato l'applicazione Asp sul SERVER e l'ho testata ho notato questa inefficienza:
lo script non segnala errori attraverso explorer, ma non crea il file (report excel) e di conseguenza non mi permette di visualizzarlo ed allegarlo per email.

domande:
mi mancano delle librerie?
il server è w2000 con service pack 3 (l'ultimo), excel e V.basic Installato

SCRIPT:

On Error Resume Next
Dim oExcelApplication, oExcelBook, oExcelSheet, oFSO
Dim aData, rs
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

if oFSO.FileExists( sFileReport ) then
oFSO.DeleteFile sFileReport
end if

Set oFSO = Nothing
Set oExcelApplication = Server.CreateObject("Excel.Application")
oExcelApplication.visible = False

If Err Then
Err.Clear
On Error GoTo 0
Exit Sub
End If

Set oExcelBook = oExcelApplication.Workbooks.Add
Set oExcelSheet = oExcelBook.Worksheets(1)

'Creo le intestazioni del foglio excel
oExcelSheet.Range("A1").Value = "ID ATTIVITA"
oExcelSheet.Range("B1").Value = "DENOMINAZIONE"
oExcelSheet.Range("C1").Value = "TIPO"
oExcelSheet.Range("D1").Value = "REGIONE"
oExcelSheet.Range("E1").Value = "POLO"
oExcelSheet.Range("F1").Value = "SOPRALLUOGO"
oExcelSheet.Range("G1").Value = "INSTALLATO"
oExcelSheet.Range("H1").Value = "OPERATIVO"
oExcelSheet.Range("I1").Value = "NOTE"
oExcelSheet.Range("J1").Value = "INDIRIZZO IP"
oExcelSheet.Range("K1").Value = "NUMERO INVENTARIALE"
oExcelSheet.Range("L1").Value = "NUMERO SERIALE"
oExcelSheet.Range("M1").Value = "PREVISIONE"
oExcelSheet.Range("A1:M1").Font.Bold = True

Set RS = Conn.Execute(sQuerySQL) 'copio l'intero recordset all'interno dell'intervallo
'prestabilito con il metodo CopyFromRecordset, comodo no!
oExcelSheet.Range("A2").CopyFromRecordset rs
Set rs = nothing
Set oExcelSheet = nothing

'Salvo
oExcelBook.SaveAs( sFileReport )
Set oExcelBook = Nothing
oExcelApplication.Quit
Set oExcelApplication = Nothing
On Error GoTo 0
End Sub
512 messaggi dal 30 maggio 2002
Probabilmente non hai i diritti di scrittura sulla directory, e non hai errori perché utilizzi On Error Resume Next, remma questa istruzione e riprova.

se sapessero cosa penso sarei già morto...
2 messaggi dal 09 febbraio 2002
NON è così semplice......ehehehe

Devi creare un utente sul pc in cui invochi excel es. netuser
e dargli i permessi di amministratore.

Poi nella tua pagina di ASP devi fare un impersonate cioè dire al server guarda che io non sono io ma sono netuser e quindi il server ti fa lanciare excel e te lo fa usare altrimenti puoi pregare in turco che non ti fa niente.

Ciao Ice

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.