Totes les aplicacions d'oficina de Microsoft admeten l'automatització. Es poden executar com a servidors COM i es poden utilitzar a partir d'escriptures externes o incrustades en documents. Per tant, podeu escriure dades en un document Excel des d’un script vba.
Necessari
- - aplicació de Microsoft Excel instal·lada;
- - Editor de Visual Basic / editor de text.
Instruccions
Pas 1
Creeu un contenidor per allotjar el codi vba. Si l'script s'ha d'incorporar en un document, pengeu el fitxer adequat a Microsoft Excel. Obriu l'Editor de Visual Basic prement Alt + F11. Si cal, creeu un mòdul nou (element del mòdul al menú Insereix). Obriu un dels mòduls o formularis. Creeu un controlador per al control del formulari o simplement afegiu un procediment a un mòdul. Per exemple:
Subprova ()
Finalitzar sub
Si esteu desenvolupant un script autònom (és a dir, s'executarà a Windows Script Host), simplement creeu un fitxer amb l'extensió vbs en un editor de text.
Pas 2
Al script incrustat al document, afegiu declaracions de variables al començament del procediment:
Dim oWorkbook As Excel. Workbook
Redueix el full com Excel. Full de treball
El primer és per emmagatzemar una referència a un objecte de llibre de treball d'Excel i el segon és per a un full.
Pas 3
Inicialitzeu variables amb referències d'objectes. A l'script vbs, creeu un objecte d'aplicació d'Excel (s'iniciarà Excel com a servidor COM):
Estableix oApplication = CreateObject ("Excel. Application").
A l'script incrustat al document, s'utilitzarà l'objecte d'aplicació global en lloc de la variable oApplication, que fa referència a l'objecte d'aplicació actual. Seleccioneu un ja existent o obriu un llibre de Excel nou. Per exemple:
Estableix oWorkbook = Application. Workbooks (1)
Estableix oWorkbook = Application. Workbooks ("Llibre1")
Estableix oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Obteniu un enllaç al full desitjat del llibre:
Estableix oSheet = oApplication. Sheets ("Full1")
Pas 4
Escriviu dades a Excel des de l'script vba. Utilitzeu la col·lecció Cells, que és una propietat de l’objecte full de llibre de treball al qual es fa referència al pas anterior, a la variable oSheet. Un exemple d'escriure una cadena a una cel·la pot ser així:
oSheet. Cells (1, 1) = "La cadena s'escriurà a la cel·la A1"
Pas 5
A l'script vbs, afegiu el codi per desar les dades i tanqueu l'aplicació Excel:
o Llibreta de treball
oAplicació. Quit
Pas 6
Deseu i executeu l'script. A Visual Basic Editor, premeu Ctrl + S i, a continuació, col·loqueu el cursor al cos del procediment i premeu F5. Deseu l'script vbs al disc i després executeu-lo com a fitxer normal.
