Kaip sukurti bet kurio Office produkto neapdorotų duomenų failų schemą

Skelbimas

Ar ne puiku turėti galimybę tiesiog atidaryti „Excel“ skaičiuoklę ar „Word“ dokumentą ir nieko nedaryti visi duomenys nuskaitomi tiesiai iš teksto ar CSV duomenų failo ir įkeliami tiesiai į diagramą, įterptą į jūsų skaičiuoklę ar „Word“ dokumentas? Tai automatizavimo, naudojant „Office“ produktus, forma, nes jei įmanoma automatizuoti duomenų planavimą „Office“, pagalvokite apie galimybes. Galite automatiškai įkelti duomenis į ataskaitos, kurią rengiate savo viršininkui, diagramą - nereikia įvesti duomenų. Arba galite įkelti duomenis į diagramą tiesiai į „Outlook“ el. Paštą.

Technika tai padaryti apima „Office Web Components“ papildinio diegimą. Be to, jums tereikia sukonfigūruoti kelis dalykus „Office“ programoje, kuriuos norite naudoti duomenims importuoti, ir esate pasirengęs pradėti automatizuoti savo ataskaitų teikimo darbą. Aš aptariau keletą elementų, kuriuos naudosime šiame straipsnyje ankstesniame VBA straipsniai Kaip galite sukurti savo paprastą programą naudodami VBANorite sužinoti, kaip sukurti savo VBA programą, norint išspręsti problemas? Naudokitės šiais patarimais kurdami savo VBA programinę įrangą.

Skaityti daugiau čia „MakeUseOf“. Keletas iš jų pateikė duomenų perdavimą tarp programos su iškarpine Perduokite bet kokią informaciją iš VBA programų, naudodami mainų sritįViena iš žiauriausių darbo su VBA dalių konkrečiose programose yra tai, kad ne visada lengva gauti dvi programas „kalbėtis“ viena su kita. Galite išbandyti labai greitas operacijas ... Skaityti daugiau , eksportuoti „Outlook“ užduotys „Excel“ Kaip eksportuoti "Outlook" užduotis į "Excel" naudojant VBANesvarbu, ar esate „Microsoft“ gerbėjas, ar ne, vienas geras dalykas, kurį galima pasakyti bent jau apie „MS Office“ produktus, yra tai, kaip lengva integruoti kiekvieną iš jų ... Skaityti daugiau , ir siuntimas El. Laiškai iš „Excel“ Kaip siųsti el. Laiškus iš „Excel“ skaičiuoklės naudojant VBA scenarijusMūsų kodo šablonas padės nustatyti automatizuotus el. Laiškus iš „Excel“, naudojant bendradarbiavimo duomenų objektus (CDO) ir VBA scenarijus. Skaityti daugiau scenarijus.

Aš jums parodysiu, kaip sujungti „Office Web Components“ su teksto failo scenarijais ir sukurti sklandų, automatizuotą duomenų srautą iš paprasto teksto failo kompiuteryje į jūsų „Office“ produktą (mūsų atveju „Excel“). Tą pačią techniką galite naudoti su keliomis nedidelėmis modifikacijomis „Word“, „Outlook“ ar net „PowerPoint“. Bet kuris „Office“ produktas (arba bet kuris kitas tuo klausimu) produktas, turintis kūrėjų VBA pagrindą, leis naudoti šią techniką.

Importuokite ir sukurkite diagramą iš duomenų failų

Prieš kurdami diagramą iš duomenų failų, pirmiausia turėsite įjungti keletą dalykų. Šiame pavyzdyje aš jums parodysiu, kaip įgalinti šias funkcijas programoje „Excel“, tačiau procesas yra beveik vienodas visuose kituose „Office“ produktuose.

Pirmiausia, prieš pradėdami kurti VBA, įrankių juostoje turite įgalinti kūrėjo skirtuką (jei dar to nepadarėte). Norėdami tai padaryti, tiesiog eikite į meniu Parinktys, spustelėkite „Tinkinti juostelę“ ir įgalinkite skirtuką „Kūrėjas“.

Dabar „Excle“ meniu pamatysite „Kūrėjas“. Spustelėkite jį ir spustelėkite „Dizaino režimas“. Tada spustelėkite „Peržiūrėti kodą“, kad pamatytumėte VBA redaktorių.

Redaktoriaus viduje turėsite įgalinti nuorodas, kurių jums reikės kodui, kurį jums duosiu, dirbti. Prieš tai atlikdami įsitikinkite, kad įdiegėte „Office Web Components“ priedą, kitaip „Microsoft Chart“ objektas nebus prieinamas.

