Leer nombre hojas excel

28/07/2005 - 10:28 por Antonio | Informe spam
Buenas.
Necesito recorrer las hojas que un libro excel para
comprobar su nombre y hacer determinados calculos
dependiendo de la hoja en cuestion. El siguiente codigo
funciona, pero NO FUNCIONA


'Abre el Excel para ejecutar el fichero.
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set book = xl.WorkBooks.open(Server.MapPath("./Temp/")
+ "\" + fichero)

'Abra que buscar primero la hoja por su nombre para
evitar problemas
'ERROR: Indica que no es un objeto de la colección
for each ws in book.worksheets
Response.Write "Nombre de la hoja: " & ws.name & " "
next
 

Leer las respuestas

#1 Pantxo
28/07/2005 - 12:03 | Informe spam
A mí me funciona sin problemas.
Algunos apuntes:

xl.Visible=True No puedes hacer visible la aplicación, recuerda que se está
ejecutando en el servidor.

Server.MapPath("./Temp/") + "\" + fichero Entiendo que el libro Excel
está en la carpeta Temp dentro de la actual: Server.MapPath("Temp/" &
fichero)

Asegúrate de salir del Excel al finalizar el proceso, de otra forma se
quedará arrancado en el servidor:
xl.Quit
Set xl=Nothing

Si puedes darnos más datos quizás podamos ayudarte.

Un saludo

Pantxo

"Antonio" escribió en el mensaje
news:038201c5934e$53406b30$
Buenas.
Necesito recorrer las hojas que un libro excel para
comprobar su nombre y hacer determinados calculos
dependiendo de la hoja en cuestion. El siguiente codigo
funciona, pero NO FUNCIONA


'Abre el Excel para ejecutar el fichero.
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set book = xl.WorkBooks.open(Server.MapPath("./Temp/")
+ "\" + fichero)

'Abra que buscar primero la hoja por su nombre para
evitar problemas
'ERROR: Indica que no es un objeto de la colección
for each ws in book.worksheets
Response.Write "Nombre de la hoja: " & ws.name & " "
next

Preguntas similares