Jak exportujete data aplikace Excel, abyste je mohli zobrazit z mobilního telefonu nebo mobilního zařízení?
Následuje základní příklad použití makra k exportu jednoho sloupce z tabulky aplikace Excel do souboru Wml (Wireless Markup Language), který lze nahrát na váš server a získat k němu přístup z mobilního telefonu.
Experiment: Mám seznam ve sloupci A listu 1 v Excelu se seznamem skladeb z CD: Perfect Circle - Mer De Noms. Nejprve chci exportovat data z aplikace Excel ve formátu Wml, za druhé, nahrát na můj server a nakonec zobrazit seznam skladeb z prohlížeče mého mobilního telefonu. Grafické znázornění:
K tomu jsem použil makro VBA a Wml. Pro základní pochopení Wml vás odkážu na další tutoriál od w3schools.
Konečný výsledek mého experimentu Excel to Wap si můžete prohlédnout na následující adrese:
| 1 | www.automateexcel.com/pl/wap1.wml |
a můžete tak učinit v prohlížeči svého mobilního zařízení, zkopírovat a vložit adresu do emulátoru wapu nebo prohlížením tohoto velmi rozmazaného obrázku (čas na nový digitální fotoaparát!).
Zkus to sám
1. Zkopírujte následující kód do modulu v aplikaci Excel (pomoc?)
2. Umístěte nějaký text do sloupce A listu1 a Uložit váš sešit
3. Spusťte makro
4. Soubor Wml bude vytvořen ve stejné složce jako otevřený sešit.
5. Nahrajte soubor Wml na váš server a zobrazte jej na mobilním telefonu.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Dílčí WAP ()Dim WapTitle jako řetězecDim WapName jako řetězecDim DocType jako řetězecDim Counter jako celé čísloDocType = ""'umístění pro zápis souboruWapName = ThisWorkbook.Path & "/wap1.wml"„Zabijte soubor, pokud již existujePokud Len (Dir (WapName))> 0 ThenZabijte WapNameKonec If'získat titul wapWapTitle = InputBox ("Název", "MyInputTitle", _„Zadejte název svého webu Wap“)'exit, pokud žádný wap názevIf WapTitle = "Zadejte název svého webu Wap" _Nebo WapTitle = "" PotomMsgBox „Je nám líto, že potřebujete název - nyní ukončujete“Ukončit dílčíKonec If'otevřete sešit a napište informace záhlaví wmlOtevřete ThisWorkbook.Path & "wap1.wml" pro připojení jako #1Vytisknout č. 1, "<? Xml version =" "1.0" "?>"Tisk č. 1, DocTypeVytisknout č. 1 „“Vytisknout č. 1 „“Tisk č. 1, _"" "& WapTitle &" ""> "Vytisknout č. 1 „“Vytisknout č. 1 “
"'smyčku list1, zapište obsahPro čítač = 1 do ActiveSheet.UsedRange.Rows.CountPokud není prázdné (List1.Cells (Counter, 1)) ThenTisk č. 1, list 1. Buňky (čítač, 1) & " |
Kredit: Kód „Zápis do textového souboru“ je odvozen od uživatelů protokolu J-walk.
Závěr: Po mém krátkém úvodu do Wml se také zdá být proveditelné vytvořit z dat více stránek a vytvořit nabídku odkazů pro více sad dat. Chtěl bych také prozkoumat aplikaci, která by uživateli představila způsob vyhledávání ve velké datové sadě exportované z dat aplikace Excel.
Nějaké názory nebo nápady na téma exportu Excelu do Wml, zvláště možná použití, nebo jiné myšlenky?