Spustelėkite Įrankiai, tada - Nuorodos, ir pamatysite visų jūsų sistemoje galimų nuorodų sąrašą. Jei nežinote, kas tai yra - nuorodos iš esmės yra kodų ir objektų, kuriuos galite įtraukti į savo projektą, bibliotekos. Tai leidžia jums padaryti tikrai įdomių dalykų, atsižvelgiant į tai, kokią nuorodą įgalinate. Jei ką tik įdiegėte „Office Web Components“ savo sistemoje, turėsite ją pridėti kaip naują biblioteką, todėl spustelėkite mygtuką Naršyti, kad rastumėte tinkamą .dll failą.

Jei esate įdiegę „Office Web Components“, tada DLL failas vadinamas OWC11.dll ir yra saugomas c: \ programos failai \ bendri failai \ „Microsoft“ bendrinami \ interneto komponentai \ 11 \

Spustelėkite žymės langelį, kuriame yra nuoroda „Microsoft Office Web Components 11.0“, ir taip pat nepamirškite Taip pat pasirinkite „Microsoft Scripting Runtime“, kuris suteiks prieigą prie duomenų skaitymo ar rašymo bylos.

Dabar, kai pridėjote nuorodą, laikas pridėti tikrąją diagramą prie savo lapo. „Excel“ programoje galite pridėti valdiklius spustelėdami „Įterpti“ meniu „Kūrėjas“ ir spustelėdami mažų įrankių piktogramą kampe, esančiame „ActiveX valdikliai“.

Slinkite į „Microsoft Office Chart 11.0“ ir spustelėkite Gerai.

Pagaliau pradedame verslą. Štai kaip atrodo „MS Web Component“ diagrama, įdėta į skaičiuoklę. Tai atrodys taip pat įdėta į „Word“ dokumentą ar bet ką kitą.

Taigi, „Excel“ atveju, noriu, kad diagrama iškart įkeltų duomenis iš duomenų failo, atidarius darbaknygės failą. Norėdami tai padaryti, eikite į kodo rengyklę, kūrėjo meniu spustelėję „Žiūrėti kodą“ ir dukart spustelėję darbaknygę, norėdami pamatyti darbaknygos kodą. Pakeiskite dešinįjį išskleidžiamąjį meniu į „Atidaryti“. Tai scenarijus, kuris bus paleistas pirmą kartą atidarius darbaknygės failą.

Norėdami įkelti diagramą su duomenimis iš kodo, pačiai diagramai reikia pavadinimo. Grįžkite į skaičiuoklę, dešiniuoju pelės mygtuku spustelėkite diagramą ir pasirinkite Ypatybės. Pamatysite lauką „Pavadinimas“ su kažkuo panašiu į „ChartSpace1“. Tai galite pakeisti bet kuo. Aš vadinau savo „MyChart“.

Be to, tik jūs žinote, koks yra duomenų failas - mano yra tekstinis failas, užpildytas duomenų reikšmėmis kableliais atskirtu formatu. Šis failas gali būti bet koks - laboratoriniai duomenys, eksportuojami iš jutiklių, finansinė informacija, įvesta į failą rankiniu būdu stažuotėms, ar bet kas kitas. Jūs skaitysite failą su savo kodu, todėl nesvarbu, kaip atrodo duomenys, tol, kol žinote, kaip atrodys kiekviena eilutė, kai jūsų programa jį skaitys.

Taigi, dabar linksmai daliai. Aš parodysiu jums kodą mažomis dalimis, kad jis nebūtų neįkyrus, ir paaiškinsiu, ką jis daro. Kodo viršuje pirmiausia bus skaitomos visos reikšmės iš teksto failo ir saugomos dviejuose masyvuose, vienas x kintamiesiems (xVar), o kitas y kintamiesiems (yVar).

Dim fso As New FileSystemObject. Dim fnum. Dim MyFile kaip stygos. Dim strDataLine kaip stygos. Dim xVar () kaip variantas. Dim yVar () kaip variantas. Dim intNumOfLines As Integer MyFile = "c: \ files \ MyData.txt" fnum = FreeFile () Atidarykite „MyFile“, kad galėtumėte įvesti kodą Nr. 1. intNumOfLines = 0. Daryti, kol ne EOF (1) intNumOfLines = intNumOfLines + 1 1 įvestis, strDataLine 1 įvestis, strDataLine. Kilpa. Uždaryti # 1 „ReDim xVar“ (intNumOfLines) „ReDim yVar“ (intNumOfLines) Atidarykite „MyFile“, kad galėtumėte įvesti duomenis kaip Nr. 1. intNumOfLines = 0. Atlikite, kol ne EOF (1) 1 įvestis, xVar (intNumOfLines) 1 įvestis, yVar (intNumOfLines) intNumOfLines = intNumOfLines + 1. Kilpa. Uždaryti Nr. 1

