¿Cómo exporta datos de Excel para verlos desde un teléfono celular o dispositivo móvil?
El siguiente es un ejemplo básico del uso de una macro para exportar una columna de una hoja de cálculo de Excel a un archivo Wml (Wireless Markup Language), que se puede cargar en su servidor y acceder desde un teléfono celular.
El experimento: tengo una lista en la columna A de Sheet1 en Excel con la lista de pistas del CD: Perfect Circle - Mer De Noms. Primero quiero exportar los datos de Excel en formato Wml, segundo, subirlos a mi servidor y finalmente ver la lista de canciones desde el navegador de mi teléfono celular. Una representación gráfica:
Para lograr esto, utilicé una macro VBA y Wml. Para una comprensión básica de Wml, lo remito a otro tutorial de w3schools.
Puede ver el resultado final de mi experimento de Excel a Wap en la siguiente dirección:
| 1 | www.automateexcel.com/pl/wap1.wml |
y puede hacerlo en el navegador de su dispositivo móvil, copiar y pegar la dirección en un emulador de wap, o al ver esta imagen muy borrosa (¡hora de una nueva cámara digital!).
Inténtalo tú mismo
1. Copie el siguiente código a un módulo en Excel (¿ayuda?)
2. Coloque algo de texto en la columna A de Sheet1 y Ahorrar tu libro de trabajo
3. Ejecute la macro
4. Se creará un archivo Wml en la misma carpeta que el libro de trabajo que tiene abierto.
5. Cargue el archivo Wml en su servidor y véalo en el teléfono celular.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle como cadenaDim WapName como cadenaDim DocType como cadenaContador de atenuación como enteroDocType = ""'ubicación para escribir el archivoWapName = ThisWorkbook.Path & "/wap1.wml"'Mata el archivo si ya existeSi Len (Dir (WapName))> 0 EntoncesMatar WapNameTerminara si'obtener título wapWapTitle = InputBox ("Título", "MyInputTitle", _"Ingrese el título de su sitio Wap")'salir si no hay título wapSi WapTitle = "Ingrese el título de su sitio Wap" _O WapTitle = "" EntoncesMsgBox "Lo siento, necesita un título - Salir ahora"Salir de SubTerminara si'abra el libro de trabajo y escriba la información del encabezado wmlAbra ThisWorkbook.Path & "wap1.wml" para agregar como n. ° 1Imprimir n. ° 1, "<? Xml version =" "1.0" "?>"Imprimir n. ° 1, Tipo de documentoImprimir n. ° 1, ""Imprimir n. ° 1, ""Imprimir n. ° 1, _"" "& WapTitle &" ""> "Imprimir n. ° 1, ""Imprimir n. ° 1, "
"'recorrer la hoja1, escribir el contenidoPara contador = 1 a ActiveSheet.UsedRange.Rows.CountSi no está vacío (Sheet1.Cells (Counter, 1)) EntoncesImprimir # 1, Sheet1.Cells (Contador, 1) & " |
Crédito: el código "Escribir en archivo de texto" es un derivado del registro de usuarios de J-walk.
Conclusión: después de mi breve introducción a Wml, también parece factible crear varias páginas a partir de datos y crear un menú de enlaces para varios conjuntos de datos. También me gustaría investigar una aplicación para presentarle al usuario una forma de buscar un gran conjunto de datos exportados de datos de Excel.
¿Alguna opinión o idea sobre el tema de la exportación de Excel a Wml, usos particularmente posibles u otros pensamientos?
