Miten Excel -tiedot viedään katseltavaksi matkapuhelimesta tai mobiililaitteesta?
Seuraava on perusesimerkki makron käyttämisestä yhden sarakkeen viemiseksi Excel -laskentataulukosta Wml -tiedostoon (Wireless Markup Language), joka voidaan ladata palvelimellesi ja jota voidaan käyttää matkapuhelimesta.
Kokeilu: Minulla on Excelin Sheet1 -sarakkeen A sarakkeessa luettelo CD -levyn kappaleista: Perfect Circle - Mer De Noms. Ensin haluan viedä tiedot Excelistä Wml -muodossa, toiseksi ladata palvelimelleni ja tarkastella lopuksi kappaleluetteloa matkapuhelimen selaimella. Graafinen esitys:
Tätä varten käytin VBA -makroa ja Wml: ää. Wml: n perustiedon saamiseksi viittaan toiseen w3schools -opetusohjelmaan.
Voit tarkastella Excel to Wap -kokeilun lopputulosta seuraavassa osoitteessa:
| 1 | www.automateexcel.com/pl/wap1.wml |
ja voit tehdä sen mobiililaitteesi selaimessa, kopioida ja liittää osoitteen wap -emulaattoriin tai katsomalla tätä erittäin epäselvää kuvaa (aika uudelle digitaalikameralle!).
Kokeile itse
1. Kopioi seuraava koodi Excel -moduuliin (apua?)
2. Aseta teksti taulukon 1 sarakkeen A ja Tallentaa työkirjaasi
3. Suorita makro
4. Wml -tiedosto luodaan samaan kansioon kuin avoin työkirja.
5. Lataa Wml -tiedosto palvelimellesi ja näytä se matkapuhelimessa.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Himmennä WapTitle merkkijononaDim WapName As StringDim DocType merkkijononaDim -laskuri kokonaislukunaDocType = ""'tiedoston kirjoittamisen sijaintiWapName = ThisWorkbook.Path & "/wap1.wml""Tapa tiedosto, jos se on jo olemassaJos Len (Dir (WapName))> 0 SittenTapa WapNameLoppu Jos'Hanki wap -otsikkoWapTitle = InputBox ("Otsikko", "MyInputTitle", _"Anna Wap -sivustosi otsikko")'Lopeta, jos ei wap -otsikkoaJos WapTitle = "Anna Wap -sivustosi otsikko" _Tai WapTitle = "" SittenMsgBox "Anteeksi, että tarvitset otsikon - lopetan nyt"Lopeta SubLoppu Josavaa työkirja ja kirjoita wml -otsikkotiedotAvaa ThisWorkbook.Path & "wap1.wml" Liitä nimellä 1Tulosta numero 1, "<? Xml version =" "1.0" "?>"Tulosta numero 1, DocTypeTulosta numero 1, ""Tulosta numero 1, ""Tulosta numero 1, _"" "& WapTitle &" ""> "Tulosta numero 1, ""Tulosta numero 1, "
"'selaa taulukon 1 läpi, kirjoita sisältöLaskurille = 1 ActiveSheet.UsedRange.Rows.CountJos ei ole tyhjä (Sheet1.Cells (Counter, 1)) SittenTulosta numero 1, arkki1. Solut (laskuri, 1) & " |
Luotto: "Kirjoita tekstitiedostoon" -koodi on johdannainen J-Walkin lokin käyttäjistä.
Johtopäätös: Lyhyen Wml -esittelyn jälkeen vaikuttaa myös mahdolliselta luoda useita sivuja tiedoista ja luoda linkkivalikko useille tietojoukoille. Haluaisin myös tutkia sovellusta, joka esittelee käyttäjälle tavan hakea suurta Excel -datasta vietyä tietojoukkoa.
Onko sinulla mielipiteitä tai ideoita Excelin viemisestä Wml: ään, erityisesti mahdollisista käyttötarkoituksista tai muita ajatuksia?
