Ako exportujete údaje programu Excel, aby ste ich mohli zobrazovať z mobilného telefónu alebo mobilného zariadenia?
Nasleduje základný príklad použitia makra na export jedného stĺpca z tabuľky programu Excel do súboru Wml (Wireless Markup Language), ktorý je možné nahrať na váš server a získať prístup z mobilného telefónu.
Experiment: Mám zoznam v stĺpci A listu 1 v Exceli so zoznamom skladieb z CD: Perfect Circle - Mer De Noms. Najprv chcem exportovať údaje z Excelu vo formáte Wml, za druhé, nahrať na môj server a nakoniec zobraziť zoznam skladieb z prehliadača môjho mobilného telefónu. Grafické znázornenie:
Na tento účel som použil makro VBA a Wml. Pre základné pochopenie Wml vás odkazujem na ďalší návod z w3schools.
Konečný výsledok môjho experimentu Excel to Wap si môžete pozrieť na nasledujúcej adrese:
| 1 | www.automateexcel.com/pl/wap1.wml |
a môžete to urobiť v prehliadači svojho mobilného zariadenia, skopírujte a prilepte adresu do emulátora wapu alebo prezeraním tohto veľmi rozmazaného obrázku (čas na nový digitálny fotoaparát!).
Skúste to sami
1. Skopírujte nasledujúci kód do modulu v programe Excel (pomoc?)
2. Vložte nejaký text do stĺpca A listu1 a Uložiť váš zošit
3. Spustite makro
4. Súbor Wml sa vytvorí v rovnakom priečinku ako otvorený zošit.
5. Odošlite súbor Wml na server a zobrazte ho v mobilnom telefóne.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle ako reťazecDim WapName ako reťazecDim DocType ako reťazecDim Counter ako celé čísloDocType = ""'umiestnenie na zápis súboruWapName = ThisWorkbook.Path & "/wap1.wml"„Zabite súbor, ak už existujeAk Len (Dir (WapName))> 0 PotomZabite WapNameKoniec Ak'získať titul wapWapTitle = InputBox ("Title", "MyInputTitle", _„Zadajte názov svojho webu Wap“)'exit, ak nie je názov wapuIf WapTitle = "Zadajte názov svojho webu Wap" _Alebo WapTitle = "" PotomMsgBox „Ospravedlňujeme sa, potrebujete názov - teraz končíte“Ukončiť subKoniec Ak'otvorte zošit a napíšte informácie hlavičky wmlOtvorte ThisWorkbook.Path & "wap1.wml" ako prílohu čVytlačiť č. 1, "<? Xml version =" "1.0" "?>"Vytlačte #1, DocTypeVytlačiť č. 1 „“Vytlačiť č. 1 „“Vytlačiť č. 1, _"" "& WapTitle &" ""> "Vytlačiť č. 1 „“Vytlačiť č. 1 “
"'slučku cez list1, napíšte obsahPre počítadlo = 1 do ActiveSheet.UsedRange.Rows.CountAk nie je prázdne (list1.Články (počítadlo, 1)) PotomVytlačiť č. 1, list 1. Bunky (počítadlo, 1) & " |
Kredit: Kód „Zapisovať do textového súboru“ je derivátom používateľov denníka J-walk.
Záver: Po mojom krátkom úvode do Wml sa tiež zdá byť uskutočniteľné vytvoriť viac stránok z údajov a vytvoriť ponuku odkazov pre viacero súborov údajov. Chcel by som tiež preskúmať aplikáciu, aby som používateľovi predstavil spôsob vyhľadávania vo veľkej množine údajov exportovanej z údajov programu Excel.
Akékoľvek názory alebo nápady na tému exportu programu Excel do Wml, obzvlášť možné použitia alebo iné myšlienky?
