Как экспортировать данные Excel для просмотра с мобильного телефона или мобильного устройства?
Ниже приведен базовый пример использования макроса для экспорта одного столбца из электронной таблицы Excel в файл Wml (язык беспроводной разметки), который можно загрузить на ваш сервер и получить к нему доступ с мобильного телефона.
Эксперимент: у меня есть список в столбце A Sheet1 в Excel со списком треков с компакт-диска: Perfect Circle - Mer De Noms. Во-первых, я хочу экспортировать данные из Excel в формате Wml, во-вторых, загрузить на свой сервер и, наконец, просмотреть список треков в браузере мобильного телефона. Графическое представление:
Для этого я использовал макрос VBA и Wml. Для базового понимания Wml я отсылаю вас к другому руководству от w3schools.
Вы можете просмотреть окончательный результат моего эксперимента из Excel в Wap по следующему адресу:
1 | www.automateexcel.com/pl/wap1.wml |
и можете сделать это в браузере мобильного устройства, скопировать и вставить адрес в эмулятор WAP или просмотреть это очень расплывчатое изображение (время для новой цифровой камеры!).
Попробуй сам
1. Скопируйте следующий код в модуль в Excel (помогите?)
2. Поместите текст в столбец A Листа 1 и Сохранить ваша рабочая тетрадь
3. Запустите макрос.
4. Wml-файл будет создан в той же папке, что и открытая вами книга.
5. Загрузите файл Wml на свой сервер и просмотрите его в мобильном телефоне.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Дополнительный WAP ()Dim WapTitle As StringDim WapName As StringDim DocType As StringТусклый счетчик как целое числоDocType = ""'место для записи файлаWapName = ThisWorkbook.Path & "/wap1.wml"'Убить файл, если он уже существуетЕсли Len (Dir (WapName))> 0 ТогдаУбить WapNameКонец, если'получить название WAPWapTitle = InputBox ("Заголовок", "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, Sheet1.Cells (Counter, 1) & " |
Кредит: код «Запись в текстовый файл» является производным от журнала пользователей J-walk.
Заключение: после моего краткого введения в Wml также стало возможным создать несколько страниц из данных и создать меню ссылок для нескольких наборов данных. Я также хотел бы изучить приложение, чтобы предоставить пользователю способ поиска в большом наборе данных, экспортированном из данных Excel.
Есть какие-либо мнения или идеи по теме экспорта Excel в Wml, особенно возможные варианты использования или другие мысли?