Kuidas eksportida Exceli andmeid mobiiltelefonist või mobiilseadmest vaatamiseks?
Järgnev on põhinäide makro kasutamise kohta ühe veeru eksportimiseks Exceli arvutustabelist Wml -faili (traadita märgistuskeel), mille saab oma serverisse üles laadida ja mobiiltelefonile juurde pääseda.
Katse: mul on Exceli lehe 1 veerus A loend koos lugude loeteluga CD -lt: Perfect Circle - Mer De Noms. Esiteks tahan eksportida andmed Excelist Wml -vormingus, teiseks laadida üles oma serverisse ja lõpuks vaadata oma mobiiltelefoni brauserist lugude loendit. Graafiline esitus:
Selle saavutamiseks kasutasin VBA makro ja Wml. Wml -i põhiteadmiste saamiseks viitan teile teisele w3 -koolide õpetusele.
Minu Exceli ja Wapi katse lõpptulemust saate vaadata järgmisel aadressil:
| 1 | www.automateexcel.com/pl/wap1.wml |
ja saate seda teha oma mobiilseadme brauseris, kopeerige ja kleepige aadress wap -emulaatorisse või vaadake seda väga udust pilti (aeg uue digikaamera jaoks!).
Proovige seda ise
1. Kopeerige järgmine kood Exceli moodulisse (abi?)
2. Asetage mõni tekst lehe 1 veergu A ja Salvesta teie töövihik
3. Käivitage makro
4. Wml -fail luuakse samasse kausta, kus on avatud töövihik.
5. Laadige Wml -fail oma serverisse ja vaadake seda mobiiltelefonis.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Alam -WAP ()Dim WapTitle stringinaDim WapName nagu stringDim DocType kui stringDim Counter täisarvunaDocType = ""'faili kirjutamise asukohtWapName = ThisWorkbook.Path & "/wap1.wml""Tapa fail, kui see on juba olemasKui Len (Dir (WapName))> 0 SiisTapa WapNameLõpp Kui'wap pealkiriWapTitle = InputBox ("Pealkiri", "MinuInputTitle", _"Sisestage oma Wap -saidi pealkiri")'välju, kui pole wap pealkirjaKui WapTitle = "Sisestage oma Wap -saidi pealkiri" _Või WapTitle = "" SiisMsgBox "Vabandust, et vajate pealkirja - lõpetage kohe"Välju subLõpp Kui'Avage töövihik ja kirjutage wml päise teaveAva ThisWorkbook.Path & "wap1.wml" lisamiseks nimega 1Trükk nr 1, "<? Xml version =" "1.0" "?>"Prindi nr 1, DocTypeTrükk nr 1, ""Trükk nr 1, ""Trükk nr 1, _"" "& WapTitle &" ""> "Trükk nr 1, ""Trükk nr 1, "
"'silmus läbi lehe 1, kirjutage sisuLoenduri jaoks = 1 ActiveSheet.UsedRange.Rows.CountKui ei ole tühi (leht 1. Lahtrid (loendur, 1)) SiisPrint #1, Sheet1.Cells (Counter, 1) & " |
Krediit: kood „Kirjuta tekstifaili” on J-Walk'i logi kasutajate tuletis.
Järeldus: Pärast minu lühikest sissejuhatust Wml -i tundub olevat võimalik luua andmetest mitu lehte ja luua linkide menüü mitme andmekogumi jaoks. Samuti sooviksin uurida rakendust, et tutvustada kasutajale võimalust otsida suurest Exceli andmetest eksporditud andmestikust.
Kas teil on arvamusi või ideid Exceli WML -i eksportimise teemal, eriti võimalikke kasutusviise või muid mõtteid?
