Wie exportieren Sie Excel-Daten zur Anzeige auf einem Mobiltelefon oder Mobilgerät?
Im Folgenden finden Sie ein grundlegendes Beispiel für die Verwendung eines Makros zum Exportieren einer Spalte aus einer Excel-Tabelle in eine Wml-Datei (Wireless Markup Language), die auf Ihren Server hochgeladen und von einem Mobiltelefon aus aufgerufen werden kann.
Das Experiment: Ich habe eine Liste in Spalte A von Sheet1 in Excel mit dem Tracklisting von der CD: Perfect Circle - Mer De Noms . Erstens möchte ich die Daten aus Excel im Wml-Format exportieren, zweitens auf meinen Server hochladen und schließlich die Tracklist im Browser meines Handys anzeigen. Eine grafische Darstellung:
Um dies zu erreichen, habe ich ein VBA-Makro und Wml verwendet. Für ein grundlegendes Verständnis von Wml verweise ich auf ein weiteres Tutorial von w3schools.
Sie können das Endergebnis meines Excel-to-Wap-Experiments unter der folgenden Adresse anzeigen:
| 1 | www.automateexcel.com/pl/wap1.wml |
und können Sie dies im Browser Ihres Mobilgeräts tun, die Adresse kopieren und in einen WAP-Emulator einfügen oder dieses sehr verschwommene Bild anzeigen (Zeit für eine neue Digitalkamera!).
Versuch es selber
1. Kopieren Sie den folgenden Code in ein Modul in Excel (Hilfe?)
2. Platzieren Sie etwas Text in Spalte A von Sheet1 und Speichern dein Arbeitsbuch
3. Führen Sie das Makro aus
4. Eine Wml-Datei wird im selben Ordner wie die geöffnete Arbeitsmappe erstellt.
5. Laden Sie die Wml-Datei auf Ihren Server hoch und zeigen Sie sie auf dem Handy an.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub-WAP()Dim WapTitle als StringDim WapName als StringDim DocType As StringZähler als Integer dimmenDokumenttyp = ""'Speicherort zum Schreiben der DateiWapName = ThisWorkbook.Path & "/wap1.wml"'Datei löschen, wenn sie bereits existiertWenn Len(Dir(WapName)) > 0 ThenTöte WapNameEnde Wenn'Wap-Titel holenWapTitle = InputBox("Titel", "MyInputTitle", _"Geben Sie den Titel Ihrer Wap-Site ein")'Beenden, wenn kein WAP-TitelIf WapTitle = "Geben Sie den Titel Ihrer Wap-Site ein" _Oder WapTitle = "" ThenMsgBox "Tut mir leid, dass Sie einen Titel brauchen - jetzt beenden"Abo beendenEnde Wenn'Arbeitsmappe öffnen und Wml-Header-Info schreibenÖffnen Sie ThisWorkbook.Path & "wap1.wml" zum Anhängen als # 1Drucken Sie #1, "<?xml version=""1.0""?>"Druck Nr. 1, DocTypeDrucken Sie #1, ""Drucken Sie #1, ""Drucken #1, _""" & WapTitle & """>"Drucken Sie #1, ""Drucken Sie #1, "
"'Schleife durch Blatt1, schreibe InhaltFür Zähler = 1 To ActiveSheet.UsedRange.Rows.CountIf Not IsEmpty(Sheet1.Cells(Counter, 1)) ThenPrint #1, Sheet1.Cells(Counter, 1) & " |
Credit: Der Code "In Textdatei schreiben" ist eine Ableitung der Protokollbenutzer von J-walk.
Fazit: Nach meiner kurzen Einführung in Wml scheint es auch möglich, mehrere Seiten aus Daten zu erstellen und ein Menü mit Links für mehrere Datensätze zu erstellen. Ich möchte auch eine Anwendung recherchieren, die dem Benutzer eine Möglichkeit bietet, einen großen Datensatz zu durchsuchen, der aus Excel-Daten exportiert wurde.
Irgendwelche Meinungen oder Ideen zum Thema Excel-Export nach Wml, insbesondere Verwendungsmöglichkeiten oder andere Gedanken?
