Πώς εξάγετε δεδομένα Excel για προβολή από κινητό τηλέφωνο ή κινητή συσκευή;
Το παρακάτω είναι ένα βασικό παράδειγμα χρήσης μιας μακροεντολής για την εξαγωγή μιας στήλης από ένα υπολογιστικό φύλλο Excel σε ένα αρχείο Wml (Ασύρματη γλώσσα σήμανσης), το οποίο μπορεί να μεταφορτωθεί στον διακομιστή σας και να έχει πρόσβαση από ένα κινητό τηλέφωνο.
Το πείραμα: Έχω μια λίστα στη στήλη A του Sheet1 στο Excel με τη λίστα κομματιών από το CD: Perfect Circle - Mer De Noms. Πρώτα θέλω να εξάγω τα δεδομένα από το 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 | Sub WAP ()Dim WapTitle As StringDim WapName As StringDim DocType As StringDim Count ως ακέραιοςDocType = ""«τοποθεσία για εγγραφή αρχείουWapName = ThisWorkbook.Path & "/wap1.wml"«Σκοτώστε το αρχείο εάν υπάρχει ήδηΕάν Len (Dir (Όνομα WapName))> 0 ΤότεKill WapNameΤέλος εαν"πάρτε τον τίτλο wapWapTitle = InputBox ("Τίτλος", "MyInputTitle", _"Εισαγάγετε τον τίτλο του ιστότοπού σας Wap")'έξοδος εάν δεν υπάρχει τίτλος wapIf WapTitle = "Εισαγάγετε τον τίτλο του ιστοτόπου σας Wap" _Wap WapTitle = "" ΤότεMsgBox "Συγγνώμη χρειάζεστε έναν τίτλο - Διακόψτε τώρα"Έξοδος SubΤέλος εαν«Ανοίξτε το βιβλίο εργασίας και γράψτε πληροφορίες κεφαλίδας wmlΑνοίξτε το ThisWorkbook.Path & "wap1.wml" For Append As #1Εκτύπωση #1, "<? Xml version =" "1.0" ">>Εκτύπωση #1, DocTypeΕκτύπωση #1, ""Εκτύπωση #1, ""Εκτύπωση #1, _"" "& WapTitle &" ""> "Εκτύπωση #1, ""Εκτύπωση #1, "
"«βρόχος στο φύλλο 1, γράψτε περιεχόμενοΓια Counter = 1 To ActiveSheet.UsedRange.Rows.CountΕάν δεν είναι κενό (Sheet1.Cells (Counter, 1)) ΤότεΕκτύπωση #1, Φύλλο1.Κελιά (Μετρητής, 1) & " |
Πίστωση: Ο κώδικας "Γράψτε σε αρχείο κειμένου" είναι παράγωγο των χρηστών του J-walk's log.
Συμπέρασμα: Μετά τη σύντομη εισαγωγή μου στο Wml, είναι επίσης εφικτό να δημιουργηθούν πολλές σελίδες από δεδομένα και να δημιουργηθεί ένα μενού συνδέσμων για πολλαπλά σύνολα δεδομένων. Θα ήθελα επίσης να ερευνήσω μια εφαρμογή για να παρουσιάσω στον χρήστη έναν τρόπο αναζήτησης ενός μεγάλου συνόλου δεδομένων που εξάγεται από δεδομένα Excel.
Έχετε απόψεις ή ιδέες σχετικά με το θέμα της εξαγωγής του Excel σε Wml, ιδιαίτερα πιθανές χρήσεις ή άλλες σκέψεις;
