Alle kontorapplikasjoner fra Microsoft støtter automatisering. De kan kjøres som COM-servere og brukes fra dokumentinnebygde eller eksterne skript. Så du kan skrive data til et Excel-dokument fra et vba-skript.
Nødvendig
- - installert Microsoft Excel-applikasjon;
- - Visual Basic editor / tekstredigerer.
Bruksanvisning
Trinn 1
Opprett en container for å være vert for vba-koden. Hvis skriptet skal bygges inn i et dokument, laster du opp den aktuelle filen til Microsoft Excel. Åpne Visual Basic Editor ved å trykke Alt + F11. Opprett om nødvendig en ny modul (modulelement i Sett inn-menyen). Åpne en av modulene eller skjemaene. Lag en behandler for skjemakontrollen, eller bare legg til en prosedyre i en modul. For eksempel:
Underprøve ()
Slutt Sub
Hvis du utvikler et frittstående skript (det vil si at det kjører under Windows Script Host), kan du bare lage en fil med vbs-utvidelsen i en tekstredigerer.
Steg 2
I skriptet som er innebygd i dokumentet, legger du til variabelerklæringer i begynnelsen av prosedyren:
Dim oWorkbook Som Excel. Workbook
Dim oSheet Som Excel. Arbeidsark
Den første er for lagring av en referanse til et Excel-arbeidsbokobjekt, og den andre er for et ark.
Trinn 3
Initialiser variabler med objektreferanser. I vbs-skriptet oppretter du et Excel-applikasjonsobjekt (dette starter Excel som en COM-server):
Sett oApplication = CreateObject ("Excel. Application").
I skriptet som er innebygd i dokumentet, vil det globale applikasjonsobjektet brukes i stedet for oApplication-variabelen, som refererer til det gjeldende applikasjonsobjektet. Velg en eksisterende eller åpne en ny Excel-arbeidsbok. For eksempel:
Sett oWorkbook = Application. Workbooks (1)
Sett oWorkbook = Application. Workbooks ("Book1")
Sett oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Få en lenke til ønsket ark i boka:
Sett oSheet = oApplication. Sheets ("Sheet1")
Trinn 4
Skriv data til Excel fra vba-skript. Bruk Cells-samlingen, som er en egenskap for arbeidsbokarkobjektet det ble referert til i forrige trinn, inn i oSheet-variabelen. Et eksempel på å skrive en streng til en celle kan se slik ut:
oSheet. Cells (1, 1) = "Strengen blir skrevet til celle A1"
Trinn 5
I vbs-skriptet legger du til koden for å lagre dataene og lukker Excel-applikasjonen:
oArbeidsbok. lagre
Søknad. Avslutt
Trinn 6
Lagre og kjør skriptet. Trykk på Ctrl + S i Visual Basic Editor, og plasser deretter markøren i prosedyren og trykk på F5. Lagre vbs-skriptet på disken og kjør det som en vanlig fil.
