Últimos mensajes - Powered by IBM

Palabras claves

Abrir archivos de Excel

23/04/2004 - 21:37 por Henry Sanchez | Informe spam

Hola Grupo,

Estoy tratando de crear un control en la barra de
herramientas que permita al usuario abrir archivos de
Excel asociados a cierta utilidad que tengo programada, es
decir, que en el cuadro de dialogo abrir no se muestren
todos los archivos de Excel (xls) de la carpeta
seleccionada, si no solamente los que cumplen con una
caracteristica predeterminada (he pensado por ejemplo
colocarle a estos archivos un valor especifico en la
propiedad Categoria del libro de trabajo o tal vez crear
una nueva propiedad)

Alguien puede darme una ayudita?

Saludos,

Henry

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

25/04/2004 - 09:00 | Informe spam

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.

Responder a este mensaje

#2 Anonimo

26/04/2004 - 19:10 | Informe spam

Hola Hector,

Gracias por tus indicaciones, creo que resuelven el
problema. La unica dificultad que surge, es que los
archivos tambien deben poderse ver desde el cuadro de
dialogo Abrir que usa normalmente Excel y el cambio en la
extencion del archivo los haria invisibles a este cuadro
de dialogo.

Saludos,

Henry

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.

.

Responder a este mensaje

#3 Héctor Miguel

26/04/2004 - 19:40 | Informe spam

hola, Henry !

... creo que resuelven el problema. ... unica dificultad ... es que
... tambien deben poderse ver desde el cuadro de dialogo Abrir que usa normalmente Excel [...]

para 'salvar' esa dficultad, lo [¿unico?] que tendrias que hacer es...
[desde el explordor de windows]...
=> seleccionar uno de 'esos' archivos
+ [con un click-derecho] seleccionar abrir [o... abrir con...]
+ seleccionar de la lista de aplicaciones => 'microsoft excel'
+ 'asegurarte' de marcar => usar siempre esta aplicacion
=> y... ¡ listo !!!

el [¿unico?] 'inconveniente' seria que...
'tendras que' hacer esto mismo en cada pc 'involucrada':((

saludos,
hector.

Responder a este mensaje

#4 Henry Sanchez

27/04/2004 - 21:22 | Informe spam

Gracias nuevamente Hector,

Estoy tratando de buscar alguna funcion de la API de
windows que me asocie mi extencion de archivos con Excel,
yo creo que con eso solucione ese "unico" inconveniente.

Saludos y nuevamente gracias por tu interes

Henry