Sve kancelarijske aplikacije Microsofta podržavaju automatizaciju. Mogu se pokretati kao COM serveri i koristiti iz skripti ugrađenih u dokumente ili eksternih skripti. Dakle, možete zapisati podatke u Excel dokument iz vba skripte.
Potrebno
- - instalirana aplikacija Microsoft Excel;
- - Visual Basic editor / uređivač teksta.
Instrukcije
Korak 1
Stvorite spremnik za smještaj vba koda. Ako će skripta biti ugrađena u dokument, prenesite odgovarajuću datoteku u Microsoft Excel. Otvorite Visual Basic Editor pritiskom na Alt + F11. Ako je potrebno, kreirajte novi modul (stavka modula u meniju Umetanje). Otvorite jedan od modula ili obrazaca. Stvorite obrađivač za kontrolu obrasca ili samo dodajte proceduru modulu. Na primjer:
Sub test ()
Kraj pod
Ako razvijate samostalnu skriptu (tj. Izvodit će se pod Windows Script Host-om), onda jednostavno kreirajte datoteku s vbs nastavkom u uređivaču teksta.
Korak 2
U skriptu ugrađenu u dokument dodajte deklaracije varijabli na početku postupka:
Dim oWorkbook As Excel. Workbook
Dim oSheet As Excel. Worksheet
Prvi je za spremanje reference na objekt Excel radne knjige, a drugi za list.
Korak 3
Inicijalizirajte varijable referencama objekta. U vbs skripti stvorite objekt aplikacije Excel (ovo će pokrenuti Excel kao COM server):
Postavi oApplication = CreateObject ("Excel. Application").
U skripti ugrađenoj u dokument koristit će se globalni objekt Application umjesto varijable oApplication, koja se odnosi na trenutni objekt aplikacije. Odaberite postojeću ili otvorite novu Excel knjigu. Na primjer:
Postavi oWorkbook = Application. Workbooks (1)
Postavi oWorkbook = Application. Workbooks ("Knjiga1")
Postavite oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Nabavite vezu do željenog lista knjige:
Postavi oSheet = oApplication. Sheets ("Sheet1")
Korak 4
Napišite podatke u Excel iz vba skripte. U varijablu oSheet upotrijebite kolekciju Cells, koja je svojstvo objekta lista radne knjige na koji se poziva u prethodnom koraku. Primjer pisanja niza u jednu ćeliju mogao bi izgledati ovako:
oSheet. Cells (1, 1) = "Niz će biti zapisan u ćeliju A1"
Korak 5
U vbs skriptu dodajte kôd za spremanje podataka i isključite Excel aplikaciju:
oWorkbook. Save
oApplication. Quit
Korak 6
Spremite i izvršite skriptu. U programu Visual Basic Editor pritisnite Ctrl + S, a zatim postavite kursor u tijelo procedure i pritisnite F5. Spremite vbs skriptu na disk, a zatim je pokrenite kao uobičajenu datoteku.
