Cum exportați datele Excel pentru a fi vizualizate de pe un telefon mobil sau dispozitiv mobil?
Următorul este un exemplu de bază al utilizării unei macro pentru a exporta o coloană dintr-o foaie de calcul Excel într-un fișier Wml (Wireless Markup Language), care poate fi încărcat pe serverul dvs. și accesat de pe un telefon mobil.
Experimentul: am o listă în coloana A a Sheet1 în Excel cu lista de piese de pe CD: Perfect Circle - Mer De Noms. Mai întâi vreau să export datele din Excel în format Wml, în al doilea rând, să le încărc pe serverul meu și, în cele din urmă, să vizualizez tracklistul din browserul telefonului meu mobil. O reprezentare grafică:
Pentru a realiza acest lucru, am folosit un macro VBA și Wml. Pentru o înțelegere de bază a Wml vă trimit la un alt tutorial de la w3schools.
Puteți vizualiza rezultatul final al experimentului meu Excel to Wap la următoarea adresă:
| 1 | www.automateexcel.com/pl/wap1.wml |
și poate face acest lucru în browserul dispozitivului dvs. mobil, copiați și lipiți adresa într-un emulator wap sau vizualizând această imagine foarte neclară (timpul pentru o nouă cameră digitală!).
Incearca-l tu insuti
1. Copiați următorul cod într-un modul din Excel (ajutor?)
2. Plasați un text în coloana A a foii 1 și Salvați registrul dvs. de lucru
3. Rulați macro-ul
4. Un fișier Wml va fi creat în același folder cu registrul de lucru pe care l-ați deschis.
5. Încărcați fișierul Wml pe server și vizualizați în telefonul mobil.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle As StringDim WapName Ca șirDim Dim DocType Ca șirDim Counter Ca întregDocType = ""'locație pentru a scrie fișierulWapName = ThisWorkbook.Path & "/wap1.wml"'Omoară fișierul dacă există dejaDacă Len (Dir (WapName))> 0 AtunciKill WapNameEnd If'obține titlul wapWapTitle = InputBox ("Titlu", "MyInputTitle", _„Introduceți titlul site-ului dvs. Wap”)'ieșiți dacă nu există titlu wapDacă WapTitle = "Introduceți titlul site-ului dvs. Wap" _Sau WapTitle = "" AtunciMsgBox "Îmi pare rău că aveți nevoie de un titlu - Renunțați acum"Ieșiți din SubEnd If'deschideți registrul de lucru și scrieți informații despre antetul wmlDeschideți ThisWorkbook.Path & "wap1.wml" Pentru a adăuga ca numărul 1Imprimați numărul 1, "<? Xml version =" "1.0" "?>"Tipăriți numărul 1, DocTypeTipăriți numărul 1, „”Tipăriți numărul 1, „”Tipărirea nr. 1, _"" "& WapTitle &" ""> "Tipăriți numărul 1, „”Tipăriți numărul 1, "
"'bucla prin foaia 1, scrie conținutFor Counter = 1 To ActiveSheet.UsedRange.Rows.CountDacă nu este gol (Sheet1.Cells (Counter, 1)) ApoiTipăriți nr. 1, foaia 1. Celule (contor, 1) și " |
Credit: codul „Scrieți în fișierul text” este un derivat al utilizatorilor jurnalului J-walk.
Concluzie: După scurta mea introducere în Wml, pare de asemenea fezabil să creezi mai multe pagini din date și să creezi un meniu de linkuri pentru mai multe seturi de date. Aș dori, de asemenea, să cercetez o aplicație pentru a prezenta utilizatorului o modalitate de a căuta un set de date mare exportat din date Excel.
Aveți păreri sau idei cu privire la tema exportului Excel în Wml, în special utilizări posibile sau alte gânduri?
