Како извозите Екцел податке за преглед са мобилног телефона или мобилног уређаја?
Следи основни пример коришћења макроа за извоз једне колоне из Екцел табеле у Вмл (Вирелесс Маркуп Лангуаге) датотеку, која се може учитати на ваш сервер и приступити са мобилног телефона.
Експеримент: Имам листу у колони А листа 1 у Екцелу са списком нумера са ЦД -а: Савршен круг - Мер Де Номс. Прво желим да извезем податке из програма Екцел у Вмл формату, друго, отпремим на сервер и на крају погледам листу нумера из прегледача свог мобилног телефона. Графички приказ:
Да бих то постигао, користио сам ВБА макро и Вмл. За основно разумевање Вмл -а упућујем вас на још један водич из в3сцхоолс.
Коначни резултат мог експеримента Екцел то Вап можете погледати на следећој адреси:
| 1 | ввв.аутоматеекцел.цом/пл/вап1.вмл |
и то можете учинити у прегледачу вашег мобилног уређаја, копирати и залепити адресу у емулатор вап -а или прегледавањем ове врло замућене слике (време за нову дигиталну камеру!).
Пробајте сами
1. Копирајте следећи код у модул у програму Екцел (помоћ?)
2. Ставите неки текст у колону А листа1 и сачувати своју Радну свеску
3. Покрените макро
4. Вмл датотека ће бити креирана у истој фасцикли као и радна свеска коју сте отворили.
5. Отпремите Вмл датотеку на свој сервер и погледајте је на мобилном телефону.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Суб ВАП ()Дим ВапТитле Ас СтрингДим ВапНаме Ас СтрингДим ДоцТипе Ас СтрингДим Цоунтер Ас ИнтегерДоцТипе = ""'локација за писање датотекеВапНаме = ТхисВоркбоок.Патх & "/вап1.вмл"'Убијте датотеку ако већ постојиАко је Лен (Дир (ВапНаме))> 0 ТадаУбиј ВапНамеКрај Ако'гет вап титлеВапТитле = ИнпутБок ("Титле", "МиИнпутТитле", _„Унесите наслов свог вап сајта“)'излаз ако нема вап насловаИф ВапТитле = "Унесите наслов вашег Вап сајта" _Или ВапТитле = "" ОндаМсгБок "Жао ми је што вам треба наслов - одмах напуштате"Екит СубКрај Ако'отворите радну свеску и упишите информације о вмл заглављуОтворите ТхисВоркбоок.Патх & "вап1.вмл" За додавање као #1Одштампајте #1, "<? Ксмл версион =" "1.0" "?>"Штампа #1, ДоцТипеШтампање #1, ""Одштампај бр. 1, ""Штампа #1, _"" "& ВапТитле &" ""> "Штампање #1, ""Принт #1, "
"'прођите кроз лист1, напишите садржајЗа бројач = 1 за АцтивеСхеет.УседРанге.Ровс.ЦоунтАко није ИсЕмпти (Схеет1.Целлс (Цоунтер, 1)) ОндаШтампа #1, лист 1. ћелије (бројач, 1) & " |
Заслуге: Код „Запиши у текстуалну датотеку“ изведен је од корисника дневника Ј-валка.
Закључак: Након мог кратког увода у Вмл, такође се чини изводљивим креирање више страница од података и креирање менија веза за више скупова података. Такође бих желео да истражим апликацију како бих кориснику представио начин претраживања великог скупа података извезеног из Екцел података.
Имате ли мишљења или идеје о извозу програма Екцел у Вмл, посебно могуће употребе или друга размишљања?
