come posso creare file excel o documento word?

[tigre2209]

Ho trovato questo esempio per creare un file excel,
ma mi da errore sulla prima riga e precisamente:


Errore di run-time di Microsoft VBScript (0x800A0046)
Autorizzazione negata: 'CreateObject'
/varie/excel2.asp, line 1
--------------------------------------------------------------


1 - Set objXL = CreateObject("Excel.Application")

objXL.visible=true
objXL.Workbooks.add 'Aggiunge un foglio vuoto

objXL.Sheets(1).Name = "Giovanni"
objXL.Sheets(1).select

'Ora scrivo l'intestazione nella cella B1
objXL.cells(1,2)="Intestazione"


'trova l'ultima Riga occupata dai dati...
'partendo dal fondo così risolvo eventuali celle vuote nelle intestazioni.
UltimaRiga=10000
do while objxl.cells(ultimaRiga,1)=""
UltimaRiga=UltimaRiga-1
loop
'Ora UltimaRiga ha un valore valido

objXL.cells(1,1).Select 'seleziona la cella a1

set obXL=nothing

[maximum]

Puoi anche fare una semplice pagina ASP nella quale mettere in testa:

Response.contenttype="application/vnd.ms-excel"
Response.AddHeader "content-disposition", "attachment; filename=provaExcel.xls"

Anzichè uscirti la pagina a video, ti si aprirà la finestra di dialogo che ti chiede se vuoi aprie o salvare il file, il cui nome, come vedi, sarà "provaExcel.xls".

P.S.: Ovviamente puoi cambiarlo.

[tigre2209]

Ho provato
Response.contenttype="application/vnd.ms-excel"
Response.AddHeader "content-disposition", "attachment; filename=provaExcel.xls"

mi chiede di aprire o salvare il file,
ma se volessi aprire excel per copiarci dei record da sqlserver?

[maximum]

Originariamente inviato da tigre2209
mi chiede di aprire o salvare il file,

Esatto.

Originariamente inviato da tigre2209
ma se volessi aprire excel per copiarci dei record da sqlserver?

La copiatura come dici tu, la devi effettuare tramite query SQL nel codice stesso della pagina, poi quando aprirai o salverai il file, troverai i tuoi record.

Mi segui?

In sostanza devi procedere come se quella pagina che stai "esportando" in Excel, sia una pagina da presentare a video.

[tigre2209]

scusa, ma Il problema è che mi da questo ancora questo errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0046)
Autorizzazione negata: 'CreateObject'
/varie/exc.asp, line 1


1 <%Set objXL = CreateObject("Excel.Application")

objXL.visible=true
objXL.Workbooks.add 'Aggiunge un foglio vuoto

objXL.Sheets(1).Name = "Giovanni"
objXL.Sheets(1).select

[U235]

Originariamente inviato da tigre2209
scusa, ma Il problema è che mi da questo ancora questo errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0046)
Autorizzazione negata: 'CreateObject'
/varie/exc.asp, line 1


1 <%Set objXL = CreateObject("Excel.Application")

objXL.visible=true
objXL.Workbooks.add 'Aggiunge un foglio vuoto

objXL.Sheets(1).Name = "Giovanni"
objXL.Sheets(1).select

forse non è abilitata in scrittura la cartella su cui vai a scrivere il file, o forse non sei autorizzato (come utente su iis)

[maximum]

tigre2209, posta il codice della pagina, per favore.

[tigre2209]

ti posto il codice di esempio.
l'errore è quando crea CREATEOBJECT.....

<%
'Apre excel per scriverci i dati

Set objXL = CreateObject("Excel.Application")
objXL.visible=true
objXL.Workbooks.add 'Aggiunge un foglio vuoto

objXL.Sheets(1).Name = "Giovanni"
objXL.Sheets(1).select

'Ora scrivo l'intestazione nella cella B1
objXL.cells(1,2)="Intestazione"


'trova l'ultima Riga occupata dai dati...
'partendo dal fondo così risolvo eventuali celle vuote nelle intestazioni.
UltimaRiga=10000
do while objxl.cells(ultimaRiga,1)=""
UltimaRiga=UltimaRiga-1
loop
'Ora UltimaRiga ha un valore valido

objXL.cells(1,1).Select 'seleziona la cella a1

set obXL=nothing
%>

[tigre2209]

Sai come posso visualizzare una pagina in PDF?
Tipo la stampa di un report?
Grazieeee

[maximum]

Come ti dicevo, io non userei questa sintassi:

Set objXL = CreateObject("Excel.Application")
objXL.visible=true
objXL.Workbooks.add 'Aggiunge un foglio vuoto

objXL.Sheets(1).Name = "Giovanni"
objXL.Sheets(1).select

'Ora scrivo l'intestazione nella cella B1
objXL.cells(1,2)="Intestazione"

Bensì, farei una pagina ASP (come se dovessi caricare una lista a video, mi segui?), poi invece di presentarla a video, aggiungengo le righe:

Response.contenttype="application/vnd.ms-excel"
Response.AddHeader "content-disposition", "attachment; filename=provaExcel.xls"

avrai che al momento del richiamo, il sistema ti chiede se aprirla o salvarla o nulla.
Nel momento in cui decidi di aprirla o salvarla ti verrà presentato l'excel e in ogni cella avrai i tuoi dati.

Più chiaro di così?
Se vuoi mi posti la tua mail e ti invio una pagina i esempio....

Riguardo il PDF, cerca pure nel forum, si è parlato a lungo della cosa.