tag:blogger.com,1999:blog-7983188466168395484.post7778511557774191837..comments2023-10-31T14:55:45.413+01:00Comments on Hojas de cálculo Excel: Saber si existe un ficheroEl pilt®afilla - www.3piesalgato.comhttp://www.blogger.com/profile/17515836395057154507noreply@blogger.comBlogger5125tag:blogger.com,1999:blog-7983188466168395484.post-87678605572570333552012-04-09T10:49:51.503+02:002012-04-09T10:49:51.503+02:00Y ya para rizar el rizo;
Si trabajamos con documen...Y ya para rizar el rizo;<br />Si trabajamos con documentos *.docx y tras buscarlo no lo encontramos, ¿como lo crearíamos mediante código?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-12098313629716768012008-09-29T10:26:00.000+02:002008-09-29T10:26:00.000+02:00Muchas gracias por tu comentario Jesica. Si no fue...Muchas gracias por tu comentario Jesica. Si no fuera porque ya tengo una edad, hasta podría sonrojarme por tu comentario ;-)<BR/><BR/>La verdad es que a estas horas de un lunes, se agradecen muestras de apoyo como la tuya.<BR/><BR/>Un saludo.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-21885724798151362152008-09-26T23:03:00.000+02:002008-09-26T23:03:00.000+02:00Q bueno que exista gente como tu Javier, tus blogs...Q bueno que exista gente como tu Javier, tus blogs me estan ayudando muchisimo... como dices en alguno de ellos son generalidades, ya depende de nosotros el buscarle mas y explotar mas nuestro excel... no todo nos lo vas a dar masticadito no???? :) seguire explorando.<BR/><BR/>JesicaAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-74396992268667104802008-09-23T11:29:00.000+02:002008-09-23T11:29:00.000+02:00Como parece interesante el tema, vamos a adaptar e...Como parece interesante el tema, vamos a adaptar eso a una función.<BR/><BR/>Copia y pega este código en un módulo:<BR/><BR/>Function buscarfoto(foto As String)<BR/>'Creamos el objeto FileSystemObject<BR/>Set archivo = CreateObject("Scripting.filesystemObject")<BR/>'Creamos una variable para buscar la foto en la<BR/>'carpeta donde tenemos las imágenes, y le añadimos la extensión "jpg"<BR/>ruta_y_archivo = "C:\Mis documentos\img\" & foto & ".jpg"<BR/>'Comprobaremos si existe o no el archivo, y dependiendo<BR/>'del resultado, mostraremos un mensaje u otro<BR/>If ruta_y_archivo <> "" Then<BR/>If archivo.FileExists(ruta_y_archivo) Then<BR/>'Si el fichero existe, mostramos un mensaje<BR/>respuesta = "Foto OK"<BR/>Else<BR/>'Si el fichero no existe, mostramos otro mensaje distinto<BR/>respuesta = "Falta la foto"<BR/>End If<BR/>End If<BR/>'limpiamos el objeto<BR/>Set archivo = Nothing<BR/>'pasamos el dato a la función<BR/>buscarfoto = respuesta<BR/>End Function<BR/><BR/>Cambia la ruta donde tengas las fotos.<BR/><BR/>Para llamar a la función, tan solo debes hacerlo introduciendo el nombre del producto entre comillas y sinla extensión, como en el siguiente ejemplo:<BR/><BR/>=buscarfoto("hp530")<BR/><BR/>Con esto y un bizcocho, hasta mañana a las ocho. Por cierto, si te ha sido de utilidad, puedes mandarme la nueva ipaq HP 614c, by the face :-)El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-40037084850051321322008-09-23T00:32:00.000+02:002008-09-23T00:32:00.000+02:00Muy interesante el uso de este objeto. Yo estoy in...Muy interesante el uso de este objeto. Yo estoy interesado en algo más sencillo ya que tengo una tienda en línea y semanalmente me envían los proveedores las existencias de los productos. Conforme trabajo los productos voy agregando la fotografía en un directorio de imagenes. Lo que necesito es una funcion que me diga si existe un archivo o no para codigo de producto que ingreso. Ejemplo codigo de producto hp530. foto hp530.jpg Debería tener una funcion en alguna celda donde me indicara si existe o no el nombre del archivo que estoy colocando.<BR/><BR/>Gracias<BR/><BR/>Rolando MaldonadoMSVentashttps://www.blogger.com/profile/02803750970289341620noreply@blogger.com