Alle kantoortoepassings van Microsoft ondersteun outomatisering. Hulle kan as COM-bedieners gebruik word en gebruik word vanaf dokument-ingebedde of eksterne skrifte. U kan dus data vanuit 'n vba-script na 'n Excel-dokument skryf.
Nodig
- - geïnstalleerde Microsoft Excel-toepassing;
- - Visual Basic-redakteur / teksredakteur.
Instruksies
Stap 1
Skep 'n houer om die vba-kode aan te bied. As die skrif in 'n dokument moet ingebed word, laai die toepaslike lêer op na Microsoft Excel. Open die Visual Basic Editor deur op Alt + F11 te druk. Skep indien nodig 'n nuwe module (module-item in die menu Insert). Maak een van die modules of vorms oop. Skep 'n hanteerder vir u vormbeheer, of voeg net 'n prosedure by 'n module. Byvoorbeeld:
Subtoets ()
Einde sub
As u 'n losstaande script ontwikkel (dit wil sê onder Windows Script Host), moet u eenvoudig 'n lêer met die vbs-uitbreiding in 'n teksredakteur skep.
Stap 2
Voeg veranderlike verklarings aan die begin van die prosedure in die script wat in die dokument ingebed is:
Dim oWorkbook As Excel. Workbook
Verdof oSheet soos Excel. Werkblad
Die eerste een is om 'n verwysing na 'n Excel-werkboekvoorwerp te stoor, en die tweede een vir 'n vel.
Stap 3
Initialiseer veranderlikes met voorwerpverwysings. Skep 'n Excel-toepassingsvoorwerp in die vbs-script (dit sal Excel as 'n COM-bediener begin):
Stel oApplication = CreateObject ("Excel. Application").
In die script wat in die dokument ingebed is, sal die globale toepassingsvoorwerp gebruik word in plaas van die oApplication-veranderlike, wat verwys na die huidige toepassingsvoorwerp. Kies 'n bestaande of open 'n nuwe Excel-werkboek. Byvoorbeeld:
Stel oWorkbook = Application. Workbooks (1)
Stel oWorkbook = Application. Workbooks ("Book1")
Stel oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Kry 'n skakel na die gewenste vel in die boek:
Stel oSheet = oApplication. Sheets ("Sheet1")
Stap 4
Skryf data na Excel vanaf vba script. Gebruik die selversameling, wat 'n eienskap is van die werkboekbladvoorwerp waarna in die vorige stap verwys is, in die oSheet-veranderlike. 'N Voorbeeld van die skryf van 'n string in een sel kan so lyk:
oSheet. Cells (1, 1) = "Die string sal na sel A1 geskryf word"
Stap 5
Voeg die kode in die vbs-script by om die data te stoor en sluit die Excel-toepassing af:
oWerkboek. Slaan
o Toepassing. ophou
Stap 6
Stoor en voer die script uit. Druk in die Visual Basic Editor op Ctrl + S en plaas dan die wyser in die hoofstuk van die prosedure en druk op F5. Stoor die vbs-skrif op die skyf en voer dit dan uit as 'n gewone lêer.
