Jump to content

Buscador de ficheros Excel (Busca, Vista Previa, Imprime y Abre) 1.2.0

   (0 reviews)

1 Screenshot

About This File

Qué tal,

Después de mucho preguntar en el foro y búsquedas en internet, dejo este buscador de ficheros excel:

- El directorio de búsqueda por defecto está en el código y por defecto es "C:\". Si no se necesita otro directorio, se introduce directamente el nombre a buscar

- Permite buscar en los subdirectorios del directorio principal seleccionado, si se necesita la búsqueda en otro directorio

- Las búsquedas de ficheros se hace mediante comodines, por lo que solo es necesario introducir parte del nombre a buscar

- Permite la visualización previa de el área de impresión del archivo seleccionado

- Permite imprimir el área de impresión del fichero seleccionado

- Permite abrir los ficheros seleccionados para su modificación

- Los datos usados se copian en la Hoja1 del fichero subido. El color de la fuente está en blanco para no molestar (cambiar para ver los datos y la fórmula usada para el nombre del fichero

Agradecimientos y Créditos:

- A la página de Stephen Bullen por la función PastePicture (PastePicture)

- La página de EXCELTOTAL por la fórmula para extraer el nombre del último directorio (EXCELTOTAL)

- Al usuario Macro Antonio por su buscador de ficheros (Abrir Archivos)

- A todos los usuarios que han contestado ayudándome en los post que he ido repartiendo por el foro ;)

- A todas las páginas que he visitado y de las que no me acuerdo... Si se ven reflejados en el archivo dense por agradecidos.

Bueno, espero que les sirva. Saludos,

 

Haplox


What's New in Version 1.2.0   See changelog

Released

Versión 1.1.0

  • Se añaden los cambios propuestos por Riddle para que el archivo sea compatible con Office x64

Versión 1.2.0

  • Se elimina el primer UserForm y se hace todo desde un único UserForm
  • Cambio en el diseño visual
  • Ahora Excel queda invisible al ejecutarlo. Se puede volver a él con el botón "Salir"



User Feedback

Recommended Comments

Lo siento Callao2908, está creado en Excel 2010 sobre un windows de 32 bits, no sé cómo podría arreglarlo, no tengo acceso a uno de 64 bits. A ver si alguien del foro puede echare una mano

Share this comment


Link to comment
Share on other sites

Hola @Callao2908 y @Haplox, para la versión de Office x64 se debe agregar una pequeña instrucción al los Declare. que seria PtrSafe, esto hace compatible una instrucción de 32bits a 64bits. 

Básicamente tendrían que reemplazar las declaraciones del modulo "modPastePicture" para que queden de esta forma:

Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As LongPtr
'Open the clipboard to read
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
'Get a pointer to the bitmap/metafile
Private Declare PtrSafe Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As LongPtr
'Close the clipboard
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
'Convert the handle into an OLE IPicture interface.
Private Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As LongPtr, IPic As IPicture) As LongPtr
'Create our own copy of the metafile, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As LongPtr, ByVal lpszFile As String) As LongPtr
'Create our own copy of the bitmap, so it doesn't get wiped out by subsequent clipboard updates.
Declare PtrSafe Function CopyImage Lib "user32" (ByVal handle As LongPtr, ByVal un1 As LongPtr, ByVal n1 As LongPtr, ByVal n2 As LongPtr, ByVal un2 As LongPtr) As LongPtr
'The API format types we're interested in

Con esta modificación debería trabajar sin problemas tanto en office x86 como x64.

Saludos.

Share this comment


Link to comment
Share on other sites
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5