Workbooks.open no funciona

David
16 de Diciembre del 2005
Buenas.
Adjunto el cdigo siguiente que tiene el fallo de que cuando intenta leer el fichero, se queda colgado indefinidamente.
He probado a poner la ruta sin usar la variable Server.MapPath, etc..., pero no hay manera

'On error resume next

dim mySmartUpload
Dim intCount

const NFilas = 21
const NCols = 10
dim tabla(21, 17)

const MaxSheet = 3
Server.ScriptTimeOut = 3600


' Object creation
' ***************
'Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'mySmartUpload.Upload

'Ruta donde se va a guardar el fichero excel.
'intCount = mySmartUpload.Save(Server.MapPath("./Temp/"))

For each file In mySmartUpload.files
if len(file.Filename) > 0 then
fichero = file.filename
end if
next
'***************************************
' Veamos si podemos abrir y cerrar un objeto Excel
'***************************************
Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject("EXCEL.APPLICATION")
'LO SIGUIENTE HACE QUE LA PAGINA SE QUEDE ESTANCADA INDEFINIDAMENTE
Set objWorkBook = objExcel.Workbooks.Open(Server.MapPath("./Temp") + "8_05_definitivosVII.xls")
Set objWorkBook = objExcel.Workbooks.Open("http://176.16.2.146/Temp/08_05_definitivosVII.xls")
objExcel.visible = false



'Intentamos cerrarlo.
objExcel.WorkBooks.close()
objExcel.Application.quit()
set objExcel = Nothing
Response.Write "Excel cerrado" & vbcrlf






'***************************************
' Borrado del fichero subido en el servidor.
'***************************************
'dim fs,f
'set fs=Server.CreateObject("Scripting.FileSystemObject")
'set f=fs.GetFile(Server.MapPath("./Temp/") + "" + fichero)
f.Delete
set f=nothing
set fs=nothing
if (err.number <> 0) then
Response.write "<br>" & "El fichero " & fichero & " NO se ha insertado correctamente."
else
Response.write "<br>" & "El fichero " & fichero & " se ha insertado correctamente."
end if

He probado temas de permisos en el directorio Temp que est en el servidor pero no hay manera. Ya no se que ms hacer.


Cualquier sugerencia, o lo que sea ser de agradecer.

ras
16 de Diciembre del 2005
puede ser el antivirus con el bloqueo de scripts activo