Hvordan eksporterer du Excel -data for å bli sett fra en mobiltelefon eller mobilenhet?
Følgende er et grunnleggende eksempel på bruk av en makro for å eksportere en kolonne fra et Excel -regneark til en Wml -fil (trådløst markeringsspråk), som kan lastes opp til serveren din og få tilgang til fra en mobiltelefon.
Eksperimentet: Jeg har en liste i kolonne A i Sheet1 i Excel med låtlisten fra CD: Perfect Circle - Mer De Noms. Først vil jeg eksportere dataene fra Excel i Wml -format, for det andre laste opp til serveren min og til slutt se sporlisten fra mobiltelefonens nettleser. En grafisk fremstilling:
For å oppnå dette brukte jeg en VBA -makro og Wml. For en grunnleggende forståelse av Wml henviser jeg deg til en annen opplæring fra w3schools.
Du kan se det endelige resultatet av Excel til Wap -eksperimentet mitt på følgende adresse:
| 1 | www.automateexcel.com/pl/wap1.wml |
og kan gjøre det i mobilenhetens nettleser, kopiere og lime inn adressen i en wap -emulator, eller ved å se dette veldig uskarpe bildet (tid for et nytt digitalkamera!).
Prøv det selv
1. Kopier følgende kode til en modul i Excel (hjelp?)
2. Legg litt tekst i kolonne A i ark1 og Lagre arbeidsboken din
3. Kjør makroen
4. En Wml -fil vil bli opprettet i samme mappe som arbeidsboken du har åpen.
5. Last opp Wml -filen til serveren din og vis den på mobiltelefonen.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle As StringDim WapName Som strengDim DocType As StringDim Teller Som HeltallDocType = ""'sted for å skrive filWapName = ThisWorkbook.Path & "/wap1.wml"'Drep filen hvis den allerede finnesHvis Len (Dir (WapName))> 0 DaDrep WapNameSlutt om'få wap -tittelWapTitle = InputBox ("Tittel", "MyInputTitle", _"Skriv inn tittelen på ditt Wap -nettsted")'avslutt hvis ingen wap -tittelIf WapTitle = "Skriv inn tittelen på ditt Wap -nettsted" _Eller WapTitle = "" DaMsgBox "Beklager at du trenger en tittel - slutter nå"Avslutt SubSlutt om'åpne arbeidsbok og skrive wml header infoÅpne ThisWorkbook.Path og "wap1.wml" for vedlegg som nr. 1Skriv ut nr. 1, "<? Xml version =" "1.0" "?>"Skriv ut #1, DocTypeSkriv ut nr. 1, ""Skriv ut nr. 1, ""Skriv ut #1, _"" "& WapTitle &" ""> "Skriv ut nr. 1, ""Skriv ut nr. 1,
"'gå gjennom ark1, skriv innholdFor Counter = 1 Til ActiveSheet.UsedRange.Rows.CountIf Not IsEmpty (Sheet1.Cells (Counter, 1)) ThenSkriv ut #1, Sheet1.Cells (Counter, 1) & " |
Kreditt: "Skriv til tekstfil" -koden er et derivat av J-walk's loggbrukere.
Konklusjon: Etter min korte introduksjon til Wml ser det også ut til å være mulig å lage flere sider fra data, og lage en meny med lenker for flere datasett. Jeg vil også undersøke et program for å presentere brukeren en måte å søke i et stort datasett eksportert fra Excel -data.
Noen meninger eller ideer om eksport av Excel til Wml, spesielt mulige bruksområder eller andre tanker?
