Všetky kancelárske aplikácie od spoločnosti Microsoft podporujú automatizáciu. Môžu bežať ako servery COM a môžu sa používať z dokumentov vložených alebo z externých skriptov. Môžete teda zapisovať údaje do dokumentu programu Excel zo skriptu VBA.
Nevyhnutné
- - nainštalovaná aplikácia Microsoft Excel;
- - editor jazyka Visual Basic / textový editor.
Inštrukcie
Krok 1
Vytvorte kontajner na hosťovanie kódu VBA. Ak má byť skript vložený do dokumentu, nahrajte príslušný súbor do programu Microsoft Excel. Stlačením kombinácie klávesov Alt + F11 otvorte editor jazyka Visual Basic. V prípade potreby vytvorte nový modul (položka Modul v ponuke Vložiť). Otvorte jeden z modulov alebo formulárov. Vytvorte obslužnú rutinu pre ovládací prvok formulára alebo jednoducho pridajte procedúru do modulu. Napríklad:
Čiastkový test ()
Koniec Sub
Ak vyvíjate samostatný skript (to znamená, že bude bežať pod Windows Script Host), potom jednoducho vytvorte súbor s príponou vbs v textovom editore.
Krok 2
V skripte vloženom do dokumentu pridajte na začiatku procedúry deklarácie premenných:
Dim oWorkbook ako Excel. Workbook
Stlmiť oSheet ako Excel. Pracovný list
Prvý slúži na ukladanie odkazu na objekt zošita programu Excel a druhý slúži na hárok.
Krok 3
Inicializujte premenné pomocou referencií na objekty. V skripte vbs vytvorte objekt aplikácie Excel (tým sa Excel spustí ako server COM):
Nastavte oApplication = CreateObject ("Excel. Application").
V skripte vloženom v dokumente sa namiesto premennej oApplication, ktorá odkazuje na aktuálny objekt aplikácie, použije globálny objekt Application. Vyberte existujúci alebo otvorte nový zošit programu Excel. Napríklad:
Set oWorkbook = Application. Workbooks (1)
Nastaviť oWorkbook = Application. Workbooks ("Kniha1")
Nastaviť oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevantné / tmp / test.xls")
Získajte odkaz na požadovaný list knihy:
Nastaviť oSheet = oApplication. Sheets ("List1")
Krok 4
Zápis údajov do programu Excel zo skriptu VBA. Použite kolekciu Bunky, ktorá je vlastnosťou objektu listu zošita, na ktorý sa odkazuje v predchádzajúcom kroku, do premennej oSheet. Príklad zápisu reťazca do jednej bunky môže vyzerať takto:
oSheet. Cells (1, 1) = "Reťazec sa zapíše do bunky A1"
Krok 5
V skripte vbs pridajte kód na uloženie údajov a vypnite aplikáciu Excel:
oWorkbook. Save
oApplication. Quit
Krok 6
Uložte a vykonajte skript. V editore jazyka Visual Basic stlačte Ctrl + S, potom umiestnite kurzor do tela procedúry a stlačte F5. Uložte skript VBS na disk a potom ho spustite ako bežný súbor.
