extraño eso, funciona bien conmigo, probablemente permisos de escritura....
bueno, aki esta otra forma de realizarlo
claseGenxls.asp
Código PHP:
<%
Option Explicit
Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset
Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub
Sub Class_Terminate()
Set objSpreadsheet = Nothing 'Clean up
End Sub
Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property
Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property
Sub GenerateWorksheet(objRS)
'Populates the Excel worksheet based on a Recordset's contents
'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
iCol = iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
End If
iCol = iCol + 1
Next 'objField
objRS.MoveNext
Loop
End Sub
Function SaveWorksheet(strFileName)
'Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
End Function
End Class
%>
forma de llamarla
Código PHP:
<%'Vinculas el archivo arriba escrito%>
<!--#include virtual="claseGenxls.asp"-->
<%
'Creas tus conexiones a la base de datos
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM titles", "DSN=FooBar"
Dim objExcel
Set objExcel = New ExcelGen
objExcel.RowOffset = 4
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
Nombre del Archivo
xlsname="foo.xls"
If objExcel.SaveWorksheet(Server.MapPath("& xlsname &")) then
Response.Write "Libro de Excel Guardado. " & _
"<a href=""& xlsname &"">Descargar</a>"
Else
Response.Write "Error en la escritura del Archivo XLS!"
End If
Set objExcel = Nothing
objRS.Close
Set objRS = Nothing
%>
suerte