David
16 de Diciembre del 2005

Buenas.
Adjunto el código 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 más 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