Extensiones de Excel

8 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 9 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2695
Extensiones de Excel

Tengo esta linea en un codigo para que abra esta extension,

'Se abre el fichero de excel selecionado
    RutaArchivo = Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls", , , , True)

quiero agregar a la misma linea o otra, mas extensiones como xlsm, xlsx, xlsa y alguna otra mas para cuando tenga la ventana para selecionar el fichero, me de la opcion de poder seleccionar la extension en el desplegable

Probe esto pero no me dá

    RutaArchivo = Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls, (*.xlsx), *.xlsx, (*.xlsm), xlsm", , , , True)

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 9 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2695
Re: Extensiones de Excel

Coloque mal la libnea, enmiendo

    RutaArchivo = Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls, (*.xlsx), *.xlsx, (*.xlsm), *.xlsm", , , , True)

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 9 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2695
Re: Extensiones de Excel

Hice algo así

    RutaArchivo = Application.GetOpenFilename("Algunas extensiones (*.xls),*.xls,(*.xlsx),*.xlsx,(*.xlsm),*.xlsm,Libro Excel 97_03 (*.xls), *.xls,Libro Excel 07_10 (*.xlsx), *.xlsx,Excel 07_10 para macros (*.xlsm), *.xlsm", , , , True)

pero las primeras 3 no me las da seguidas en la primera linea

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 9 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2695
Re: Extensiones de Excel

Me contesto a mi mismo, pasado un par de horas

Linea correcta para mi comentario

    RutaArchivo = Application.GetOpenFilename("Archivos Excel(*.xls;*.xlsx;*.xlsm;*.xla;*.xlam),*.xls;*.xlsx;*.xlsm;*.xla;*.xlam," & _
    "Libro Excel 97_03 (*.xls), *.xls," & _
    "Libro Excel 07_10 (*.xlsx), *.xlsx," & _
    "Libro Excel para macros (*.xlsm), *.xlsm", , , , True)

gogleando logre armar la linea

 

Solucionado

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 6 horas 28 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9155
Re: Extensiones de Excel

Gracias por compartir la solución que encontraste.

perdona que no llegase a tiempo de contestar, pero era madrugada aquí en España y hoy me tocaba dormir Guiño

------
Ya sé Excel, pero necesito más ahora en pdf

 

Data Tools Suite
datos y tablas con Excel

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 9 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2695
Re: Extensiones de Excel

Perdon por darlo por solucionado pero la verdad es que no lo habia completado tal como lo voy a presentar.

Mi solucion fue esta

    RutaArchivo = Application.GetOpenFilename("Libros Excel(*.xls;*.xlsx;*.xlsm;*.xla;*.xlam),*.xls;*.xlsx;*.xlsm;*.xla;*.xlam," & _
    "Libro Excel 97_03(*.xls),*.xls," & _
    "Libro Excel 07_10(*.xlsx),*.xlsx," & _
    "Libro Excel con macros(*.xlsm),*.xlsm," & _
    "Complementos Excel 97_03(*.xla),*.xla," & _
    "Complem Excel 07_10(*.xlam),*.xlam,", , , , True)

Luego de probado me doy cuenta de que no logro que en la ultima opcion, no logro que me acepte todo el texto Complemento.

Al escribirle La linea completa "Compleme Excel 07_10(*.xlam),*.xlam,", , , , True) me tira un error que ni sequier abre la ventana para seleccionar archivo pero si le quito algunos caracteres, tal como lo presento, ya si acepta bien.

Quiero decir que NO acepta mas lineas ni mas caracteres que los que tiene ahí, ¿otra linea? no acepta mas nada, pareciera que esta predeterminado a aceptar cierto # de caracteres solamente

¿Que está pasando ahí? dejo libro adjunto

Y cuanto  tu disculpa, Ni tu ni nadie que presta su colaboracion aqui, deberia pedir disculpas por no responder con la prontitud que uno desearia, ustedes prestan una ayuda altruista, sin nada pedir a cambio, voluntaria y de buen animo, por lo tanto por mi parte, nada tienes que disculparte, las WEBs que dan este tipo de ayuda, lo hacen porque cuentan con gente mas o menos capacitada para tal fin y de voluntad propia dan dicha ayuda. Esta es mi forma de ver su colaboracion al forum

Recibe un salu2 cordial y gracias de antemano por lo que puedan hacer por mi solicitud

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora

AdjuntoTamaño
File Abrir ficheros_Excel.xlsm23.18 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 6 horas 28 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9155
Re: Extensiones de Excel

Efectivamente, parece que 256 caracteres es la longitud máxima.

Lo primero a tener en cuenta para evitar esta limitación, es que no necesitas poner en la descripción del filtro las extensiones entre paréntesis, eso ya lo pone Excel automáticamente, así que obtienes el mismo resultado si tu filtro es algo así:

RutaArchivo = Application.GetOpenFilename("Libros Excel,*.xls;*.xlsx;*.xlsm;*.xla;*.xlam," & _
    "Libro Excel 97_03,*.xls," & _
    "Libro Excel 07_10,*.xlsx," & _
    "Libro Excel con macros,*.xlsm," & _
    "Complementos Excel 97_03,*.xla," & _
    "Complem Excel 07_10,*.xlam," & _
    "Todos ficheros, *.*", , , , True)

 

Si necesitas algo más sofisticado prueba con FileDialog

------
Ya sé Excel, pero necesito más ahora en pdf

 

Data Tools Suite
datos y tablas con Excel

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 9 meses 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2695
Re: Extensiones de Excel

Pues SI, no pense en que no hacian falta.

Solo como interrugante: ¿Como hacen los Srs. de microsof para agregar tantos caracteres?, bueno es cosa para otro tema.

Gracias, me sirvio muy bien, agradecido pacomegia

Ahora si se puedfe cerrar el tema

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora