Hoe exporteer je Excel-gegevens om te bekijken vanaf een mobiele telefoon of mobiel apparaat?
Het volgende is een eenvoudig voorbeeld van het gebruik van een macro om één kolom uit een Excel-spreadsheet te exporteren naar een Wml-bestand (Wireless Markup Language), dat naar uw server kan worden geüpload en vanaf een mobiele telefoon kan worden geopend.
Het experiment: Ik heb een lijst in kolom A van Blad1 in Excel met de tracklist van de cd: Perfect Circle - Mer De Noms. Eerst wil ik de gegevens uit Excel exporteren in Wml-formaat, ten tweede uploaden naar mijn server en ten slotte de tracklijst bekijken vanuit de browser van mijn mobiele telefoon. Een grafische weergave:
Om dit te bereiken heb ik een VBA-macro en Wml gebruikt. Voor een basiskennis van Wml verwijs ik je naar een andere tutorial van w3schools.
U kunt het eindresultaat van mijn Excel to Wap-experiment bekijken op het volgende adres:
| 1 | www.automateexcel.com/pl/wap1.wml |
en kan dit doen in de browser van uw mobiele apparaat, kopieer en plak het adres in een wap-emulator, of door deze zeer wazige foto te bekijken (tijd voor een nieuwe digitale camera!).
Probeer het zelf
1. Kopieer de volgende code naar een module in Excel (help?)
2. Plaats wat tekst in kolom A van Blad1 en Opslaan je werkboek
3. Voer de macro uit
4. Er wordt een Wml-bestand gemaakt in dezelfde map als de werkmap die u hebt geopend.
5. Upload het Wml-bestand naar uw server en bekijk het op uw mobiele telefoon.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub-WAP()Dim WapTitle As StringDim WapName As StringDim DocType als stringGedimde teller als geheel getalDocType = ""'locatie om bestand te schrijven'WapName = ThisWorkbook.Path & "/wap1.wml"'Dood het bestand als het al bestaat'Als Len(Dir(WapNaam)) > 0 DanWapnaam dodenStop als'krijg wap-titel'WapTitle = InputBox("Title", "MyInputTitle", _"Voer de titel van uw Wap-site in")'afsluiten indien geen wap-titel'If WapTitle = "Voer de titel van uw Wap-site in" _Of WapTitle = "" DanMsgBox "Sorry dat je een titel nodig hebt - nu stoppen"Sluit subStop als'open werkmap en schrijf wml-headerinfo'Open ThisWorkbook.Path & "wap1.wml" voor toevoegen als #1Afdrukken #1, "<?xml version=""1.0""?>"Afdrukken #1, DocTypeAfdrukken #1, ""Afdrukken #1, ""Afdrukken #1, _""" & WapTitel & """>"Afdrukken #1, ""Afdrukken #1, "
"'loop door blad1, schrijf inhoud'Voor Teller = 1 Naar ActiveSheet.UsedRange.Rows.CountIndien Niet Is Leeg(Blad1.Cellen(Teller, 1)) DanAfdrukken #1, Blad1.Cellen(Teller, 1) & " |
Credit: "Schrijf naar tekstbestand" code is een afgeleide van J-walk's log-gebruikers.
Conclusie: Na mijn korte introductie tot Wml lijkt het ook haalbaar om meerdere pagina's van data te maken, en een menu met links te maken voor meerdere datasets. Ik zou ook graag een toepassing willen onderzoeken om de gebruiker een manier te bieden om een grote dataset te doorzoeken die is geëxporteerd vanuit Excel-gegevens.
Eventuele meningen of ideeën over het exporteren van Excel naar Wml, met name mogelijk gebruik of andere gedachten?
