VBA<\/strong> es el lenguaje de programaci\u00f3n que usan las aplicaciones de Microsoft Office<\/strong> que permite programar acciones para estas aplicaciones que por s\u00ed solas no pueden realizar.<\/p>\n

Cuando construimos una macro (por ejemplo), la aplicaci\u00f3n Office correspondiente escribe el c\u00f3digo equivalente\u00a0en VBA, \u00a0que realiza las operaciones que hemos indicado en esa macro.<\/p>\n

En este post quiero comentar c\u00f3mo abrir una URL desde VBA<\/strong><\/em>. Este es un problema al que me enfrent\u00e9 recientemente y encontr\u00e9 m\u00faltiples soluciones de entre las que eleg\u00ed la que aporto a continuaci\u00f3n.<\/p>\n

Esta simple operaci\u00f3n nos permitir\u00eda realizar en la web cosas que le indiquemos desde la aplicaci\u00f3n office deseada. Bastar\u00e1 con programar en la web una p\u00e1gina con todo lo\u00a0que deseemos realizar. Estas operaciones podr\u00edan ir desde guardar datos en bases de datos que esten en la web, a realizar env\u00edos masivos de emails o simplemente visualizar alguna p\u00e1gina que nos interese.<\/p>\n

En el ejemplo que voy a mostrar se va a hacer una llamada silenciosa, de modo que el usuario de la aplicaci\u00f3n ni se va a enterar.<\/p>\n

En otros casos puede que nos interese visualizar una p\u00e1gina o ver alg\u00fan resultado. Como digo en este ejemplo simplemente se va a realizar la llamada a la URL sin necesidad de ver\u00a0nada mas.<\/p>\n

Const READYSTATE As Integer = 4<\/strong><\/p>\n

Dim objIE As Object Set objIE = CreateObject(\u00abInternetExplorer.Application\u00bb)<\/strong><\/p>\n

With objIE<\/strong><\/p>\n

.Visible = False<\/strong><\/p>\n

.Silent = True<\/strong><\/p>\n

.Navigate \u00abhttp:\/\/midominio.com\/envioadjunto.php?nombre=pepe\u00bb<\/strong><\/p>\n

Do Until .READYSTATE = READYSTATE<\/strong><\/p>\n

DoEvents<\/strong><\/p>\n

Loop<\/strong><\/p>\n

End With<\/strong><\/p>\n

objIE.Quit<\/strong><\/p>\n

Set objIE = Nothing<\/p><\/blockquote><\/strong><\/p>\n

El c\u00f3digo anterior como digo lo que har\u00e1 ser\u00e1 enviar un mensaje con un contenido concreto a un usuario llamado pepe. El fichero\u00a0envioadjunto.php<\/em> ser\u00e1 el que previamente habremos programado para tal fin.<\/p>\n

Al poner visible a false no se mostrar\u00e1 nada y todo ser\u00e1 transparente para el usuario.<\/p>\n

<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

VBA es el lenguaje de programaci\u00f3n que usan las aplicaciones de Microsoft Office que permite programar acciones para estas aplicaciones que por s\u00ed solas no pueden realizar. Cuando construimos una macro (por ejemplo), la aplicaci\u00f3n Office correspondiente escribe el c\u00f3digo equivalente\u00a0en VBA, \u00a0que realiza las operaciones que hemos indicado en esa macro. En este post quiero comentar c\u00f3mo abrir una URL desde VBA. Este es un problema al que me enfrent\u00e9 recientemente y encontr\u00e9 m\u00faltiples soluciones de entre las que eleg\u00ed la que aporto a continuaci\u00f3n. Esta simple operaci\u00f3n nos permitir\u00eda realizar en la web cosas que le indiquemos desde la aplicaci\u00f3n office deseada. Bastar\u00e1 con programar en la web una p\u00e1gina con todo lo\u00a0que deseemos realizar. Estas operaciones podr\u00edan ir desde guardar datos en bases de datos que esten en la web, a realizar env\u00edos masivos de emails o simplemente visualizar alguna p\u00e1gina que nos interese. En el ejemplo que voy a mostrar se va a hacer una llamada silenciosa, de modo que el usuario de la aplicaci\u00f3n ni se va a enterar. En otros casos puede que nos interese visualizar una p\u00e1gina o ver alg\u00fan resultado. Como digo en este ejemplo simplemente se va a realizar la llamada […]<\/p>\n","protected":false},"author":3,"featured_media":2824,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[1,27,427],"tags":[501,499,500],"jetpack_featured_media_url":"http:\/\/piloto.foc.es\/wp-content\/uploads\/2016\/07\/VBA-foc.jpg","jetpack_sharing_enabled":true,"jetpack-related-posts":[],"jetpack_shortlink":"https:\/\/wp.me\/p6jO3Y-Jt","amp_validity":null,"amp_enabled":true,"_links":{"self":[{"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/posts\/2819"}],"collection":[{"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/comments?post=2819"}],"version-history":[{"count":6,"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/posts\/2819\/revisions"}],"predecessor-version":[{"id":2826,"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/posts\/2819\/revisions\/2826"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/media\/2824"}],"wp:attachment":[{"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/media?parent=2819"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/categories?post=2819"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/piloto.foc.es\/wp-json\/wp\/v2\/tags?post=2819"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}