Kaip eksportuoti „Excel“ duomenis, kad juos būtų galima peržiūrėti iš mobiliojo telefono ar mobiliojo įrenginio?
Toliau pateikiamas pagrindinis pavyzdys, kaip naudojant makrokomandą eksportuoti vieną stulpelį iš „Excel“ skaičiuoklės į Wml (belaidės žymėjimo kalbos) failą, kurį galima įkelti į jūsų serverį ir pasiekti iš mobiliojo telefono.
Eksperimentas: „Excel“ lapo A stulpelyje turiu sąrašą su takelių sąrašu iš kompaktinio disko: „Perfect Circle - Mer De Noms“. Pirmiausia noriu eksportuoti duomenis iš „Excel“ Wml formatu, antra, įkelti į savo serverį ir galiausiai peržiūrėti takelių sąrašą iš savo mobiliojo telefono naršyklės. Grafinis vaizdas:
Norėdami tai padaryti, naudoju VBA makrokomandą ir Wml. Norėdami geriau suprasti Wml, kreipiuosi į kitą „w3schools“ vadovėlį.
Galutinį mano „Excel to Wap“ eksperimento rezultatą galite peržiūrėti šiuo adresu:
| 1 | www.automateexcel.com/pl/wap1.wml |
ir tai galite padaryti savo mobiliojo prietaiso naršyklėje, nukopijuokite ir įklijuokite adresą į „wap“ emuliatorių arba peržiūrėkite šį labai neryškų vaizdą (laikas naujam skaitmeniniam fotoaparatui!).
Išbandykite patys
1. Nukopijuokite šį kodą į „Excel“ modulį (pagalba?)
2. Įdėkite tekstą į 1 lapo A stulpelį ir Sutaupyti savo darbaknygę
3. Paleiskite makrokomandą
4. Wml failas bus sukurtas tame pačiame aplanke kaip ir atidaryta darbo knyga.
5. Įkelkite Wml failą į savo serverį ir peržiūrėkite mobiliajame telefone.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle As StringDim WapName As StringDim DimType kaip eilutėDim skaitiklis kaip sveikasis skaičiusDocType = ""“vieta failui rašytiWapName = ThisWorkbook.Path & "/wap1.wml"„Nužudyk failą, jei jis jau yraJei Len (Dir (WapName))> 0 TadaNužudyk WapNamePabaiga Jei'gauti wap pavadinimąWapTitle = InputBox („Pavadinimas“, „Mano įvesties pavadinimas“, _„Įveskite savo„ Wap “svetainės pavadinimą“)'išeiti, jei nėra wap pavadinimoJei WapTitle = "Įveskite savo" Wap "svetainės pavadinimą" _Arba WapTitle = "" Tada„MsgBox“ „Atsiprašau, kad reikia pavadinimo - mesti dabar“Išeiti iš SubPabaiga Jeiatidarykite darbo knygą ir parašykite „wml“ antraštės informacijąAtidarykite „ThisWorkbook.Path“ ir „wap1.wml“, jei norite pridėti kaip 1Spausdinti #1, "<? Xml version =" "1.0" "?>"1 spausdinimas, „DocType“Spausdinti #1, ""Spausdinti #1, ""1 spausdinimas, _"" "& WapTitle &" ""> "Spausdinti #1, ""1 spausdinimas “
"„perjunkite lapą1, parašykite turinįSkaičiuoklė = 1 į ActiveSheet.UsedRange.Rows.CountJei ne IsEmpty (Sheet1.Cells (Counter, 1)) TadaSpausdinti #1, 1 lapas. Ląstelės (skaitiklis, 1) & " |
Kreditas: kodas „Rašyti į tekstinį failą“ yra „J-walk“ žurnalo vartotojų išvestinė priemonė.
Išvada: Po trumpo įvado į Wml taip pat atrodo įmanoma sukurti kelis puslapius iš duomenų ir sukurti nuorodų meniu, skirtą keliems duomenų rinkiniams. Taip pat norėčiau ištirti programą, kad vartotojui būtų pateiktas būdas ieškoti didelio duomenų rinkinio, eksportuoto iš „Excel“ duomenų.
Ar turite kokių nors nuomonių ar idėjų apie „Excel“ eksportavimą į „Wml“, ypač apie galimus naudojimo būdus, ar kitų minčių?
