sábado, 31 de agosto de 2019

Ver nuestro archivo Excel a través de una web

En muchas ocasiones he recibido consultas sobre cómo lograr que nuestro archivo Excel se vea a través de una web y que, al actualizar los datos del archivo, automáticamente se visualicen en dicha web (Ojo, no descargar un archivo, sino, verlo en la misma web). La primera respuesta que casi siempre se lee o escucha es “no se puede”, pues incluso convirtiendo un archivo Excel en formato HTML al ser incluido en una página web, necesariamente hay que reemplazar el archivo por uno nuevo para que se vean los datos actualizados. Entonces ¿es correcto responde que no se puede? Veámoslo hoy.

En esta ocasión vamos a suponer que queremos compartir a través de una pagina web los resultados de nuestras ventas, incluyendo algún gráfico, y tal como hemos mencionado queremos que cualquier persona lo vea y tan solo utilizando Excel. Nuestra hoja tiene de este modo los datos y un gráfico:



Ahora guardaremos nuestro archivo en OneDrive, en mi caso, y para facilitar las cosas, tengo la app respectiva en el Windows 10 de mi portátil.

Una vez guardado, ya sea por web o por la app, podremos ver dicho archivo en nuestro OneDrive

.

En la versión web de OneDrive, dale clic derecho al archivo y elige “Insertar”.

En la ventana que se abrirá dale clic al botón “Generar”

.

En la siguiente ventana dale clic a “Personalizar la forma en que este libro insertado se mostrará a otros usuarios”.

En la página que se abrirá, personalicen la hoja de Excel eligiendo las opciones que más les convengan para que las personas visualicen.

Una vez hecho eso, no olvides copiar el código del final de la página.

No olvides guardar el código copiado en algún lado, como por ejemplo en el Bloc de Notas.

En nuestra web, crearemos una página, en mi caso uso Blogger y se vería algo así, tanto en diseño como en código HTML.

Ahora agregaremos el código copiado a nuestra página web. Debería quedar algo así:

Luego, en nuestra web debería verse como esto, por supuesto dependiendo del tamaño que hayamos elegido, así como las opciones activadas.

Ahora, cuando cambien los datos en su archivo de Excel, sea en la app o a través de Excel Online, dichas modificaciones ser podrán visualizar directamente en el enlace respectivo. En mi caso, este: Enlace

Y eso es todo por hoy, espero les sea útil.

Abraham Valencia

Nota: El formato de fecha, separador de miles o separador de decimales que se ve en la web generada, depende del de tu Excel Online.

lunes, 19 de agosto de 2019

Cambio de divisas con macros (VBA)

No es inhabitual que muchas personas por razones de trabajo, estudio o personales, necesiten saber el cambio de su moneda nacional por alguna extranjera o quizá entre aquellas. Hoy en día, y con la masificación del uso de internet, es muy fácil encontrar miles de webs que realizan el cambio de modo rápido e incluso de forma gratuita, pero veamos cómo podemos tener esto en nuestro archivo de Excel.

Lo primero es mencionar que usaremos el objeto Internet Explorer que, si bien en ocasiones puede ser un poco lento, es más fácil de entender y usar (Enlace). Segundo, para el ejercicio vamos a usar la siguiente web: Enlace. Y tercero e importante, para tener los tipos de moneda vamos a usar el estándar internacional ISO 4217 que fue creado por la ISO con el objetivo de definir códigos de tres letras para todas las divisas del mundo (Enlace).

Ahora veamos como funciona la web de cambio. Si entramos a ella, ingresamos un monto y elegimos los tipos de moneda:

Al darle clic al botón correspondiente nos hará el cambio de divisas solicitado.

Lo que más nos interesa es el enlace generado. Veámoslo con detalle:

https://www.xe.com/es/currencyconverter/convert/?Amount=100&From=PEN&To=USD

Como quizás ya se dieron cuenta, aparece el monto (100), así como el código de las dos monedas seleccionadas (PEN y USD).  Si prueban más montos y monedas verán el mismo efecto. Ojo con algo importante, dicha web solo acepta la coma (,) como separador de decimales, nunca el punto (.). Entonces, si logramos reemplazar el monto y los códigos con los que necesitemos, y lo enviamos a Internet Explorer, tendremos los resultados que necesitamos.

