Hvordan eksporterer du Excel -data til visning fra en mobiltelefon eller mobilenhed?
Følgende er et grundlæggende eksempel på at bruge en makro til at eksportere en kolonne fra et Excel -regneark til en Wml -fil (Wireless Markup Language), som kan uploades til din server og få adgang til fra en mobiltelefon.
Eksperimentet: Jeg har en liste i kolonne A i Sheet1 i Excel med nummerlisten fra cd'en: Perfect Circle - Mer De Noms. Først vil jeg eksportere data fra Excel i Wml -format, for det andet uploade til min server og endelig se sporlisten fra min mobiltelefons browser. En grafisk fremstilling:
For at opnå dette brugte jeg en VBA -makro og Wml. For en grundlæggende forståelse af Wml henviser jeg dig til en anden vejledning fra w3schools.
Du kan se det endelige resultat af mit Excel to Wap -eksperiment på følgende adresse:
| 1 | www.automateexcel.com/pl/wap1.wml |
og kan gøre det i din mobilenheds browser, kopiere og indsætte adressen i en wap -emulator eller ved at se dette meget uskarpe billede (tid til et nyt digitalkamera!).
Prøv det selv
1. Kopier følgende kode til et modul i Excel (hjælp?)
2. Placer noget tekst i kolonne A i Sheet1 og Gemme din arbejdsbog
3. Kør makroen
4. Der oprettes en Wml -fil i den samme mappe som den projektmappe, du har åbnet.
5. Upload Wml -filen til din server, og se den i mobiltelefon.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle som strengDim WapName som strengDim DocType som strengDim tæller som heltalDocType = ""'placering til at skrive filWapName = ThisWorkbook.Path & "/wap1.wml"'Dræb filen, hvis den allerede findesHvis Len (Dir (WapName))> 0 SåDræb WapNameAfslut Hvis'få wap -titelWapTitle = InputBox ("Titel", "MyInputTitle", _"Indtast titlen på dit Wap -websted")'exit, hvis der ikke er en wap -titelHvis WapTitle = "Indtast titlen på dit Wap -websted" _Eller WapTitle = "" SåMsgBox "Beklager, at du har brug for en titel - stopper nu"Afslut SubAfslut Hvis'Åbn projektmappe, og skriv wml header -oplysningerÅbn ThisWorkbook.Path og "wap1.wml" til tilføjelse som nr. 1Udskriv nr. 1, "<? Xml version =" "1.0" "?>"Udskriv #1, DocTypeUdskriv nr. 1, ""Udskriv nr. 1, ""Udskriv #1, _"" "& WapTitle &" ""> "Udskriv nr. 1, ""Udskriv nr. 1, "
"'loop gennem ark1, skriv indholdFor tæller = 1 Til ActiveSheet.UsedRange.Rows.CountIf Not IsEmpty (Sheet1.Cells (Counter, 1)) HerefterUdskriv #1, Ark1.Celler (Tæller, 1) & " |
Kredit: "Skriv til tekstfil" -kode er et derivat af J-walk's logbrugere.
Konklusion: Efter min korte introduktion til Wml ser det også ud til at være muligt at oprette flere sider fra data og oprette en menu med links til flere datasæt. Jeg vil også gerne undersøge en applikation for at præsentere brugeren for en måde at søge i et stort datasæt eksporteret fra Excel -data.
Nogle meninger eller ideer om emnet eksport af Excel til Wml, især mulige anvendelser eller andre tanker?
