aprire excel

[tigre2209]

ho questa script per aprire un foglio excel e funziona.
<script language="vbscript">
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add

il problema è che devo riempirlo con i dati di una tabella.
e per scrivere la cella cosi scrive
ExcelBook.Worksheets(1).Cells(1, 3).Value="prova"

il problema è che devo riempirlo con i dati di una tabella.
1° ho scritto lo script su asp ma mi da errore dicendo che non ho le autorizzazioni CreateObject.

2° ho provato anche ad aprire il database con asp. e poi:
<script language="vbscript">
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
dim i
dim a
a="<%=rs.recordcount%>"
for i=1 to a
cod="<%=rs("cod")%>"
ExcelBook.Worksheets(1).Cells(i, 3).Value=cod
<%rs.MoveNext%> ?????????????????????
next
</script>
ma non mi funziona rs.movenext

[optime]

l'approccio è sbagliato, perché implica che sul server sia montato Excel. Usa invece ADO (cerca nel forum, se ne è parlato diverse volte)

[tigre2209]

sul server è istallato excel.

[optime]

è una "bad practice" ma fate pure come volete.

che vuol dire "ma non mi funziona rs.movenext"???

[tigre2209]

vuol dire che in a mi scrive 3000 record
su cod mi scrive il codice del campo record
, ma poi mi scrive in una tabella excel 3000 volte il primo record.
Non incrementa il record

a="<%=rs.recordcount%>"
for i=1 to a
cod="<%=rs("cod")%>"
ExcelBook.Worksheets(1).Cells(i, 3).Value=cod
<%rs.MoveNext%> ?????????????????????
next

[optime]

scusa, ma useresti rs.movenext per muoverti all'interno del foglio excel?

[tigre2209]

hai ragione. ma come si fa?

[optime]

posta tutto il codice

[tigre2209]

<%
Set Connection11 = Server.CreateObject("ADODB.Connection")
Connection11.Open Application("Connection11_ConnectionString")

dim rs

sql="SELECT * FROM tabella"
set rs=server.createobject("adodb.recordset")
rs.open sql,connection11,3,3

%>
<script language="vbscript">

Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True

Set ExcelBook = ExcelApp.Workbooks.Add
dim i
dim a

a =<%=rs.recordcount%>
ExcelBook.Worksheets(1).Cells(1, 3).Value=a

for i=1 to a
cod=<%=rs("cod")%>

ExcelBook.Worksheets(1).Cells(i, 1).Value=cod

<%rs.MoveNext%>
next


ExcelBook.Worksheets(3).Delete
ExcelBook.Worksheets(2).Delete


ExcelBook.SaveAs Server.MapPath("FileExcel.xls")

excelApp.Application.Quit
Set ExcelApp = Nothing

</script>

[optime]

invece di

for i=1 to a 
   cod=<%=rs("cod")%>
   ExcelBook.Worksheets(1).Cells(i, 1).Value=cod 
   <%rs.MoveNext%>
next

prova con

i=1
<% do while not rs.eof %>
   i=i+1
   cod=<%=rs("cod")%>
   ExcelBook.Worksheets(1).Cells(i, 1).Value=cod 
   <% rs.MoveNext %>
<% loop %>

sempreché sia corretto intercalare <script> e <%...%>