Lectura de nombre de pestañas de excel

hola, sergio !

... un archivo de excel... no lo puedo abrir me dice que esta da#ado... existe alguna manera de repararlo
y como puedo por medio de una macro saber el nombre de las cejas de un libro sin abrirlo

1) si existe la posibilidad de que [de alguna manera] el archivo haya quedado 'corrupto' [o estuviera 'apunto de...'] :-(
te paso algunos enlaces para su -posible- solucion :))

2) para saber los nombres de las hojas de un libro 'cerrado'...
te paso un ejemplo despues de los enlaces :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ enlaces __
-> si tienes acceso a excel xp [o superior] intenta con las herramientas de recuperacion de archivos
-> en caso contrario, intenta con alguna/s de las siguientes opciones:
XL2002: Metodos para Recuperar Datos de Libros Dañados
http://support.microsoft.com/defaul...;es;291057
XL2000: Metodos para Recuperar Datos de Libros Dañados
http://support.microsoft.com/defaul...;es;179871
XL: Resumen de Metodos para Recuperar Datos de Archivos Corruptos
http://support.microsoft.com/defaul...;es;142117
una aplicacion 'de terceros' para recuperar archivos dañados
http://www.vbusers.com/downloads/do....asp#item2
-> intentar con herramientas para recuperacion de archvos 'de terceros' [como]...
http://www.vbusers.com/downloads/do....asp#item2
[de las siguientes... la mayoria 'tienen un costo']...
http://downloads-zdnet.com.com [busca en 'business' y luego en 'spreadsheets']
http://www.excelfix.com
http://www.officerecovery.com
http://www.excelwordrecovery.com/

__ macro para leer los nombres de las hojas en un libro cerrado __
-> IMPORTANTE: establece primero en tu proyecto de macros una referencia a la libreria...
-> Microsoft ADO Ext. x.x for DDL and Security
== en un modulo de codigo 'normal' =Sub Nombres_hojas()
Dim Libro As ADOX.Catalog, Hoja As ADOX.Table, Archivo As String, Msj As String
Set Libro = New ADOX.Catalog
Archivo = "Ruta y\Sub-carpetas a tu\Archivo cerrado.xls"
Libro.ActiveConnection = _
"Provider=MSDASQL.1;Data Source=Excel Files;Initial Catalog=" & Archivo
For Each Hoja In Libro.Tables
If Right(Hoja.Name, 1) = "$" Then
If Msj <> "" Then Msj = Msj & vbCr
Msj = Msj & Left(Hoja.Name, Len(Hoja.Name) - 1)
End If
Next
MsgBox Msj
Set Libro = Nothing
End Sub