Kā izveidot diagrammu no neapstrādātu datu failiem jebkurā Office produktā

Reklāma

Vai nebūtu jauki, ja būtu iespēja vienkārši atvērt Excel izklājlapu vai Word dokumentu un, neko neveicot vietnē visi dati tiek nolasīti tieši no teksta vai CSV datu faila un tiek ielādēti tieši diagrammā, kas iegulta izklājlapā vai Word dokumentu? Šis ir automatizācijas veids, izmantojot Office produktus, jo, ja Office sistēmā ir iespējams automatizēt datu kartēšanu, vienkārši padomājiet par iespējām. Varat automātiski ielādēt datus diagrammā pārskatam, kuru sagatavojat savam priekšniekam - datu ievadīšana nav nepieciešama. Vai arī datus diagrammā varat ielādēt tieši Outlook e-pastā.

Metode, kā to izdarīt, ietver Office Web Components pievienojumprogrammas instalēšanu. Turklāt jums vienkārši ir jākonfigurē dažas lietas Office lietojumprogrammā, kuras vēlaties izmantot datu importēšanai, un esat gatavs sākt automatizēt savu pārskatu darbu. Es apskatīju dažus elementus, kurus mēs šajā rakstā izmantosim iepriekšējā VBA raksti Kā jūs varat izveidot savu vienkāršo lietotni, izmantojot VBA

Vai vēlaties uzzināt, kā izveidot savu VBA lietojumprogrammu problēmu risināšanai? Izmantojiet šos padomus, lai izveidotu savu VBA programmatūru. Lasīt vairāk šeit vietnē MakeUseOf. Daži no tiem ietvēra datu nodošanu starp lietojumprogrammas ar starpliktuvi Nodrošiniet visu informāciju starp VBA lietojumprogrammām, izmantojot starpliktuviViena no visvairāk satraucošajām detaļām darbā ar VBA konkrētās lietojumprogrammās ir tā, ka ne vienmēr ir viegli iegūt divas lietojumprogrammas, lai “sarunātos” savā starpā. Jūs varat izmēģināt ļoti ātrus darījumus ... Lasīt vairāk , eksportēšana Outlook uzdevumi Excel Kā eksportēt savus Outlook uzdevumus uz Excel, izmantojot VBANeatkarīgi no tā, vai esat Microsoft ventilators vai nē, viena laba lieta, ko var teikt vismaz par MS Office produktiem, ir tā, cik viegli ir integrēt katru no tām ... Lasīt vairāk , un nosūtīšana E-pasti no Excel Kā nosūtīt e-pastus no Excel izklājlapas, izmantojot VBA skriptusMūsu koda veidne palīdzēs iestatīt automatizētus e-pastus no Excel, izmantojot sadarbības datu objektus (CDO) un VBA skriptus. Lasīt vairāk skripts.

Es jums parādīšu, kā apvienot Office Web Components ar teksta faila skriptu, lai izveidotu viengabalaina, automatizēta datu straume no plakanā teksta faila datorā uz jūsu Office produktu (mūsu gadījumā - Excel). Jūs varat izmantot šo pašu paņēmienu - ar dažām nelielām modifikācijām - Word, Outlook vai pat PowerPoint. Jebkurš Office produkts (vai jebkurš cits produkts šajā jautājumā), kura izstrādātājiem ir VBA fons, ļaus jums izmantot šo paņēmienu.

Importējiet un izveidojiet diagrammu no datu failiem

Lai varētu izveidot diagrammu no datu failiem, vispirms jāiespējo dažas lietas. Šajā piemērā es jums parādīšu, kā iespējot šīs funkcijas programmā Excel, taču process ir gandrīz identisks visiem citiem Office produktiem.

Pirmkārt, pirms VBA izstrādes varat rīkjoslā iespējot cilni Izstrādātājs (ja vēl neesat to izdarījis). Lai to izdarītu, vienkārši dodieties uz izvēlni Opcijas, noklikšķiniet uz “Pielāgot lenti” un iespējojiet cilni “Izstrādātājs”.

Atpakaļ Excle, izvēlnēs jūs redzēsit “Developer”. Noklikšķiniet uz tā un noklikšķiniet uz “Projektēšanas režīms”. Pēc tam noklikšķiniet uz “Skatīt kodu”, lai redzētu VBA redaktoru.

