Alla kontorsapplikationer från Microsoft stöder automatisering. De kan köras som COM-servrar och användas från dokumentinbäddade eller externa skript. Så du kan skriva data till ett Excel-dokument från ett vba-skript.
Nödvändig
- - installerat Microsoft Excel-program;
- - Visual Basic-redigerare / textredigerare.
Instruktioner
Steg 1
Skapa en behållare för att vara värd för vba-koden. Om skriptet ska bäddas in i ett dokument, ladda upp lämplig fil till Microsoft Excel. Öppna Visual Basic Editor genom att trycka på Alt + F11. Om det behövs skapar du en ny modul (modulobjekt i menyn Infoga). Öppna en av modulerna eller blanketterna. Skapa en hanterare för din formulärkontroll, eller lägg bara till en procedur i en modul. Till exempel:
Undertest ()
Avsluta sub
Om du utvecklar ett fristående skript (det vill säga det körs under Windows Script Host), skapa bara en fil med tillägget vbs i en textredigerare.
Steg 2
Lägg till variabeldeklarationer i början av proceduren i skriptet inbäddat i dokumentet:
Dim oWorkbook som Excel. Workbook
Dim oSheet som Excel. Worksheet
Den första är för att lagra en referens till ett Excel-arbetsbokobjekt, och den andra är för ett ark.
Steg 3
Initiera variabler med objektreferenser. Skapa ett Excel-applikationsobjekt i vbs-skriptet (detta startar Excel som en COM-server):
Ställ in oApplication = CreateObject ("Excel. Application").
I skriptet inbäddat i dokumentet används det globala applikationsobjektet istället för variabeln oApplication, som refererar till det aktuella applikationsobjektet. Välj en befintlig eller öppna en ny Excel-arbetsbok. Till exempel:
Ställ in oWorkbook = Application. Workbooks (1)
Ställ in oWorkbook = Application. Workbooks ("Book1")
Ställ in oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Få en länk till önskat ark i boken:
Ställ in oSheet = oApplication. Sheets ("Sheet1")
Steg 4
Skriv data till Excel från vba-skript. Använd Cells-samlingen, som är en egenskap för det arbetsboksarkobjekt som det hänvisades till i föregående steg, i oSheet-variabeln. Ett exempel på att skriva en sträng till en cell kan se ut så här:
oSheet. Cells (1, 1) = "Strängen kommer att skrivas till cell A1"
Steg 5
I vbs-skriptet lägger du till koden för att spara data och stänger av Excel-applikationen:
oWorkbook. Spara
oApplication. Quit
Steg 6
Spara och kör skriptet. I Visual Basic Editor trycker du på Ctrl + S och placerar sedan markören i procedurens kropp och trycker på F5. Spara vbs-skriptet på hårddisken och kör det som en vanlig fil.
