Archivo de la etiqueta: Application

Truco Excel. Application GetOpenFilename el explorador de archivos sencillo en macro

Application.GetOpenFilename y como parámetros el texto y el tipo de archivo. Un truco excel para meter en una macro el explorador de archivos más sencillo. Por ejemplo para obtener los archivos de Word de un directorio podremos hacer:

Sub obtiene_documento()
Dim documento As String
documento = Application.GetOpenFilename("Archivos Word (*.doc*), *.doc*")
Cells(1, 1) = documento
End Sub

Si ejecutamos esta macro se abrirá un explorador de windows y podremos seleccionar archivos del tipo *.doc*. Nuestra selección la escribimos en la celda (1,1). Para múltiples selecciones… Otro día haremos un “importador masivo” de datos en excel. El más sencillo explorador de windows en una macro de Excel. Saludos.

Trucos Excel. Modificar la configuración regional con Visual Basic

Con Visual Basic podemos modificar la configuración regional. Podemos crear macros en Excel que nos realicen esta tarea. De este modo si trabajamos con aplicaciones que tienen configuración americana podemos cambiar con una macro, pegar los valores y volver a cambiar la configuración. Para poner separador decimal “.” y separador de miles “,” tendremos que emplear el siguiente código:

Sub formato_americano()'' formato_americano Macro'
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With
End Sub

Es un excelente ejemplo de uso de Application. De forma análoga si deseamos volver a la configuración europea solo debemos emplear los separadores del sistema:

Sub formato_europeo() ' formato_americano Macro
With Application.UseSystemSeparators = True
End With
End Sub

Todo esto también lo podemos hacer desde el menú herramientas->opciones->internacional. Pero si creamos dos macros en nuestro libro personal y personalizando los menús asignamos dos botones a estas macros podemos copiar y pegar datos desde SAS a Excel (por ejemplo) sin tener que jugar con los formatos de SAS, podemos tener perfectamente tuneado nuestro Excel.

Está feo que lo diga yo, pero este truco Excel es impresionante y para todos aquellos que trabajamos con SAS o Res de gran utilidad. Si tenéis dudas o un trabajo a media jornada: rvaquerizo@analisisydecision.es

Saludos.