Як експортувати дані Excel для перегляду з мобільного телефону чи мобільного пристрою?
Нижче наведено базовий приклад використання макросу для експорту одного стовпця з електронної таблиці Excel у файл Wml (мова бездротової розмітки), який можна завантажити на сервер і отримати до нього доступ із мобільного телефону.
Експеримент: у мене є список у стовпці A аркуша 1 в Excel зі списком треків із компакт -диска: Ідеальне коло - Мер Де Номс. По -перше, я хочу експортувати дані з 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 StringЗатемнити WapName як рядокDim DocType As StringЛічильник затемнення як ціле числоDocType = ""'місце для запису файлуWapName = ThisWorkbook.Path & "/wap1.wml"'Убийте файл, якщо він уже існуєЯкщо Len (Dir (WapName))> 0 ТодіВбити WapNameЗакінчити Якщо'отримати назву wapWapTitle = InputBox ("Title", "MyInputTitle", _"Введіть назву свого сайту Wap")'вийти, якщо немає заголовка wapЯкщо WapTitle = "Введіть назву свого сайту Wap" _Або WapTitle = "" ТодіMsgBox "Вибачте, вам потрібен заголовок - вийти зараз"Вийти з підпЗакінчити Якщо'відкрити книгу та записати інформацію заголовка wmlВідкрийте ThisWorkbook.Path & "wap1.wml", щоб додати як номер 1Друк №1, "<? Xml version =" "1.0" "?>"Друк №1, DocTypeДрук №1, ""Друк №1, ""Друк №1, _"" "& WapTitle &" ""> "Друк №1, ""Друк №1 "
"'цикл аркуша 1, запис вмістуДля лічильника = 1 до ActiveSheet.UsedRange.Rows.CountЯкщо не IsEmpty (Sheet1.Cells (Counter, 1)) ТодіДрук №1, аркуш 1. Клітини (лічильник, 1) & " |
Кредит: Код "Запис у текстовий файл" є похідним від користувачів журналу J-walk.
Висновок: Після мого короткого ознайомлення з Wml також здається можливим створити декілька сторінок з даних та створити меню посилань для кількох наборів даних. Я також хотів би дослідити додаток, щоб представити користувачеві спосіб пошуку великого набору даних, експортованого з даних Excel.
Якісь думки чи ідеї щодо експорту Excel у Wml, особливо можливе використання чи інші думки?
