Hur exporterar du Excel -data för visning från en mobiltelefon eller mobil enhet?
Följande är ett grundläggande exempel på att använda ett makro för att exportera en kolumn från ett Excel -kalkylblad till en Wml -fil (Wireless Markup Language), som kan laddas upp till din server och nås från en mobiltelefon.
Experimentet: Jag har en lista i kolumn A i Sheet1 i Excel med låtlistan från CD: n Perfect Perfect - Mer De Noms. Först vill jag exportera data från Excel i Wml -format, för det andra ladda upp till min server och slutligen visa spårlistan från min mobiltelefons webbläsare. En grafisk framställning:
För att uppnå detta använde jag ett VBA -makro och Wml. För en grundläggande förståelse av Wml hänvisar jag till en annan handledning från w3schools.
Du kan se det slutliga resultatet av mitt Excel to Wap -experiment på följande adress:
| 1 | www.automateexcel.com/pl/wap1.wml |
och kan göra det i din mobila enhets webbläsare, kopiera och klistra in adressen i en wap -emulator, eller genom att titta på den här suddiga bilden (dags för en ny digitalkamera!).
Prova själv
1. Kopiera följande kod till en modul i Excel (hjälp?)
2. Lägg lite text i kolumn A i blad1 och Spara din arbetsbok
3. Kör makrot
4. En Wml -fil skapas i samma mapp som den öppna arbetsboken.
5. Ladda upp Wml -filen till din server och visa den i mobiltelefon.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle som strängDim WapName Som strängDim DocType som strängDim räknare som heltalDocType = ""'plats för att skriva filWapName = ThisWorkbook.Path & "/wap1.wml"'Döda filen om den redan finnsOm Len (Dir (WapName))> 0 DåDöda WapNameAvsluta om'få wap -titelWapTitle = InputBox ("Titel", "MyInputTitle", _"Ange titeln på din Wap -webbplats")'avsluta om ingen wap -titelIf WapTitle = "Ange titeln på din Wap -webbplats" _Eller WapTitle = "" DåMsgBox "Ledsen att du behöver en titel - sluta nu"Avsluta SubAvsluta om'öppna arbetsbok och skriva wml -rubrikinformationÖppna ThisWorkbook.Path och "wap1.wml" för att lägga till som nr 1Skriv ut #1, "<? Xml version =" "1.0" "?>"Skriv ut #1, DocTypeSkriv ut #1, ""Skriv ut #1, ""Skriv ut #1, _"" "& WapTitle &" ""> "Skriv ut #1, ""Skriv ut #1, "
"'bläddra igenom blad1, skriv innehållFör räknare = 1 till ActiveSheet.UsedRange.Rows.CountIf Not IsEmpty (Sheet1.Cells (Counter, 1)) SedanSkriv ut #1, Sheet1.Cells (Counter, 1) & " |
Kredit: "Skriv till textfil" -koden är ett derivat av J-walk-logganvändare.
Slutsats: Efter min korta introduktion till Wml verkar det också möjligt att skapa flera sidor från data och skapa en meny med länkar för flera uppsättningar data. Jag skulle också vilja undersöka en applikation för att presentera användaren med ett sätt att söka i en stor datamängd som exporteras från Excel -data.
Har du några åsikter eller idéer om att exportera Excel till Wml, särskilt möjliga användningsområden eller andra tankar?
