11/07/2002, 23:30
|
| | | Fecha de Ingreso: mayo-2002
Mensajes: 20
Antigüedad: 23 años Puntos: 0 | |
| Re: Mostrar Hoja excel
set MiConexion = Server.CreateObject("ADODB.Connection")
MiConexion.Open "Mibase","cuenta","contra seña"
sql=""
sql="miquery"
set MiTabla = MiConexion.Execute (sql)
contador=0
reg=MiTabla.Fields.Count
Set xlExcel = CreateObject("Excel.Application")
Set xlDoc = CreateObject("Excel.sheet")
Set myDocument = xlDoc.Application.Worksheets(1)
MyDocument.Visible = true
for i=0 to reg-1
valor=chr(65+i)&"1"
MyDocument.Range(valor).value = MiTabla(i).name
next
contador=2
Do While Not MiTabla.Eof
for i=0 to reg-1
valor=chr(65+i)&contador
MyDocument.Range(valor).value = MiTabla(i)
next
contador=contador+1
MiTabla.MoveNext
Loop
MiTabla.close
set MiTabla=nothing
MiTabla=""
MyDocument.SaveAs "http://miarchivo.xls"
xlDoc.close
end if
%>
Ojalá y te sirva
:) |