Excel

El siguiente truco Excel es muy sencillo. Se trata de una consulta web que nos permite obtener el cambio de divisas a Euro casi practicamente on-line. La consulta se realiza sobre la web www.finanzas.com sitio que además quiero recomendar, desde él sigo la imparable caida de mis valores… La consulta es la siguiente: Sub cambio_divisas() ' ' With Application .DecimalSeparator = "." .ThousandsSeparator = "," .UseSystemSeparators = False End With With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.finanzas.com/divisas", Destination:=Range("A1")) .Name = "divisas_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "1" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With With Application .DecimalSeparator = "." .ThousandsSeparator = "," .UseSystemSeparators = True End With End Sub Primero cambiamos los separadores de miles y decimales, posteriormente realizamos la consulta a www.finanzas.com/divisas y ya tenemos tabulada la información. Además no sobreescribimos anteriores consultas, siempre se añadirán gracias a RefreshStyle por lo que podemos hacer un seguimiento del cambio. A mí me ha sido muy útil para seguir el efecto del precio de unos fondos de inversión.

Inicio una serie de mensajes con trucos de Excel que considero pueden ser de utilidad para realizar tareas habituales en nuestro trabajo diario. Este primer truco Excel consiste en una macro que nos permite crear en borradores correos electrónicos. También nos permitiría enviarlos directamente, pero en ese caso habríamos de tener permisos para que otras aplicaciones accedieran a Outlook. Veamos el código que emplea: Sub Correo() Dim ol As Object, myItem As Object Dim adjunto As String Set ol = CreateObject("outlook.application") Set myItem = ol.CreateItem(olMailItem) adjunto = "C:\\temp\\fichero.xls" With myItem .Subject = "Titulo del correo" .Body = "Cuerpo del mensaje" .To = "rvaquerizo@analisisydecision.es" .Attachments.Add adjunto, 1, 500 .Close (olSave) '.send (ol) 'Si tenemos permisos para enviar correos End With Set ol = Nothing End Sub Creamos un objeto Outlook y a ese objeto le añadimos título, cuerpo, destinatario, un archivo adjunto de C:/temp y lo guardamos como borrador, si tenemos los suficientes permisos podremos enviarlos con .Send Como os podéis imaginar esta es la versión menos sofisticada de la macro y a ella podemos añadir bucles, busquedas,… Espero que pueda seros de utilidad. Por supuesto si no funciona o tenéis dudas rvaquerizo@analisisydecision.es