Come si esportano i dati Excel da visualizzare da cellulare o dispositivo mobile?
Quello che segue è un esempio di base dell'utilizzo di una macro per esportare una colonna da un foglio di calcolo Excel in un file Wml (Wireless Markup Language), che può essere caricato sul server e accessibile da un telefono cellulare.
L'esperimento: ho un elenco nella colonna A di Sheet1 in Excel con l'elenco dei brani dal CD: Perfect Circle - Mer De Noms . Innanzitutto voglio esportare i dati da Excel in formato Wml, in secondo luogo, caricarli sul mio server e infine visualizzare la tracklist dal browser del mio cellulare. Una rappresentazione grafica:
Per fare questo ho usato una macro VBA e Wml. Per una comprensione di base di Wml vi rimando ad un altro tutorial di w3schools.
Puoi visualizzare il risultato finale del mio esperimento da Excel a Wap al seguente indirizzo:
| 1 | www.automateexcel.com/pl/wap1.wml |
e puoi farlo nel browser del tuo dispositivo mobile, copiare e incollare l'indirizzo in un emulatore wap o visualizzando questa immagine molto sfocata (è ora di una nuova fotocamera digitale!).
Prova tu stesso
1. Copia il seguente codice in un modulo in Excel (aiuto?)
2. Inserisci del testo nella colonna A di Foglio1 e Salva la tua cartella di lavoro
3. Esegui la macro
4. Verrà creato un file Wml nella stessa cartella della cartella di lavoro aperta.
5. Carica il file Wml sul tuo server e visualizzalo sul cellulare.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | WAP secondario()Dim WapTitle As StringDim WapName As StringDim DocType As StringDim Counter As IntegerTipoDoc = ""'posizione per scrivere il fileWapName = ThisWorkbook.Path & "/wap1.wml"'Uccidi il file se esiste giàSe Len(Dir(WapName)) > 0 AlloraUccidi il nome WapFinisci se'ottieni il titolo wapWapTitle = InputBox("Titolo", "MioTitoloInput", _"Inserisci il titolo del tuo sito Wap")'esci se nessun titolo wapIf WapTitle = "Inserisci il titolo del tuo sito Wap" _Oppure WapTitle = "" AlloraMsgBox "Mi dispiace, hai bisogno di un titolo - Esci ora"Esci SottoFinisci se'apri la cartella di lavoro e scrivi le informazioni di intestazione wmlApri ThisWorkbook.Path & "wap1.wml" per aggiungere come #1Stampa n. 1, "<? versione xml=""1.0""?>"Stampa n. 1, DocTypeStampa n. 1, ""Stampa n. 1, ""Stampa n. 1, _""" & WapTitle & """>"Stampa n. 1, ""Stampa n. 1, "
"'scorri il foglio1, scrivi il contenutoFor Counter = 1 To ActiveSheet.UsedRange.Rows.CountIf Not IsEmpty(Sheet1.Cells(Counter, 1)) ThenStampa #1, Foglio1.Celle(Contatore, 1) & " |
Credito: il codice "Scrivi su file di testo" è un derivato degli utenti di registro di J-walk.
Conclusione: dopo la mia breve introduzione a Wml, sembra anche possibile creare più pagine dai dati e creare un menu di collegamenti per più set di dati. Vorrei anche cercare un'applicazione per presentare all'utente un modo per cercare un set di dati di grandi dimensioni esportato da dati Excel.
Eventuali opinioni o idee sull'argomento dell'esportazione di Excel in Wml, usi particolarmente possibili o altri pensieri?