Redaktora iekšpusē jums būs jāiespējo atsauces, kas jums būs vajadzīgas, lai izmantotu kodu, kuru es jums sniegšu. Pirms to izdarīt, pārliecinieties, vai esat instalējis Office Web Components pievienojumprogrammu, pretējā gadījumā objekts Microsoft Chart nebūs pieejams.

Noklikšķiniet uz Rīki un pēc tam uz Atsauces, un jūs redzēsit visu jūsu sistēmā pieejamo atsauču sarakstu. Ja jūs nezināt, kas tie ir - atsauces būtībā ir koda un objektu bibliotēkas, kuras varat piesaistīt savam projektam. Tas ļauj jums veikt dažas patiešām atdzist lietas, atkarībā no tā, kuru atsauci jūs iespējot. Ja savā sistēmā esat tikko instalējis Office Web komponentus, tas būs jāpievieno kā jauna bibliotēka, tāpēc noklikšķiniet uz pogas Pārlūkot, lai atrastu pareizo .dll failu.

Ja esat instalējis Office Web Components, tad DLL fails tiek saukts par OWC11.dll, un tas tiek saglabāts c: \ programmas failos \ kopējos failos \ microsoft koplietotajā \ Web komponentā \ 11 \

Noklikšķiniet uz izvēles rūtiņas atsauces “Microsoft Office Web Components 11.0” un neaizmirstiet arī to izdarīt atlasiet arī “Microsoft Scripting Runtime”, kas ļaus jums piekļūt lasīšanai vai rakstīšanai no datiem failus.

Tagad, kad esat pievienojis atsauci, ir pienācis laiks savai lapai pievienot faktisko diagrammu. Programmā Excel varat pievienot vadīklas, izstrādātāja izvēlnē noklikšķinot uz “Ievietot” un stūrī zem “ActiveX vadīklas” noklikšķinot uz mazo rīku ikonas.

Ritiniet līdz “Microsoft Office Chart 11.0” un noklikšķiniet uz Labi.

Mēs beidzot sākam strādāt. Lūk, kā izskatās MS Web Component diagramma, kas iegulta izklājlapā. Tas izskatīsies tas pats, kas iestrādāts Word dokumentā vai citur.

Tātad, Excel gadījumā, es vēlos, lai, atverot darbgrāmatas failu, diagramma uzreiz ielādētu datus no datu faila. Lai to izdarītu, dodieties uz koda redaktoru, izstrādātāja izvēlnē noklikšķinot uz “Skatīt kodu” un divreiz noklikšķinot uz darbgrāmatas, lai redzētu darbgrāmatas kodu. Mainiet labo nolaižamo izvēlni uz “Atvērt”. Šis ir skripts, kas darbosies, pirmo reizi atverot darbgrāmatas failu.

Lai ielādētu diagrammu ar datiem no koda, diagrammai ir nepieciešams nosaukums. Atgriezieties izklājlapā, ar peles labo pogu noklikšķiniet uz diagrammas un izvēlieties Properties. Jūs redzēsit lauku “Nosaukums” ar kaut ko līdzīgu “ChartSpace1”. To var mainīt uz jebko. Mani sauc par “MyChart”.

Turklāt, lai jūs zināt, kāds ir datu fails - mans ir teksta fails, kas ar datu vērtībām piepildīts ar komatu atdalītā formātā. Šis fails var būt jebkas - laboratorijas dati, kas eksportēti no sensoriem, finanšu informācija, ko failā manuāli ievadījuši stažieri, vai vispār kaut kas cits. Jūs lasīsit failu ar savu kodu, tāpēc nav svarīgi, kā izskatās dati, ja vien jūs zināt, kāda izskatīsies katra rinda, kad jūsu programma to izlasīs.

Tātad, tagad par jautro daļu. Es jums parādīšu kodu nelielās sadaļās, lai tas nebūtu apgrūtinošs, un paskaidrošu, ko kods dara. Koda augšdaļā vispirms tiek nolasītas visas vērtības no teksta faila un saglabātas divās masīvā, vienā x mainīgajiem (xVar) un vienā y mainīgajiem (yVar).

