Toate aplicațiile de birou de la Microsoft acceptă automatizarea. Ele pot rula ca servere COM și pot fi utilizate din scripturi încorporate în documente sau externe. Deci, puteți scrie date într-un document Excel dintr-un script vba.
Necesar
- - aplicația Microsoft Excel instalată;
- - Editor Visual Basic / editor text.
Instrucțiuni
Pasul 1
Creați un container pentru a găzdui codul vba. Dacă scriptul urmează să fie încorporat într-un document, încărcați fișierul corespunzător în Microsoft Excel. Deschideți Editorul Visual Basic apăsând Alt + F11. Dacă este necesar, creați un nou modul (elementul modulului din meniul Insert). Deschideți unul dintre module sau formulare. Creați un handler pentru controlul formularului sau pur și simplu adăugați o procedură la un modul. De exemplu:
Subtest ()
Sfârșitul Sub
Dacă dezvoltați un script de sine stătător (adică va rula sub Windows Script Host), atunci creați pur și simplu un fișier cu extensia vbs într-un editor de text.
Pasul 2
În scriptul încorporat în document, adăugați declarații variabile la începutul procedurii:
Dim oWorkbook Ca Excel. Workbook
Dim oFoaie ca Excel. Foaie de lucru
Primul este pentru stocarea unei referințe la un obiect din registrul de lucru Excel, iar al doilea este pentru o foaie.
Pasul 3
Inițializați variabilele cu referințe la obiecte. În scriptul vbs, creați un obiect de aplicație Excel (acesta va lansa Excel ca server COM):
Setați oApplication = CreateObject ("Excel. Application").
În scriptul încorporat în document, va fi utilizat obiectul global Application în locul variabilei oApplication, care se referă la obiectul curent al aplicației. Selectați un existent sau deschideți un nou registru de lucru Excel. De exemplu:
Setați oWorkbook = Application. Workbooks (1)
Setați oWorkbook = Application. Workbooks ("Book1")
Setați oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Obțineți un link către foaia dorită a cărții:
Setați oSheet = oApplication. Sheets ("Sheet1")
Pasul 4
Scrieți date în Excel din script vba. Utilizați colecția Cells, care este o proprietate a obiectului de foaie a registrului de lucru la care se face referire în pasul anterior, în variabila oSheet. Un exemplu de scriere a unui șir într-o celulă ar putea arăta astfel:
oSheet. Cells (1, 1) = "Șirul va fi scris în celula A1"
Pasul 5
În scriptul vbs, adăugați codul pentru a salva datele și închideți aplicația Excel:
oWorkbook. Save
oApplication. Quit
Pasul 6
Salvați și executați scriptul. În Visual Basic Editor, apăsați Ctrl + S și apoi poziționați cursorul în corpul procedurii și apăsați F5. Salvați scriptul vbs pe disc și apoi executați-l ca fișier obișnuit.
