Abrir archivos de Excel

hola, Henry !

... tratando de ... abrir archivos ... asociados a cierta utilidad que tengo programada
... que en el cuadro de dialogo abrir no se muestren todos los archivos de Excel (xls) ...
... solamente los que cumplen con una caracteristica predeterminada ... por ejemplo
... colocarle a estos archivos un valor especifico en la propiedad Categoria ... o tal vez crear una nueva propiedad [...]

1.- para todos los [posibles] casos [creo que] 'tendrias que pensar' en una 'validacion' para NO abrir 'dos veces' un libro ;)
2.- para 'poder accesar' a las 'documentproperties' [builtin o custom] es requisito que el libro 'sea abierto' :((
[o utilizar otro 'tipo de llamadas' para 'comprobarlas']
3.- otra posibilidad seria... 'cambiar' la extension [p.e. .abc o... .xyz] =>NO necesitan 'apellidarse' .XLS< con esta 'opcion' tendrias 'control' para mostrar SOLO los archvos con 'tu' EXTension =>getopenfilename<= p.e.
_______
Sub Abrir_mis_archivos()
Dim Este_archivo As String
Este_archivo = Application.GetOpenFilename("Mis archivos (*.xyz), *.xyz", , "Mi aplicación")
If Este_archivo = False Then Exit Sub
MsgBox Este_archivo & vbCr & "es el que se ""abre por codigo"" [si quieres o validas]"
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
=> el 'inconveniente' es que tendrias que 're-nombrar' [las extensiones de...] cada archivo [o 'lote de archivos']... 'a pie'...
NO a traves del 'guardar como...' sino por DOS o usando [tal vez] una instruccion del tipo 'Name' :((
[puedes consultar la ayuda acerca del 'uso' de la instruccion name]

puede servir como... 'punto de partida' [???]
saludos,
hector.