Dim fso Kā jauns FileSystemObject. Dim fnum. Dim MyFile kā stīgu. Dim strDataLine kā stīgu. Dim xVar () kā variants. Dim yVar () kā variants. Dim intNumOfLines As Integer MyFile = "c: \ files \ MyData.txt" fnum = FreeFile () Atveriet MyFile ievadīšanai kā nr. 1. intNumOfLines = 0. Dariet, kamēr ne EOF (1) intNumOfLines = intNumOfLines + 1 1. ieeja, strDataLine 1. ieeja, strDataLine. Cilpa. Aizvērt # 1 ReDim xVar (intNumOfLines) ReDim yVar (intNumOfLines) Atveriet MyFile, lai ievadītu kā 1. numuru. intNumOfLines = 0. Darīt, kamēr nav EOF (1) 1. ievade, xVar (intNumOfLines) 1. ievade, yVar (intNumOfLines) intNumOfLines = intNumOfLines + 1. Cilpa. Aizveriet 1. numuru

Šis kods principā divreiz iziet cauri datu failam - pirmo reizi masīvus izmēra tā, lai tie ir precīzi dati, kas nepieciešami datu glabāšanai, un pēc tam otro reizi, lai tos lasītu masīvi. Ja jūs nezināt, kas ir masīvs - tas ir mainīgais vai krātuves apgabals, kurā būs garš vērtību saraksts, kuram varat piekļūt, izmantojot secību, ka vērtība tika saglabāta masīvā. Trešā, piemēram, ir piekrauta (3).

Tagad, kad divi no šiem masīviem ir ielādēti ar visām vērtībām no jūsu datu faila, jūs esat gatavs ielādēt šīs vērtības diagrammā, kuru jau esat iegultu. Šis ir kods, kas to dara.

Izmantojot lapu Sheet1.MyChart .Clear .Atjaunināt Iestatiet oChart = .Charts. Pievienojiet oChart. HasTitle = True oChart. Nosaukums. Paraksts = 'Manas datu vērtības' 'oChart. Interjers. Krāsa = "zila" oChart. PlotArea. Interjers. Krāsa = "balta" Iestatīt oSeries = oChart. SeriesCollection. Pievienot ar oSeries .Caption = "Manas datu vērtības" .SetData chDimCategories, chDataLiteral, xVar .SetData chDimValues, chDataLiteral, yVar .Line. Krāsa = "zila" .Līnija. DashStyle = chLineDash .Line. Svars = 2. Type = chChartTypeLine Beigt ar oChart. HasLegend = True. oChart. Leģenda. Pozīcija = chLegendPositionBottom. Beigt ar

Tas ir “Sheet1.MyChart”, kas savieno kodu ar faktisko diagrammu, kuru esat iegultu. Tas ir balstīts uz to, ko jūs to nosaucāt. Tas notiks, kad iegulsit to Word, Powerpoint vai citos Office produktos. Jūs to nenorādīsit, izmantojot “1. lapu”, bet jebkurš elements tajā gadījumā satur diagrammu, piemēram, “dokuments1” Word.

Iepriekš esošajā kodā tiek iestatīta diagrammas marķēšana un krāsošana un pēc tam, izmantojot “.setdata” metodi, tiek ielādētas vērtības gan divdimensiju datu kopas x, gan y vērtībām. Kad iepriekš minētais kods būs izpildīts, parādīsies šāda diagramma.

Šie dati ir tieši no teksta faila. Vienīgais trūkums šeit ir tas, ka datu failiem jābūt divdimensionāliem tikai tad, ja vēlaties izmantot iepriekš minēto kodu. Datu kopai jūs varētu pievienot vairāk vērtību, taču jums bija jāmaina iepriekš norādītais kods, lai katru reizi cilpā lasītu trešo vērtību un pēc tam dublētu “SeriesCollection. Pievienot ”, lai izveidotu citu sēriju un pēc tam tādā pašā veidā pievienotu to diagrammai.

Tas var šķist sarežģīti, tikai izlasot iepriekš minēto kodu, taču, kad esat paveicis kādu no šiem, tas ir kūka, lai modificētu to neatkarīgi no jūsu vajadzībām. Jūs varētu izmantot to pašu diagrammu un līdzīgu kodu, lai izveidotu joslu diagrammu, izkliedes diagrammu vai jebkuru citu diagrammas veidu, kuru vēlaties izmantot, izmantojot šo pašu objektu. Tas ir universāls un elastīgs - un tas ir spēcīgs rīks jūsu arsenālā, ja jūs esat kāds automatizācijas ventilators, lai panāktu lielāku produktivitāti.

Spēlējiet spēli ar iepriekš minēto kodu un pārbaudiet, vai varat automātiski ielādēt datus savās lietojumprogrammās. Kādus radošus lietojumus jūs varat izdomāt šāda veida automatizācijai? Kopīgojiet savas domas un atsauksmes komentāru sadaļā zemāk!