Šis kodas iš esmės praeina per duomenų failą du kartus - pirmą kartą išmatuokite masyvus taip, kad jie yra tikslus ilgis, reikalingas duomenims saugoti, o paskui antrą kartą norint juos nuskaityti masyvai. Jei nežinote, kas yra masyvas - tai kintamasis arba saugyklos sritis, kurioje bus ilgas verčių sąrašas, kurį galite pasiekti naudodamiesi tvarka, kad vertė buvo saugoma masyve. Pavyzdžiui, vienas pakrautas trečdalis būtų (3).

Dabar, kai turite du iš šių masyvų, į kuriuos įdėtos visos vertės iš jūsų duomenų failo, esate pasiruošę įkelti šias vertes į diagramą, kurią jau įdėjote. Štai kodas, kuris tai daro.

Naudodamiesi „Sheet1.MyChart“ .Clear .Refresh Set oChart = .Charts. Pridėti „oChart“. „HasTitle“ = tikroji „oChart“. Pavadinimas. Antraštė = „Mano duomenų vertės“, „oChart“. Interjeras. Spalva = "mėlyna" oChart. PlotArea. Interjeras. Spalva = "balta" Nustatyti oSeries = oChart. „SeriesCollection“. Pridėti su „oSeries“ .Caption = "Mano duomenų vertės" .SetData chDimCategories, chDataLiteral, xVar .SetData chDimValues, chDataLiteral, yVar .Line. Spalva = "mėlyna". Linija. DashStyle = chLineDash .Line. Svoris = 2. Tipas = chChartTypeLine pabaiga su oChart. HasLegend = Tiesa. oChart. Legenda. Padėtis = chLegendPositionBottom. Pabaiga su

Tai yra „Sheet1.MyChart“, kuris susieja kodą su faktine diagrama, kurią įdėjote. Tai priklauso nuo to, ką jūs jį pavadinote. Tai bus atvejis, kai įdėsite jį į „Word“, „Powerpoint“ ar bet kurį kitą „Office“ produktą. Jūs neminėsite jo naudodami „1 lapą“, o bet kuris elementas, tokiu atveju turintis diagramą, pvz., „Word1“, pavyzdžiui, „document1“.

Aukščiau pateiktas kodas nustato grafiko žymėjimą ir spalvą, tada įveda reikšmes, naudodamas „.setdata“ metodą, tiek x, tiek y reikšmėms 2 matmenų duomenų rinkinyje. Kai aukščiau pateiktas kodas bus paleistas, pasirodys ši schema.

Šie duomenys yra tiesiogiai iš teksto failo. Vienintelis trūkumas yra tas, kad duomenų failai turėtų būti dviejų matmenų tik tuo atveju, jei norite naudoti aukščiau esantį kodą. Prie duomenų rinkinio galėtumėte pridėti daugiau reikšmių, tačiau turėtumėte modifikuoti aukščiau esantį kodą, kad kaskart per eilutę skaitytumėte trečiąją vertę, o tada kopijuokite „SeriesCollection“. Pridėti “, norėdami sukurti kitą seriją ir tokiu pačiu būdu įtraukti ją į diagramą.

Tai gali atrodyti sudėtinga, tik perskaičius aukščiau esantį kodą, tačiau atlikę vieną iš šių veiksmų, galite jį modifikuoti pagal savo poreikius. Jūs galite naudoti tą pačią diagramą ir panašų kodą, norėdami sukurti juostinę diagramą, išsklaidymo diagramą ar bet kurį kitą diagramos tipą, kurį norite naudoti tuo pačiu objektu. Jis yra universalus ir lankstus - ir yra galingas įrankis jūsų arsenale, jei esate kolega automatikos gerbėjas, kad padidintumėte produktyvumą.

Žaiskite aukščiau esančiu kodu ir sužinokite, ar galite automatiškai įkelti duomenis į savo programas. Kokius kūrybinius panaudojimo būdus galite sugalvoti tokio tipo automatizavimui? Pasidalykite savo mintimis ir atsiliepimais komentarų skiltyje žemiau!