tag:blogger.com,1999:blog-4623278671508370136.post5417308524340910537..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: Explorador en VBA.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger20125tag:blogger.com,1999:blog-4623278671508370136.post-6319421207770435882017-06-05T19:59:02.610+02:002017-06-05T19:59:02.610+02:00Muchas a gracias a ti por el aporte Milton,
todos ...Muchas a gracias a ti por el aporte Milton,<br />todos los buenos consejos son bienvenidos<br /><br />un cordial saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-38513201680482170362017-06-05T03:32:34.046+02:002017-06-05T03:32:34.046+02:00Estimado Ismael y todos los que teneis esta inquie...Estimado Ismael y todos los que teneis esta inquietud, encontré respuesta a qué realizar, para que el Explorador parta desde una carpeta o subcarpeta sin que tengamos que recorrer todos los directorios uno a uno si es que esa aplicación la ocupamos siempre para marcar siempre una x carpeta dentro de otro directorio por llamarlo raiz:<br />Pues bien, es tan fácil como declarar una variable del tipo Variant, y donde ésta contenga el path desde donde queremos que el directorio parta (ej.: "C:\User\Desktop\Pruebas\2017\") y luego esa variable incorporarla al Objeto BrowserdorFolder, como verán en este ejemplo:<br /><br /><br />Sub SeleccionarDirectorio()<br />'definimos las variables que emplearemos<br /> Dim Titulo, Directorio As String<br />' Acá declaro una variante del tipo Variant que despues almacena<br />' el directorio raíz de donde deseo que parta.<br /> Dim subfolder As Variant<br /> Titulo = "Selecciona la ruta de tu carpeta"<br />' acá preparo la variable con el directorio desde donde deseo que aparezca<br /> subfolder = "C:\Users\Desktop\Prueba\"<br /> On Error Resume Next<br /> 'evitaría un error en caso de no seleccionar nada o pulsar ESC<br /> With CreateObject("shell.application")<br />' En el objeto BrowserforFolder declaro la variable subfolder<br /> Directorio = .BrowseForFolder(0, Titulo, 0, subfolder).Items.Item.path<br /> End With: On Error GoTo 0<br /> 'la siguiente instruccíon IF ejecuta una acción a modo de ejemplo<br /> If Directorio = "" Then<br /> MsgBox "No has marcado ningún directorio.", , "Operación no válida"<br /> Else<br /> MsgBox "Ha seleccionado la siguiente ruta " & Directorio<br /> End If<br />End Sub<br /><br />Espero les sea también muy útil.<br /><br />Saludos cordiales para ti Ismael por tan enorme trabajo.Anonymoushttps://www.blogger.com/profile/13912148337989193598noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-24014559913869839102017-06-05T00:22:16.065+02:002017-06-05T00:22:16.065+02:00Estimado Ismael: primero que nada felicitar por ta...Estimado Ismael: primero que nada felicitar por tan grande aporte.<br />Ahora bien, mi consulta es qué código debiera agregar para que el explorador parta desde un path predeterminado por ejeplo C:\User\Desktop\Trabajo\ donde hay una serie de carpetas y sub carpetas. Agradecido desde ya.Anonymoushttps://www.blogger.com/profile/13912148337989193598noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-5371306926894877282016-04-16T09:27:01.750+02:002016-04-16T09:27:01.750+02:00Hola,
lo siento pero los códigos en VBA Access son...Hola,<br />lo siento pero los códigos en VBA Access son algo distintos...<br />mejor consulta en un blog específico de Access.<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-26769825115074911912016-04-16T04:32:09.702+02:002016-04-16T04:32:09.702+02:00Hola una pregunta estoy tratando de hacer eso en A...Hola una pregunta estoy tratando de hacer eso en Acces, pero como hago para que la direccion de la carpeta se coloque en un cuadro de texto en el que yo pueda guardar en mi base de datos como hipervinculo. graciasFranklin Cabrerahttps://www.blogger.com/profile/17009776840910133028noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-64173262485191922582016-03-23T17:11:54.711+01:002016-03-23T17:11:54.711+01:00Imagen tomada desde S.O. Windows 10Imagen tomada desde S.O. Windows 10Anonymoushttps://www.blogger.com/profile/12517083284956617931noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-23159494275838435322016-03-23T17:09:56.283+01:002016-03-23T17:09:56.283+01:00Amigos.
El path del escritorio se soluciona pinch...Amigos.<br /><br />El path del escritorio se soluciona pinchando sobre el icono "Este equipo" y luego sobre la carpeta del escritorio. Les dejo una imagen:<br /><br />- https://iswwnw-sn3302.files.1drv.com/y3p90ci66S4WYMkpkz-XhTk17LnW9dnhxbrkJnMOslSlCTX8myMl9_wRagYTp5HH8wUUWdD6rzMvfZKVk-ms7LIPthGBRLlGuWjPOJXGsZOQvvD_z9G6o09sRTMmAMcGRtqZjxh-J2gm2xCxf_y0vIYVg/Sin%20t%C3%ADtulo.png?psid=1<br />Anonymoushttps://www.blogger.com/profile/12517083284956617931noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-39898070681842520762016-02-04T19:54:30.317+01:002016-02-04T19:54:30.317+01:00;-)
perfecto!
Un cordial saludo;-)<br />perfecto!<br />Un cordial saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-21827233651656281612016-02-04T18:11:53.620+01:002016-02-04T18:11:53.620+01:00Ismaél muchas gracias. Lo dejé de la siguiente for...Ismaél muchas gracias. Lo dejé de la siguiente forma y funciona excelente.<br /><br />Sub SeleccionarDirectorio()<br />'definimos las variables que emplearemos<br /> Dim Titulo, Directorio As String<br /> Titulo = "Selecciona la ruta de tu carpeta"<br /> On Error Resume Next<br /> 'evitaría un error en caso de no seleccionar nada o pulsar ESC<br /> With CreateObject("shell.application")<br /> Directorio = .browseforfolder(0, Titulo, 0).Items.Item.Path<br /> End With: On Error GoTo 0<br /> 'la siguiente instruccíon IF ejecuta una acción a modo de ejemplo<br /> If Directorio = "" Then<br /> MsgBox "No has marcado ningún directorio.", , "Operación no válida"<br /> Else<br /> 'mensaje e inserta la ruta en la celda A1<br /> MsgBox "Ha seleccionado la siguiente ruta " & Directorio<br /> Range("A1").Value = Directorio<br /> End If<br />End Sub<br />Anonymoushttps://www.blogger.com/profile/16666241344822468028noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-40630118509760359582016-01-26T09:35:55.367+01:002016-01-26T09:35:55.367+01:00Hola Víctor,
donde pone
If Directorio = "&qu...Hola Víctor, <br />donde pone<br />If Directorio = "" Then<br /> MsgBox "No has marcado ningún directorio.", , "Operación no válida"<br />Else<br /> MsgBox "Ha seleccionado la siguiente ruta " & Directorio<br />End If<br /><br />pondríamos<br />If Directorio = "" Then<br /> MsgBox "No has marcado ningún directorio.", , "Operación no válida"<br />Else<br /> range("A1").value= "Ha seleccionado la siguiente ruta " & Directorio<br /><br /><br />Saludos<br />End IfExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-46995384382686774482016-01-25T16:00:40.316+01:002016-01-25T16:00:40.316+01:00Hola.
He asignado la macro a un botón en un formul...Hola.<br />He asignado la macro a un botón en un formulario y funciona de maravilla. Tengo la siguiente duda: ¿Cómo hago para que, luego de mostrar el cuadro de dialogo (MsgBox "Ha seleccionado la siguiente ruta " & Directorio) se guarde, imprima o pegue la ruta seleccionada en la celda A1?<br />Muchísimas gracias por tu ayuda.Anonymoushttps://www.blogger.com/profile/16666241344822468028noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-91631134787710662752015-11-11T11:41:50.446+01:002015-11-11T11:41:50.446+01:00Hola Karen
prueba con el método GetOpenFileName
ht...Hola Karen<br />prueba con el método GetOpenFileName<br /><a href="http://excelforo.blogspot.com.es/2013/10/vba-el-metodo-getopenfilename-para.html" rel="nofollow">http://excelforo.blogspot.com.es/2013/10/vba-el-metodo-getopenfilename-para.html</a><br />Creo es lo que buscas<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-5950323256396583862015-11-10T16:27:17.649+01:002015-11-10T16:27:17.649+01:00Saludos, tengo dias devanandome los sesos porque n...Saludos, tengo dias devanandome los sesos porque necesito abrir el explorador para buscar entre diferentes imagenes una en especifica logro abrir el objeto que la va a contener pero no llego a la parte de abrir el explorador y elegir la imagen siempre logro una cosa o la otra pero no las dos juntas... hay alguna forma de lograrlo?????briggittelewhttps://www.blogger.com/profile/14784511118255669634noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-49396681415189165402014-09-26T22:07:45.869+02:002014-09-26T22:07:45.869+02:00Complicada cuestión.. investigaré si existe una al...Complicada cuestión.. investigaré si existe una alternativa para seleccionar el escritorio.<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-44274097850690981592014-09-26T20:14:52.789+02:002014-09-26T20:14:52.789+02:00Sí, funciona seleccionando la ruta completa, pero ...Sí, funciona seleccionando la ruta completa, pero si seleccionas la carpeta Escritorio que aparece en la ventana del explorador, entonces no devuelve nada... Utilizo Windows 7 y Office 2010Anonymoushttps://www.blogger.com/profile/02163749581739386777noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-16822744964465706852013-08-01T16:23:51.499+02:002013-08-01T16:23:51.499+02:00Genial aporteGenial aporteAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-74625100212174099722012-09-27T15:15:46.773+02:002012-09-27T15:15:46.773+02:00Hola Alberto,
el Escritorio suele tener una ruta c...Hola Alberto,<br />el Escritorio suele tener una ruta completa tipo:<br /><b>C:\Users\Excelforo\Desktop</b><br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-19204393716932079002012-09-27T12:12:57.245+02:002012-09-27T12:12:57.245+02:00Lo he probado y funciona a la perfección si selecc...Lo he probado y funciona a la perfección si seleccionas una carpeta pero no me funciona si selecciono el Escritorio. Tienes alguna sugerencia para que pueda yo elegir el escritorio?? Muchas graciasAlbertohttps://www.blogger.com/profile/06714151600968068427noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-36347939431367661192010-07-22T23:04:17.223+02:002010-07-22T23:04:17.223+02:00En principio esta herramienta habilita un explorad...En principio esta herramienta habilita un explorador normal y corriente, por tanto, si los ficheros o carpetas de la intranet son accesibles desde un navegador estándar, no debería haber problemas.<br />¿Pero desde Internet???, no soy experto en esta materia, pero desde internet deberías conocer la IP del servidor donde se encuentra subida esa intranet, no???Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-79622227582433467332010-07-22T21:42:26.773+02:002010-07-22T21:42:26.773+02:00Este ejemplo me encanta, pero yo necesitaria poder...Este ejemplo me encanta, pero yo necesitaria poder navegar hasta una carpeta determinada de una intranet desde internet, es posible?Anonymousnoreply@blogger.com