Como você exporta dados do Excel para serem visualizados em um telefone celular ou dispositivo móvel?
A seguir está um exemplo básico de como usar uma macro para exportar uma coluna de uma planilha do Excel para um arquivo Wml (Wireless Markup Language), que pode ser carregado em seu servidor e acessado de um telefone celular.
O experimento: Eu tenho uma lista na coluna A da Planilha 1 no Excel com a lista de faixas do CD: Perfect Circle - Mer De Noms. Primeiro, quero exportar os dados do Excel em formato Wml, depois, fazer o upload para o meu servidor e, finalmente, visualizar a tracklist do navegador do meu telefone celular. Uma representação gráfica:
Para fazer isso, usei uma macro VBA e Wml. Para uma compreensão básica do Wml, indico outro tutorial da w3schools.
Você pode ver o resultado final do meu experimento Excel para Wap no seguinte endereço:
| 1 | www.automateexcel.com/pl/wap1.wml |
e pode fazer isso no navegador do seu dispositivo móvel, copie e cole o endereço em um emulador wap, ou visualizando esta imagem borrada (hora de uma nova câmera digital!).
Tente você mesmo
1. Copie o seguinte código para um módulo no Excel (ajuda?)
2. Coloque algum texto na Coluna A da Folha 1 e Salve sua apostila
3. Execute a macro
4. Um arquivo Wml será criado na mesma pasta da pasta de trabalho que você abriu.
5. Faça o upload do arquivo Wml para o seu servidor e visualize no celular.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle As StringDim WapName As StringDim DocType As StringDim Counter As IntegerDocType = ""'localização para escrever o arquivoWapName = ThisWorkbook.Path & "/wap1.wml"'Mate o arquivo se ele já existirSe Len (Dir (WapName))> 0 EntãoMate WapNameFim se'get wap titleWapTitle = InputBox ("Título", "MyInputTitle", _"Digite o título do seu site Wap")'sair se não houver título wapIf WapTitle = "Digite o título do seu site Wap" _Ou WapTitle = "" EntãoMsgBox "Desculpe, você precisa de um título - Sair agora"Sair do SubFim se'abrir a pasta de trabalho e escrever as informações do cabeçalho wmlAbra ThisWorkbook.Path & "wap1.wml" para anexar como # 1Imprimir # 1, "<? Xml version =" "1.0" "?>"Imprimir # 1, DocTypeImpressão nº 1, ""Impressão nº 1, ""Impressão # 1, _"" "& WapTitle &" ""> "Impressão nº 1, ""Impressão nº 1, "
"'loop through sheet1, write contentsPara Counter = 1 To ActiveSheet.UsedRange.Rows.CountIf Not IsEmpty (Sheet1.Cells (Counter, 1)) ThenImprimir # 1, Folha1.Células (Contador, 1) & " |
Crédito: o código "Gravar em arquivo de texto" é um derivado dos usuários de log de J-walk.
Conclusão: após minha breve introdução ao Wml, também parece viável criar várias páginas de dados e criar um menu de links para vários conjuntos de dados. Também gostaria de pesquisar um aplicativo para apresentar ao usuário uma maneira de pesquisar um grande conjunto de dados exportado de dados do Excel.
Alguma opinião ou ideia sobre o tópico de exportação do Excel para Wml, usos particularmente possíveis ou outras ideias?