Para los códigos de las monedas podemos conseguirlos de enlace respectivo que he compartido líneas arriba de tal modo que en una hoja (que yo he llamado “Códigos”) tendremos algo así:

Creen un Userform y agréguenle un TextBox y dos Combobox (y algunos Labels como título y sub títulos, si desean claro).

Como vieron yo en mi hoja “Códigos” tengo tres columnas: Código (que es el que más nos interesa), divisa (moneda) y el país; por ende, en la propiedad ColumnCount he colocado 3. Para llenarlos he usado el evento Initialize del Userform.

Private Sub UserForm_Initialize() 
Me.CmbCodigos.RowSource = "=Códigos!A2:C180" 
Me.CmbCodigos2.RowSource = "=Códigos!A2:C180" 
End Sub 

Con el TextBox vamos a hacer que solamente acepte números y la coma decimal (no olviden que la web no acepta punto como separador de decimales) haciendo uso de su evento KeyPress. Ah, por cierto, solo dejaremos que se ingrese una coma como máximo.

Private Sub TxtMoneda_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 44 Then
     KeyAscii = 0 
End If 
End Sub  

También agregaremos algunos Label más para los resultados obtenidos, así como un botón.

Ahora en el evento Click del botón vamos a agregar tres variables que reemplazarán al monto y las dos divisas a reemplazar para usar el mismo enlace que obtuvimos líneas arriba. Además, vamos a obtener los valores del cambio y pasarlos a nuestros Label. Como ya en otro artículo he explicado como usar los valores de los elementos/objetos de la web, aquí simplemente los colocaré directamente. Entonces, el código quedará así:

Private Sub CmdCambio_Click() 

Dim IE As Object 
Dim MiMonto$, maCambiar$, mCambio$, MiURL$ 

If TxtMoneda = "" Or CmbCodigos = "" Or CmbCodigos2 = "" Then
     MsgBox "No dejes campos en blanco", vbOKOnly, "Todo Sobre Excel"
     TxtMoneda.SetFocus
     Exit Sub 
End If 

Application.Cursor = xlWait 

Set IE = CreateObject("InternetExplorer.Application") 
Let MiMonto = TxtMoneda: Let maCambiar = CmbCodigos: Let mCambio = CmbCodigos2 
Let MiURL = "https://www.xe.com/es/currencyconverter/convert/?Amount=" & MiMonto & "&From=" & CmbCodigos & "&To=" & CmbCodigos2 

IE.Navigate MiURL 

Do Until IE.ReadyState = 4
     DoEvents 
Loop 

Label6 = IE.document.getElementsByClassName("converterresult-conversionTo")(0).innerText 
Label7 = IE.document.getElementsByClassName("sc-EHOje lkcPkj")(0).innerText & _
     vbNewLine & IE.document.getElementsByClassName("sc-EHOje lkcPkj")(1).innerText 

IE.Quit 

Application.Cursor = xlDefault 

Set IE = Nothing 

End Sub   

Si todo quedó bien obtendremos un resultado de este estilo:

Y eso es todo por hoy, hasta la próxima.

.Abraham Valencia

Descargue el ejemplo aquí

viernes, 9 de agosto de 2019

Datos de encuestas en línea a través de Excel y Power Query (I): Formularios Google, Hoja de Cálculo de Google y Google Drive

Ya hace varias semanas escribí sobre cómo conectar Excel con un archivo de la Hoja de Cálculo de Google (Enlace) y con un archivo de Excel que se encuentra en OneDrive Personal (Enlace). A raíz de esos artículos algunas personas me preguntaron que si era posible hace encuestas y, tal cuál como los ejemplos citados, conectarlas con un archivo de Excel en nuestra PC. Probablemente lo primero que uno dirá es que casi todas las encuetas en línea tienen la herramienta para exportar a Excel, pero la idea es no tener que estar entrando a la encuesta sino hacerlo todo desde nuestra PC. Pues bueno, eso es lo que haremos hoy.

Comenzaremos con los Formularios de Google (Personal). Crearemos una encuesta para el ejemplo con solo cuatro preguntas.

