Tartalom
Ha ismeri, hogyan kell Word makrót írni az adatok Excelből történő olvasásához, akkor megismerheti az egyik Office-alkalmazás módszerét a másik irányítására. A Microsoft ezt a típusú vezérlést "automatizálásnak" nevezi. Az automatizálás lehetővé teszi az Office bármely programjának, például a Word, az Excel, az Access és a PowerPoint összekapcsolását, majd egy másik alkalmazás virtuális objektumainak használatát. Az Excelből adatokat olvasó Word makró írásához használja a Visual Basic "CreateObject" utasítását az Excel hivatkozásának létrehozásához. Ezután használja az adatok elemzésére az Excel "celláiban" lévő objektumokról.
1. lépés
Nyissa meg az Excel programot, és írjon be egy értéket az első munkalap első cellájába. Kattintson a "Mentés" Office parancs gombra, és írja be a "c: ReadFromExcel.xlsx" parancsot a fájl nevéhez. Kattintson a "Mentés" gombra a munkafüzet mentéséhez és az Excel bezárásához.
2. lépés
Kattintson az Office gombra a Wordben, majd az "Opciók" gombra. Kattintson a "Fejlesztő" jelölőnégyzetre a Word makróparancsokat tartalmazó lap megjelenítéséhez.
3. lépés
Kattintson a "Visual Basic" "Fejlesztő" fülére a fejlesztői környezetbe való belépéshez.
4. lépés
Kattintson az "Eszközök" menüre, majd a "Hivatkozások" parancsra. Kattintson a "Microsoft Excel Objects" elemre, amely lehetővé teszi a makró számára a virtuális Excel objektumok elérését.
5. lépés
Írja be a következő programot a kódablakba. Ez a program létrehoz egy linket az Excel alkalmazásra, majd bezárja. A program továbbra sem tesz semmit a kialakított linkkel. Most a hivatkozással fogjuk megnyitni az 1. lépésben létrehozott Excel munkafüzetet.
Nyilvános al ReadExcelData () Dim pgmExcel mint Excel.Application Set pgmExcel = CreateObject ("Excel.Application") pgmExcel.Quit End Sub
6. lépés
Írja be a következő új utasításokat a "Beállítás" után. Ezek az utasítások megnyitják az 1. lépésben létrehozott Excel munkafüzetet, és bezárják. A felülvizsgált program még nem olvasott el semmilyen információt a könyvből. A következő nyilatkozatban olvassa el a könyv információit.
PgmExcel.Workbooks.Open "c: ReadFromExcel.xlsx"
7. lépés
Írja be a következő utasításokat a "Megnyitás" után. Ez az utasítás a pgmExcel objektum segítségével olvassa el az 1. lépés munkafüzet első cellájának értékét. Az "MsgBox" parancs megjeleníti ezt az értéket.
MsgBox pgmExcel.ActiveWorkbook.Sheet (1). Cellák (1, 1)
8. lépés
Kattintson bármelyik programállapotra, majd kattintson a menü "Futtatás" parancsára. "A program lefut, és megjeleníti az 1. lépésben beírt cella értékét.