Как експортирате данни от Excel, за да се видят от мобилен телефон или мобилно устройство?
По -долу е основен пример за използване на макрос за експортиране на една колона от електронна таблица на Excel във файл Wml (Wireless Markup Language), който може да бъде качен на вашия сървър и достъпен от мобилен телефон.
Експериментът: Имам списък в колона А на Sheet1 в Excel със списъка с песни от компактдиска: Perfect Circle - Mer De Noms. Първо искам да експортирам данните от Excel във Wml формат, второ, да кача на моя сървър и накрая да видя списъка с песни от браузъра на мобилния си телефон. Графично представяне:
За да постигна това, използвах VBA макрос и Wml. За основно разбиране на Wml ви насочвам към друг урок от w3schools.
Можете да видите крайния резултат от моя експеримент Excel to Wap на следния адрес:
| 1 | www.automateexcel.com/pl/wap1.wml |
и можете да направите това в браузъра на мобилното си устройство, да копирате и поставите адреса в wap емулатор или като видите тази много размазана картина (време за нов цифров фотоапарат!).
Опитайте сами
1. Копирайте следния код в модул в Excel (помощ?)
2. Поставете текст в колона А на лист1 и Запазване вашата работна тетрадка
3. Стартирайте макроса
4. Wml файл ще бъде създаден в същата папка като работната книга, която сте отворили.
5. Качете Wml файла на вашия сървър и прегледайте в мобилен телефон.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Под WAP ()Dim WapTitle As StringDim WapName As StringDim DocType As StringDim Counter As IntegerDocType = ""'местоположение за запис на файлWapName = ThisWorkbook.Path & "/wap1.wml"„Убийте файла, ако вече съществуваАко Len (Dir (WapName))> 0 ТогаваУбийте WapNameКрай Ако'вземи wap заглавиеWapTitle = InputBox ("Заглавие", "MyInputTitle", _„Въведете заглавието на вашия wap сайт“)'изход, ако няма заглавие на wapIf WapTitle = "Въведете заглавието на вашия Wap сайт" _Или WapTitle = "" ТогаваMsgBox „Съжалявам, че се нуждаете от заглавие - напуснете сега“Изход от SubКрай Ако„отворете работна книга и напишете информация за заглавката на wmlОтворете ThisWorkbook.Path & "wap1.wml" За добавяне като #1Отпечатайте #1, "<? Xml version =" "1.0" "?>"Печат #1, DocTypeПечат №1, ""Печат №1, ""Печат #1, _"" "& WapTitle &" ""> "Печат №1, ""Печат №1, "
"'цикъл през sheet1, записване на съдържаниеЗа брояч = 1 към ActiveSheet.UsedRange.Rows.CountАко не е IsEmpty (Sheet1.Cells (Counter, 1)) ТогаваПечат #1, лист 1. Клетки (брояч, 1) & " |
Кредит: Кодът „Запис в текстов файл“ е производен на потребителите на дневника на J-walk.
Заключение: След краткото ми въведение в Wml също изглежда възможно да се създадат множество страници от данни и да се създаде меню с връзки за множество набори от данни. Бих искал също да проуча приложение, за да представя на потребителя начин да търси голям набор от данни, експортиран от данни на Excel.
Някакви мнения или идеи по темата за експортиране на Excel в Wml, особено възможни приложения или други мисли?