Para poder probar formatos, como ven, una es de texto, otra de fecha, una con opción de elección y una última numérica. Luego en la parte superior de la encuesta vamos a elegir la opción “Respuestas” y en ella veremos un botón verde (“Crear hoja de cálculo) al que le daremos clic.

En las opciones que salen elijan la que mejor les convenga; yo pondré “Crear una hoja de cálculo”.

Si hicimos todo bien tendremos algo como esto en nuestra pantalla:

Supongamos que ya difundieron el enlace de la encuesta y en ella ya hay varios datos que queremos ir viendo/analizando en nuestro Excel, entonces lo que haremos ahora es ir al menú “Archivo” en nuestra hoja de cálculo de Google y elegir la opción “Publicar en la Web” (a partir de aquí casirepetiré pasos de un artículo anterior, pero realmente creo que vale la pena).

En el cuadro de dialogo que sale vamos a elegir, en la primera lista, el nombre de la encuesta (en mi caso “Respuestas de formulario 1”) y en la segunda lista vamos a elegir la opción “Valores separados por tabuladores (.tsv)”. En la parte inferior verificar que el check de “Volver a publicar automáticamente cuando se hagan cambios” esté activado. Ahora démosle clic al botón “Publicar”.

Luego de ello, Google nos brindará un enlace que debemos copiar. No olvidar eso o no podremos realizar la conexión.

Luego de todo eso, vamos Excel. En el libro y hoja en donde queremos los datos vamos a la pestaña “Datos” y en el grupo “Obtener y transforma datos” vamos a darle clic al botón “Desde el texto/CSV” y en el cuadro de dialogo que se abrirá, pegaremos el enlace de Google en la parte de “Nombre de archivo:”

Veremos cómo se abre el editor de Power Query y ahí le daremos doble clic a la imagen en donde dice “docs.google.com”.

El resultado, si hicimos todo bien, debe ser similar a este:

Si lo notaron, es como que todos los datos están en una sola columna, pero no se preocupen, ya lo arreglaremos. Además, si al igual que en mi caso hay tildes en las respuestas y algunos datos se ven con caracteres raros como en la imagen anterior, no se preocupen, hay una forma de arreglarlo. En el editor de Power Query vamos a la pestaña “Inicio” y en el grupo “Consulta” elige el botón “Editor avanzado” y al abrirse buscaremos los siguiente:

¿Ven el número 1252? Pues reemplácenlo por el 65001, que es el correspondiente al formato UTF-8, denle clic al botón “Listo” y ahora los datos se verán así:

Ahora elijan la pestaña “Transformar” y en el grupo “Tabla” elige “Usar la primera fila como encabezado” y en la lista que se despliega elige la opción del mismo nombre. En el grupo “Columna de texto” elige “Dividir columna” y ahí “Por delimitador”, en el cuadro que tendrán a la vista, verifiquen que estas opciones estén activadas y denle click a “Aceptar”:

Nuestros datos se verán, ahora, algo así:

Si se dan cuenta los encabezados están precedidos de las palabras “Marca temporal”, no se preocupen, denles doble clic y edítenlos. No olviden que, si bien la encuesta tiene cuatro preguntas, Google adiciona una (la del extremo izquierdo) en donde guarda la fecha y hora en que se ingresaron los datos respectivos.

En la pestaña “Archivo” elijan “Cerrar y cargar” para enviar los datos a nuestra hoja de Excel.

Ahora en la pestaña “Datos” de la Cinta de Opciones, vayan al grupo “Consultas y conexiones”, denle clic al botón “Actualizar todo” y en la lista respectiva elijan “Propiedades de conexión…” y en la pestaña “Uso” activen, si lo desean, “Actualizar cada” y coloquen la cantidad de minutos deseados, activen la opción “Actualizar al abrir el archivo” y verifiquen que la opción “Actualizar esta conexión en Actualizar Todo” esté activada; por último, activar “Habilitar la carga de datos”.

Listo, ahora nuestra hoja de Excel se actualizará con los datos que se cambien/agreguen/eliminen en nuestra encuesta, ah, y lo bueno es que se respetarán los encabezados que editamos, así como las tildes. Espero les sea útil. Hasta la próxima.

Abraham Valencia