ragazzi per favore ho bisogno di aiuto!!
questo script funziona in locale ma non sul server:
Dim oExcelApplication, oExcelBook, oExcelSheet, oFSO
Dim aData, rs
Set oFSO = CreateObject("Scripting.FileSystemObject")
if oFSO.FileExists( sFileReport ) then
oFSO.DeleteFile sFileReport
end if
Set oFSO = Nothing
Set oExcelApplication = 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
Rispondi quotando
