non so per quale motivo ma dopo un luuuuuungo caricamento mi ha creato il file.
In pratica ho abilitato la "condivisione web in scrittura" e basta.
deve essere una questione sia di server (PWManager) sia di memoria, il mio pc non è il massimo....
non so per quale motivo ma dopo un luuuuuungo caricamento mi ha creato il file.
In pratica ho abilitato la "condivisione web in scrittura" e basta.
deve essere una questione sia di server (PWManager) sia di memoria, il mio pc non è il massimo....
abilitando la condivisione web in scrittura non hai fatto altro che modificare i permessi dando all'utente iusr_nomepc o altro utente i permessi in scrittura!
io ti consiglio.. per non fare casini...
se devi sviluppare di usare IIS!
non funzionava perchè se il file esiste già, si apre una pop-up di excel che mi chiede se sovrasciverlo o meno.
ora invece creo di volta in volta un nuovo file assegnandogli un nome e tutto funziona velocemente e correttamente.
Ciao!
per questo appunto ti ho detto di fare una cancellazione manuale...
tieni pero' rpesente ..se ricordo bene
che alla parte di salvataggio... puoi aggiungere un parametro che salva "silenziosamente" senza popup...
se non era nel salvataggio
c'era un comando excel che non faceva uscire i popup..
quindi salva senza chiederti conferma
' Cancella i fogli secondari
ExcelBook.Worksheets(3).Delete
ExcelBook.Worksheets(2).Delete
path = Server.MapPath("../db_esport/"&file&".xls")
' Salva su disco
ExcelBook.SaveAs path
' Chiude tutto
ExcelApp.Application.Quit
Set ExcelApp = Nothing
quando salva il file mi crea su C il collegamento al file stesso ed uno alla cartella che lo contiene(?)
forse c'è un parametro da associare a SaveAs perchè cio non avvenga?
non ti so dire...
da quelloc he hai scritto ti crea due collegamenti al file ??
uno in c e uno nella cartella dove hai salvato il file .. giusto ?
nella cartella mi salva il FILE quindi tutto regolare, mentre in C mi crea un collegamento al file APPENA salvato più un collegamento alla cartella. Strano eh?
ricontrolla il codice... magari fai qualcosa in C
cmq il codice è questo:
<%@language=VBScript%>
<%
if Request.QueryString("action")<> "esporta" then
ID = Request.QueryString("ID")
corpo ="<html><body><form action='' method='get'><table><tr>" &_
"<td>Scegli un nome per il file</td><td><input type='text' name='file'>" &_
"<input type='hidden' name='action' value='esporta'></td>" &_
"</tr></table><input type='hidden' name='ID' value='"& ID &"'><input type='submit' value='Conferma'>" &_
"</form></body></html>"
Response.Write (corpo)
else
connSondaggi = "Provider=SQLOLEDB; Data Source=localhost; Initial Catalog = NetMonitor1; User Id=sa; Password=xxxxxxx"
dim ID, sql, i, file
ID = Request.QueryString("ID")
file = Request.QueryString("file")
'ID = 25
' Crea l istanza dell oggetto Excel
Set ExcelApp = Server.CreateObject("Excel.Application")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs_contatti = Server.CreateObject("ADODB.Recordset")
cn.Open(connSondaggi)
sql = "SELECT Nome, Cognome, Email, Password FROM Telefonisti WHERE IDSondaggio = "&ID&""
rs_contatti.Open sql, cn
' Imposta lesecuzione in background
ExcelApp.Application.Visible = false
'Genera i fogli
Set ExcelBook = ExcelApp.Workbooks.Add
'imposto i nomi dei campi nella prima riga
ExcelBook.Worksheets(1).Cells(1, 1).Value="Nome"
ExcelBook.Worksheets(1).Cells(1, 2).Value="Cognome"
ExcelBook.Worksheets(1).Cells(1, 3).Value="Email"
ExcelBook.Worksheets(1).Cells(1, 4).Value="Password"
i = 2
Do While Not rs_contatti.EOF
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Name = "Verdana"
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Size = 10
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Italic = true
ExcelBook.Worksheets(1).Cells(i, 1).Value=cStr(rs_contatti("Nome"))
ExcelBook.Worksheets(1).Cells(i, 2).Value=cStr(rs_contatti("Cognome"))
ExcelBook.Worksheets(1).Cells(i, 3).Value=cStr(rs_contatti("Email"))
ExcelBook.Worksheets(1).Cells(i, 4).Value=cStr(rs_contatti("Password"))
'ExcelBook.Worksheets(1).Cells(1, 1).HorizontalAlignment = 1
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Color = RGB(0,0,0)
i = i +1
rs_contatti.Movenext
loop
rs_contatti.Close
Set rs_contatti = Nothing
cn.Close
Set cn = Nothing
' Cancella i fogli secondari
ExcelBook.Worksheets(3).Delete
ExcelBook.Worksheets(2).Delete
' Salva su disco
ExcelBook.SaveAs Server.MapPath("../db_esport/"&file&".xls")
' Chiude tutto
ExcelApp.Application.Quit
Set ExcelApp = Nothing
Response.Write("
<center>Creazione file Excel terminata con successo.</center></p>
<center>Prendi file</center>")
end if
%>
controlla passo passo mettendo dei break point...
quando ti crea il file in C!
Permessi di invio
Rispondi quotando