Jak eksportować dane programu Excel do przeglądania z telefonu komórkowego lub urządzenia mobilnego?
Poniżej przedstawiono podstawowy przykład użycia makra do wyeksportowania jednej kolumny z arkusza kalkulacyjnego programu Excel do pliku Wml (Wireless Markup Language), który można przesłać na serwer i uzyskać do niego dostęp z telefonu komórkowego.
Eksperyment: Mam listę w kolumnie A Arkusza1 w Excelu z listą utworów z płyty CD: Perfect Circle - Mer De Noms . Najpierw chcę wyeksportować dane z Excela w formacie Wml, po drugie przesłać na mój serwer, a na koniec wyświetlić tracklistę z przeglądarki mojego telefonu komórkowego. Graficzna reprezentacja:
Aby to osiągnąć, użyłem makra VBA i Wml. Aby uzyskać podstawowe zrozumienie Wml, odsyłam Cię do innego samouczka od w3schools.
Ostateczny wynik mojego eksperymentu Excel to Wap można wyświetlić pod następującym adresem:
| 1 | www.automateexcel.com/pl/wap1.wml |
i możesz to zrobić w przeglądarce urządzenia mobilnego, skopiuj i wklej adres do emulatora wap lub oglądając ten bardzo rozmazany obraz (czas na nowy aparat cyfrowy!).
Spróbuj sam
1. Skopiuj następujący kod do modułu w programie Excel (pomoc?)
2. Umieść tekst w kolumnie A Arkusza1 i Zapisać Twój skoroszyt
3. Uruchom makro
4. Plik Wml zostanie utworzony w tym samym folderze, co skoroszyt, który otworzyłeś.
5. Prześlij plik Wml na swój serwer i wyświetl w telefonie komórkowym.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP()Dim WapTitle jako ciągDim WapName jako ciągDim DocType jako ciągLicznik Dim jako liczba całkowitaTypDokumentu = ""'lokalizacja do zapisu plikuWapName = ThisWorkbook.Path & "/wap1.wml"'Zabij plik, jeśli już istniejeJeśli Len(Dir(WapName)) > 0 WtedyZabij WapNameZakończ, jeśli„Pobierz tytuł wap”WapTitle = InputBox("Tytuł", "MyInputTitle", _"Wprowadź tytuł swojej witryny Wap")„wyjdź, jeśli nie ma tytułu wap”If WapTitle = "Wprowadź tytuł swojej witryny Wap" _Lub WapTitle = „” WtedyMsgBox "Przepraszam, potrzebujesz tytułu - kończę teraz"Wyjście SubZakończ, jeśli'otwórz skoroszyt i zapisz informacje w nagłówku wmlOtwórz ThisWorkbook.Path i „wap1.wml”, aby dodać jako nr 1Drukuj #1, "<?xml version=""1.0""?>"Drukuj #1, DocTypeDrukuj nr 1, „”Drukuj nr 1, „”Drukuj #1, _„”” & WapTitle & „”">”Drukuj nr 1, „”Drukuj #1, "
"'przewijaj arkusz1, zapisz zawartośćDla licznika = 1 To ActiveSheet.UsedRange.Rows.CountJeśli nie jest pusty(Arkusz1.Komórki(Licznik, 1)) WtedyDrukuj #1, Arkusz1.Komórki(Licznik, 1) & " |
Kredyt: Kod „Zapisz do pliku tekstowego” jest pochodną użytkowników dziennika J-walk.
Wniosek: Po moim krótkim wprowadzeniu do Wml wydaje się również wykonalne tworzenie wielu stron z danych i tworzenie menu linków dla wielu zestawów danych. Chciałbym również zbadać aplikację, aby przedstawić użytkownikowi sposób przeszukiwania dużego zbioru danych wyeksportowanych z danych Excela.
Jakieś opinie lub pomysły na temat eksportu Excela do Wml, szczególnie możliwe zastosowania lub inne przemyślenia?
