Sve uredske aplikacije tvrtke Microsoft podržavaju automatizaciju. Mogu se izvoditi kao COM poslužitelji i koristiti se iz skripti ugrađenih u dokumente ili vanjskih skripti. Dakle, možete zapisati podatke u Excel dokument iz vba skripte.
Potrebno
- - instalirana aplikacija Microsoft Excel;
- - Visual Basic editor / uređivač teksta.
Upute
Korak 1
Stvorite spremnik za smještaj vba koda. Ako se skripta želi ugraditi u dokument, prenesite odgovarajuću datoteku u Microsoft Excel. Otvorite Visual Basic Editor pritiskom na Alt + F11. Ako je potrebno, stvorite novi modul (stavka modula u izborniku Umetni). Otvorite jedan od modula ili obrazaca. Izradite obrađivač za kontrolu obrasca ili jednostavno dodajte postupak modulu. Na primjer:
Podtest ()
Kraj pod
Ako razvijate samostalnu skriptu (tj. Izvodit će se pod hostom Windows Script Host), tada jednostavno napravite 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.
3. korak
Inicijalizirajte varijable referencama na objekt. U vbs skripti stvorite objekt aplikacije Excel (ovo će pokrenuti Excel kao COM poslužitelj):
Postavi oApplication = CreateObject ("Excel. Application").
U skripti ugrađenoj u dokument upotrebljavat ć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 ("Book1")
Postavite oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Nabavite vezu do željenog lista knjige:
Postavi oSheet = oApplication. Sheets ("Sheet1")
4. korak
Napišite podatke u Excel iz vba skripte. Upotrijebite kolekciju Cells, koja je svojstvo objekta lista radne knjige na koji se poziva u prethodnom koraku, u varijablu oSheet. 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 program Excel:
oRadna knjiga. Spremiti
oPrijava. Kit
Korak 6
Spremite i izvršite skriptu. U uređivaču Visual Basic pritisnite Ctrl + S, a zatim postavite kursor u tijelo postupka i pritisnite F5. Spremite vbs skriptu na disk, a zatim je pokrenite kao uobičajenu datoteku.
