Kako izvozite Excelove podatke za ogled iz mobilnega telefona ali mobilne naprave?
Spodaj je osnovni primer uporabe makra za izvoz enega stolpca iz Excelove preglednice v datoteko Wml (Wireless Markup Language), ki jo lahko naložite na strežnik in dostopate do nje iz mobilnega telefona.
Poskus: Imam seznam v stolpcu A lista 1 v Excelu s seznamom skladb s CD -ja: Popoln krog - Mer De Noms. Najprej želim izvoziti podatke iz Excela v obliki Wml, drugič, naložiti na strežnik in si nazadnje ogledati seznam skladb iz brskalnika mobitela. Grafični prikaz:
Za to sem uporabil makro VBA in Wml. Za osnovno razumevanje Wml vas napotim na drugo vadnico iz w3schools.
Končni rezultat mojega poskusa Excel to Wap si lahko ogledate na naslednjem naslovu:
1 | www.automateexcel.com/pl/wap1.wml |
in to lahko storite v brskalniku mobilne naprave, kopirajte in prilepite naslov v emulator wap ali pa si ogledate to zelo zamegljeno sliko (čas za nov digitalni fotoaparat!).
Poskusite sami
1. Kopirajte naslednjo kodo v modul v Excelu (pomoč?)
2. Postavite nekaj besedila v stolpec A lista1 in Shrani vaš delovni zvezek
3. Zaženite makro
4. Datoteka Wml bo ustvarjena v isti mapi kot delovni zvezek, ki ste ga odprli.
5. Naložite datoteko Wml na strežnik in si jo oglejte v mobilnem telefonu.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Zatemni WapTitle kot nizZatemni WapName kot nizZatemni DocType kot nizZatemni števec kot celo številoDocType = ""'mesto za zapisovanje datotekeWapName = ThisWorkbook.Path & "/wap1.wml"'Ubijte datoteko, če že obstajaČe je Len (Dir (WapName))> 0 PotemUbij WapNameKonec Če'dobite naslov wapWapTitle = InputBox ("Naslov", "MyInputTitle", _"Vnesite naslov svojega Wap spletnega mesta")'izhod, če ni naslova wapČe WapTitle = "Vnesite naslov svojega Wap spletnega mesta" _Ali WapTitle = "" PotemMsgBox "Žal potrebujete naslov - zapustite zdaj"Zapri podKonec Če'odprite delovni zvezek in napišite podatke o glavi wmlOdprite ThisWorkbook.Path & "wap1.wml" Za dodajanje kot #1Natisni #1, "<? Xml version =" "1.0" "?>"Natisni #1, DocTypeNatisni #1, ""Natisni #1, ""Natisni #1, _"" "& WapTitle &" ""> "Natisni #1, ""Natisni #1, "
"'zanka skozi list1, napišite vsebinoZa števec = 1 za ActiveSheet.UsedRange.Rows.CountČe ni IsEmpty (Sheet1.Cells (Counter, 1)) PotemNatisni #1, list 1. Celice (števec, 1) & " |
Zasluge: Koda »Zapiši v besedilno datoteko« je izpeljanka uporabnikov dnevnika J-walka.
Zaključek: Po mojem kratkem uvodu v Wml se zdi možno tudi ustvariti več strani iz podatkov in ustvariti meni povezav za več naborov podatkov. Prav tako bi rad raziskal aplikacijo, ki bi uporabniku predstavila način iskanja velikega nabora podatkov, izvoženega iz Excelovih podatkov.
Kakšno mnenje ali zamisel o izvozu Excela v Wml, zlasti možne uporabe ali druge misli?