Kako izvozite Excel podatke za pregled s mobitela ili mobilnog uređaja?
Slijedi osnovni primjer korištenja makronaredbe za izvoz jednog stupca iz Excel proračunske tablice u datoteku Wml (Wireless Markup Language), koja se može prenijeti na vaš poslužitelj i pristupiti s mobitela.
Eksperiment: Imam popis u stupcu A lista 1 u Excelu s popisom pjesama s CD -a: Savršen krug - Mer De Noms. Prvo želim izvesti podatke iz Excela u Wml formatu, drugo, prenijeti na svoj poslužitelj i na kraju pregledati popis pjesama iz preglednika mobitela. Grafički prikaz:
Da bih to postigao, koristio sam VBA makro i Wml. Za osnovno razumijevanje Wml upućujem vas na još jedan vodič iz w3schools.
Konačni rezultat mog eksperimenta Excel to Wap možete pogledati na sljedećoj adresi:
1 | www.automateexcel.com/pl/wap1.wml |
a to možete učiniti u pregledniku vašeg mobilnog uređaja, kopirati i zalijepiti adresu u emulator wapa ili pregledavanjem ove vrlo mutne slike (vrijeme za novu digitalnu kameru!).
Isprobajte sami
1. Kopirajte sljedeći kôd u modul u Excelu (pomoć?)
2. Stavite neki tekst u stupac A lista1 i Uštedjeti svoju radnu bilježnicu
3. Pokrenite makro
4. Wml datoteka bit će stvorena u istoj mapi kao i radna knjiga koju ste otvorili.
5. Postavite Wml datoteku na svoj poslužitelj i pregledajte na mobitelu.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Priguši WapTitle kao nizDim WapName As StringDim DocType As StringZatamni brojač kao cijeli brojDocType = ""'mjesto za pisanje datotekeWapName = ThisWorkbook.Path & "/wap1.wml"'Ubijte datoteku ako već postojiAko je Len (Dir (WapName))> 0 TadaUbij WapNameZavrši ako'dobiti wap naslovWapTitle = InputBox ("Title", "MyInputTitle", _"Unesite naslov svoje Wap stranice")'izlaz ako nema wap naslovaAko je WapTitle = "Unesite naslov svoje Wap stranice" _Ili WapTitle = "" ZatimMsgBox "Žao mi je što vam treba naslov - odmah odustajte"Izlaz iz podvZavrši ako'otvorite radnu knjigu i upišite podatke wml zaglavljaOtvorite ThisWorkbook.Path & "wap1.wml" Za dodavanje kao #1Ispis #1, "<? Xml version =" "1.0" "?>"Ispis #1, DocTypeIspis #1, ""Ispis #1, ""Ispis #1, _"" "& WapTitle &" ""> "Ispis #1, ""Ispis br. 1, "
"'petljajte kroz list1, napišite sadržajZa brojač = 1 za ActiveSheet.UsedRange.Rows.CountAko nije IsEmpty (Sheet1.Cells (Counter, 1)) ThenIspis #1, list 1. ćelije (brojač, 1) & " |
Zasluge: Kôd "Zapiši u tekstualnu datoteku" izveden je od korisnika dnevnika J-walka.
Zaključak: Nakon mog kratkog uvoda u Wml, također se čini mogućim stvoriti više stranica od podataka i stvoriti izbornik veza za više skupova podataka. Također bih želio istražiti aplikaciju kako bih korisniku predstavio način pretraživanja velikog skupa podataka izvezenog iz Excel podataka.
Imate li mišljenja ili ideja o temi izvoza Excela u Wml, osobito moguće upotrebe ili druga razmišljanja?