
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Excel munkafüzet és diagram létrehozása

Windows Scripting Host 5. rész

Példaprogram letöltése

2290 bájt

Cikksorozatunk jelen részében létrehozunk egy Excel munkafüzetet, feltöltjük számokkal néhány celláját, majd ebből készítünk egy diagrammot, amit 360 fokkal 5 fokonként elforgatunk.

A Microsoft Office programcsalád tagjai VB Scriptek segítségével nagyon jól programozhatók. Excel munkafüzetek, Word dokumentumok dinamikusan szkriptből készíthetők és tartalmaznak olyan szintű támogatást, hogy gyakorlatilag pár programsorral komplett dokumentációk hozhatók létre.
Vágjunk is bele a feladat végrehajtásába, ehhez az Excel.Application objektumot fogjuk használni:

Készítsünk egy XLS nevű objektumváltozót.

Set XLS = WScript.CreateObject("Excel.Application")

A következő lépés, hogy létre kell hozni egy új munkafüzetet a "Workbooks.Add" metódussal.

XLS.Workbooks.Add

Töltsünk fel néhány cellát számokkal. A cellák szkriptbeli megfelelője a következő: A1=1,1; B1=1,2; C1=1,3; D1=1,4; E1=1,5. Értéket a VALUE metódussal lehet elhelyezni. Számot a VALUE = szám, sztringet pedig a VALUE = "sztring" szintaxis használatával.

XLS.Cells(1,1).Value = 30
XLS.Cells(1,2).Value = 50
XLS.Cells(1,3).Value = 10
XLS.Cells(1,4).Value = 20
XLS.Cells(1,5).Value = 40

Jelöljük ki az A1 és E1 közötti cellákat a RANGE paranccsal. A kijelölt cellák értékeiből készítünk grafikont.

XLS.Range("A1:E1").Select

Szükségünk van egy újabb objektumváltozóra, ami ezúttal a CHARTS objektumhoz kapcsolódik. Megfigyelhető, hogy a változó deklarációval együtt mindjárt meghívtuk az ADD metódust is. <

Set XLSChart = XLS.Charts.Add

Eddig mindaz amit eddig csináltunk a háttérben zajlott, az Excel meghívásával tehetjük láthatóvá. Ezt az Excel objektum VISIBLE metódussal tudjuk elérni

XLS.Visible = True

Beállítunk néhány paramétert a diagrammon: TYPE=-4102 jelenti a "torta" diagrammot (kísérletezhetünk másik számokkal is), azután engedélyezzük a fejléc megjelenítését (.HasTitle = True) és megadjuk a fejléc szövegét.

With XLSChart
    .Type = -4102
    .HasTitle = True
    .ChartTitle.Text = "Windows Software Online"
End With

A diagramm elforgatását egy FOR ciklusban a ROTATION metódussal tesszük meg 5 fokonként.

For Rotate = 0 To 360 Step 5
    XLSChart.Rotation = Rotate
Next

Próbáljuk ki a kész szkriptet. A forgatás alatt ugyan egy kicsit villog, de nem az animáció volt a példa bemutatásának a célja, hanem a diagramm elkészítésének és elforgatásának bemutatása egy kiinduló Excel adatsorból. A szkript elindítja az Excel-t és abban dolgozik tovább a beírt számokat és kijelölésüket a "Munka1" oldalra kattintva láthatjuk.

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
2598	Windows	Beépített tűzfal - Internet Connection Firewall (ICF)	1. rész
2605	Windows	Network Bridge	2. rész
2643	Windows	Remote Desktop	3. rész
2648	Windows	Internetes időszinkronizálás	4. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Windows Software Offline 2001 évkönyv 208. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!