Kā eksportēt Excel datus, lai tos apskatītu no mobilā tālruņa vai mobilās ierīces?
Tālāk ir sniegts pamata piemērs makro izmantošanai, lai vienu kolonnu no Excel izklājlapas eksportētu uz Wml (bezvadu iezīmēšanas valodas) failu, kuru var augšupielādēt jūsu serverī un piekļūt no mobilā tālruņa.
Eksperiments: Man ir saraksts Excel 1. lapas A slejā ar dziesmu sarakstu no CD: Perfect Circle - Mer De Noms. Pirmkārt, es vēlos eksportēt datus no Excel Wml formātā, otrkārt, augšupielādēt savā serverī un visbeidzot apskatīt dziesmu sarakstu no sava mobilā tālruņa pārlūkprogrammas. Grafisks attēlojums:
Lai to paveiktu, es izmantoju VBA makro un Wml. Lai iegūtu pamatzināšanas par Wml, es jūs novirzīšu uz citu apmācību no w3schools.
Jūs varat apskatīt mana Excel uz Wap eksperimenta gala rezultātu šādā adresē:
| 1 | www.automateexcel.com/pl/wap1.wml |
un to var izdarīt savas mobilās ierīces pārlūkprogrammā, nokopējiet un ielīmējiet adresi wap emulatorā vai apskatot šo ļoti izplūdušo attēlu (laiks jaunai digitālajai kamerai!).
Izmēģiniet pats
1. Kopējiet šo kodu uz moduļa programmā Excel (palīdzība?)
2. Ievietojiet tekstu 1. lapas A slejā un Saglabāt savu darbgrāmatu
3. Palaidiet makro
4. Wml fails tiks izveidots tajā pašā mapē, kurā ir atvērta darbgrāmata.
5. Augšupielādējiet Wml failu savā serverī un apskatiet to mobilajā tālrunī.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Sub WAP ()Dim WapTitle kā virkneDim WapName kā virkneDim DocType kā virkneDim skaitītājs kā vesels skaitlisDocType = ""'vieta, kur rakstīt failuWapName = ThisWorkbook.Path & "/wap1.wml"'Nogaliniet failu, ja tas jau pastāvJa Len (Rež. (WapName))> 0 TadNogalināt WapNameBeigas Ja'saņem wap virsrakstuWapTitle = InputBox ("Nosaukums", "MyInputTitle", _"Ievadiet savas Wap vietnes nosaukumu")'izejiet, ja nav wap virsrakstaIf WapTitle = "Ievadiet savas Wap vietnes nosaukumu" _Vai WapTitle = "" TadMsgBox "Atvainojiet, ka jums ir nepieciešams nosaukums - atmest tūlīt"Iziet no apakšnodaļasBeigas Ja'atveriet darbgrāmatu un uzrakstiet wml galvenes informācijuAtveriet vietni ThisWorkbook.Path & "wap1.wml", lai pievienotu kā #1Drukāt #1, "<? Xml version =" "1.0" "?>"1. izdruka, DocType1. izdruka, ""1. izdruka, ""1. izdruka, _"" "& WapTitle &" ""> "1. izdruka, ""1. izdruka, "
"'cilpa caur lapu1, rakstiet saturuSkaitītājam = 1 uz ActiveSheet.UsedRange.Rows.CountIf Not IsEmpty (Sheet1.Cells (Counter, 1)) Tad1. izdruka, 1. lapa. Šūnas (skaitītājs, 1) & " |
Kredīts: kods “Rakstīt teksta failā” ir atvasinājums no J-walk žurnāla lietotājiem.
Secinājums: Pēc mana īsā Wml ievada šķiet arī iespējams izveidot no datiem vairākas lapas un izveidot saišu izvēlni vairākām datu kopām. Es arī vēlētos izpētīt lietojumprogrammu, lai parādītu lietotājam veidu, kā meklēt lielu datu kopu, kas eksportēta no Excel datiem.
Vai ir kādi viedokļi vai idejas par Excel eksportēšanu uz Wml, īpaši iespējamie lietojumi vai citas domas?
