Hogyan exportálhat Excel adatokat mobilról vagy mobileszközről történő megtekintéshez?
Az alábbiakban bemutatunk egy alapvető példát arra, hogy egy makró segítségével exportálhat egy oszlopot az Excel táblázatból egy Wml (Wireless Markup Language) fájlba, amely feltölthető a szerverére és mobiltelefonról érhető el.
A kísérlet: Az Excel 1. lapjának A oszlopában van egy listám a CD -n található műsorszámokkal: Perfect Circle - Mer De Noms. Először szeretném exportálni az adatokat az Excelből Wml formátumban, másodszor feltölteni a szerverre, és végül megtekinteni a számlistát a mobilom böngészőjéből. Grafikus ábrázolás:
Ennek eléréséhez VBA makrót és Wml -t használtam. A Wml alapvető megértéséhez a w3schools másik oktatóanyagára utalok.
Az Excel -Wap kísérlet végeredményét az alábbi címen tekintheti meg:
| 1 | www.automateexcel.com/pl/wap1.wml |
és ezt megteheti mobileszközének böngészőjében, másolja és illessze be a címet egy wap -emulátorba, vagy nézze meg ezt a nagyon homályos képet (ideje egy új digitális fényképezőgépnek!).
Próbáld ki magad
1. Másolja a következő kódot egy modulba Excelben (segítség?)
2. Helyezzen el egy szöveget az 1. lap A oszlopába és Megment a munkafüzetét
3. Futtassa a makrót
4. Egy Wml fájl jön létre ugyanabban a mappában, mint a megnyitott munkafüzet.
5. Töltse fel a Wml fájlt a szerverére, és tekintse meg a mobiltelefonján.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle karakterlánckéntDim WapName as StringDim DocType karakterlánckéntDim Counter mint egészDocType = ""'fájl írásának helyeWapName = ThisWorkbook.Path & "/wap1.wml"- Öld meg a fájlt, ha már létezikHa Len (Dir (WapName))> 0 AkkorKill WapNameVége Ha'kap wap címetWapTitle = InputBox ("Cím", "MyInputTitle", _"Írja be Wap webhelyének címét")'Kilépés, ha nincs wap címHa WapTitle = "Írja be Wap webhelyének címét" _Vagy WapTitle = "" AkkorMsgBox "Sajnálom, hogy címre van szükséged - most abbahagyod"Kilépés a SubbólVége Ha'Nyissa meg a munkafüzetet, és írja be a wml fejléc adataitNyissa meg a ThisWorkbook.Path & "wap1.wml" fájlt az 1. mellékletként való hozzáfűzéshez1. nyomtatás, "<? Xml version =" "1.0" "?>"1. nyomtatás, DocType1. nyomtatás, ""1. nyomtatás, ""1. nyomtatás, _"" "& WapTitle &" ""> "1. nyomtatás, ""1. nyomtatás, "
"'ciklus a 1. lapon, írjon tartalmatSzámlálóhoz = 1 ActiveSheet.UsedRange.Rows.CountHa nem, akkor üres (Sheet1.Cells (Counter, 1)) Akkor1. nyomtatás, 1. lap. Cellák (1. számláló) & " |
Jóváírás: Az „írás szöveges fájlba” kód a J-walk naplófelhasználóinak származéka.
Következtetés: A Wml -be adott rövid bevezetőm után az is megvalósíthatónak tűnik, hogy több oldalt hozzunk létre az adatokból, és linkmenüt hozzunk létre több adatkészlethez. Szeretnék egy alkalmazást is kutatni, hogy megmutassam a felhasználónak az Excel adatokból exportált nagy adathalmaz keresésének módját.
Van véleménye vagy ötlete az Excel WML -be való exportálásának témájáról, különösen a lehetséges felhasználásokról, vagy más gondolatok?
