Comment exporter des données Excel pour les visualiser depuis un téléphone portable ou un appareil mobile ?
Ce qui suit est un exemple de base d'utilisation d'une macro pour exporter une colonne d'une feuille de calcul Excel vers un fichier Wml (Wireless Markup Language), qui peut être téléchargé sur votre serveur et accessible depuis un téléphone portable.
L'expérience : J'ai une liste dans la colonne A de Sheet1 dans Excel avec la liste des pistes du CD : Perfect Circle - Mer De Noms . Je veux d'abord exporter les données d'Excel au format Wml, deuxièmement, les télécharger sur mon serveur et enfin afficher la liste des pistes à partir du navigateur de mon téléphone portable. Une représentation graphique :
Pour ce faire, j'ai utilisé une macro VBA et Wml. Pour une compréhension de base de Wml, je vous renvoie à un autre tutoriel de w3schools.
Vous pouvez consulter le résultat final de mon expérience Excel to Wap à l'adresse suivante :
| 1 | www.automateexcel.com/pl/wap1.wml |
et pouvez le faire dans le navigateur de votre appareil mobile, copier et coller l'adresse dans un émulateur wap, ou en visionnant cette image très floue (c'est l'heure d'un nouvel appareil photo numérique !).
Essayez-le vous-même
1. Copiez le code suivant dans un module dans Excel (aide ?)
2. Placez du texte dans la colonne A de Sheet1 et sauvegarder votre classeur
3. Exécutez la macro
4. Un fichier Wml sera créé dans le même dossier que le classeur que vous avez ouvert.
5. Téléchargez le fichier Wml sur votre serveur et affichez-le sur votre téléphone portable.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sous WAP()Dim WapTitle en tant que chaîneDim WapName en tant que chaîneDim DocType en tant que chaîneCompteur faible en tant qu'entierTypeDoc = ""'emplacement pour écrire le fichierWapName = ThisWorkbook.Path & "/wap1.wml"'Tue le fichier s'il existe déjàSi Len(Dir(WapName)) > 0 AlorsTuer WapNameFin si'obtenir le titre wapWapTitle = InputBox("Titre", "MonTitreInput", _"Entrez le titre de votre site Wap")'exit si pas de titre wapSi WapTitle = "Entrez le titre de votre site Wap" _Ou WapTitle = "" AlorsMsgBox "Désolé, vous avez besoin d'un titre - Quitter maintenant"Quitter le sousFin si'ouvrir le classeur et écrire les informations d'en-tête wmlOuvrez ThisWorkbook.Path & "wap1.wml" pour ajouter en tant que #1Imprimer #1, "<?xml version=""1.0""?>"Imprimer #1, DocTypeImprimer #1, ""Imprimer #1, ""Imprimer #1, _""" & Titre Wap & """>"Imprimer #1, ""Imprimer #1, "
"'boucler à travers la feuille1, écrire le contenuPour le compteur = 1 à ActiveSheet.UsedRange.Rows.CountSi ce n'est pas le cas (Sheet1.Cells(Counter, 1)) AlorsImprimer #1, Sheet1.Cells(Counter, 1) & " |
Crédit : le code « Ecrire dans un fichier texte » est un dérivé des utilisateurs du journal de J-walk.
Conclusion : après ma brève introduction à Wml, il semble également possible de créer plusieurs pages à partir de données et de créer un menu de liens pour plusieurs ensembles de données. J'aimerais également rechercher une application pour présenter à l'utilisateur un moyen de rechercher un grand ensemble de données exporté à partir de données Excel.
Des opinions ou des idées sur le sujet de l'exportation d'Excel vers Wml, en particulier des utilisations possibles, ou d'autres réflexions ?
