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)
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
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
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
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
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
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
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
------
Ya sé Excel, pero necesito más.
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