Všechny kancelářské aplikace od společnosti Microsoft podporují automatizaci. Mohou běžet jako servery COM a lze je použít z dokumentů vložených nebo z externích skriptů. Můžete tedy zapisovat data do dokumentu Excel ze skriptu VBA.
Nezbytné
- - nainstalovaná aplikace Microsoft Excel;
- - Editor jazyka / textový editor.
Instrukce
Krok 1
Vytvořte kontejner pro hostování kódu VBA. Pokud má být skript vložen do dokumentu, nahrajte příslušný soubor do aplikace Microsoft Excel. Otevřete editor jazyka stisknutím Alt + F11. V případě potřeby vytvořte nový modul (položka modulu v nabídce Vložit). Otevřete jeden z modulů nebo formulářů. Vytvořte obslužnou rutinu pro ovládací prvek formuláře nebo jednoduše přidejte proceduru do modulu. Například:
Dílčí test ()
End Sub
Pokud vyvíjíte samostatný skript (tj. Bude spuštěn pod hostitelem Windows Script Host), jednoduše vytvořte soubor s příponou vbs v textovém editoru.
Krok 2
Ve skriptu vloženém v dokumentu přidejte deklarace proměnných na začátek procedury:
Dim oWorkbook jako Excel. Workbook
Dim oSheet jako Excel. Worksheet
První je pro uložení odkazu na objekt sešitu aplikace Excel a druhý pro list.
Krok 3
Inicializujte proměnné pomocí odkazů na objekty. Ve skriptu vbs vytvořte objekt aplikace Excel (tím se spustí Excel jako server COM):
Nastavte oApplication = CreateObject ("Excel. Application").
Ve skriptu vloženém do dokumentu bude použit globální objekt aplikace namísto proměnné oApplication, která odkazuje na aktuální objekt aplikace. Vyberte existující nebo otevřete nový sešit aplikace Excel. Například:
Set oWorkbook = Application. Workbooks (1)
Nastavit oWorkbook = Application. Workbooks ("Book1")
Nastavit oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevantni / tmp / test.xls")
Získejte odkaz na požadovaný list knihy:
Nastavit oSheet = oApplication. Sheets ("List1")
Krok 4
Zápis dat do aplikace Excel ze skriptu VBA. Pomocí kolekce buněk, která je vlastností objektu listu sešitu, na který se odkazuje v předchozím kroku, do proměnné oSheet. Příklad zápisu řetězce do jedné buňky může vypadat takto:
oSheet. Cells (1, 1) = "Řetězec bude zapsán do buňky A1"
Krok 5
Ve skriptu vbs přidejte kód pro uložení dat a ukončení aplikace Excel:
oWorkbook. Save
oApplication. Quit
Krok 6
Uložte a spusťte skript. V editoru jazyka stiskněte Ctrl + S a poté umístěte kurzor do těla procedury a stiskněte F5. Uložte skript VBS na disk a poté jej spusťte jako běžný soubor.
