Kaikki Microsoftin toimistosovellukset tukevat automaatiota. Ne voivat toimia COM-palvelimina, ja niitä voidaan käyttää asiakirjoihin upotetuista tai ulkoisista skripteistä. Joten voit kirjoittaa tietoja Excel-asiakirjaan vba-skripteistä.
Välttämätön
- - asennettu Microsoft Excel -sovellus;
- - Visual Basic -editori / tekstieditori.
Ohjeet
Vaihe 1
Luo säilö vba-koodin isännöimiseksi. Jos komentosarja on upotettava asiakirjaan, lataa sopiva tiedosto Microsoft Exceliin. Avaa Visual Basic Editor painamalla Alt + F11. Luo tarvittaessa uusi moduuli (Moduulikohta Lisää-valikossa). Avaa yksi moduuleista tai lomakkeista. Luo käsittelijä lomakeohjausta varten tai lisää vain menettely moduuliin. Esimerkiksi:
Alatesti ()
End Sub
Jos kehität erillistä komentosarjaa (ts. Se toimii Windows Script Hostissa), luo yksinkertaisesti tiedosto, jossa on vbs-laajennus tekstieditorissa.
Vaihe 2
Lisää muuttuja-ilmoitukset asiakirjan upotettuun komentosarjaan menettelyn alkuun:
Himmennä työkirja Excel-työkirjana
Himmennä taulukkoa Excel-työpöytänä
Ensimmäinen on tarkoitettu viittauksen tallentamiseen Excel-työkirjaobjektiin ja toinen on arkille.
Vaihe 3
Alusta muuttujat objektiviittauksilla. Luo vbs-komentosarjassa Excel-sovellusobjekti (tämä käynnistää Excelin COM-palvelimena):
Aseta oApplication = CreateObject ("Excel. Application").
Asiakirjaan upotetussa komentosarjassa käytetään yleistä Application-objektia oApplication-muuttujan sijaan, joka viittaa nykyiseen sovellusobjektiin. Valitse olemassa oleva tai avaa uusi Excel-työkirja. Esimerkiksi:
Set oWorkbook = Application. Workbooks (1)
Set oWorkbook = Application. Workbooks ("Kirja1")
Aseta oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Hanki linkki haluamaasi kirjan arkkiin:
Aseta oSheet = oApplication. Sheet ("Taulukko1")
Vaihe 4
Kirjoita tiedot Exceliin vba-skripteistä. Käytä solut-kokoelmaa, joka on edellisessä vaiheessa viitatun työkirjan arkin objektin ominaisuus oSheet-muuttujaan. Esimerkki merkkijonon kirjoittamisesta yhteen soluun voi näyttää tältä:
oSheet. Cells (1, 1) = "Merkkijono kirjoitetaan soluun A1"
Vaihe 5
Lisää koodi vbs-komentosarjaan tietojen tallentamiseksi ja sammuta Excel-sovellus:
OWorkbook. Tallenna
oSovellus. Lopeta
Vaihe 6
Tallenna ja suorita komentosarja. Paina Visual Basic Editorissa Ctrl + S, aseta sitten kohdistin toimenpiteen runkoon ja paina F5. Tallenna vbs-komentosarja levylle ja suorita se sitten tavallisena tiedostona.
