Microsoft- ի բոլոր գրասենյակային ծրագրերն աջակցում են ավտոմատացմանը: Նրանք կարող են գործել որպես COM սերվերներ և օգտագործվել փաստաթղթերի մեջ մտնող կամ արտաքին սցենարներից: Այսպիսով, դուք կարող եք տվյալներ գրել Excel փաստաթղթում vba սցենարից:
Անհրաժեշտ է
- - տեղադրված Microsoft Excel հավելված;
- - Visual Basic խմբագիր / տեքստի խմբագիր:
Հրահանգներ
Քայլ 1
Ստեղծեք կոնտեյներ vba կոդն ընդունելու համար: Եթե սցենարը պետք է տեղադրված լինի փաստաթղթում, համապատասխան ֆայլը վերբեռնեք Microsoft Excel- ում: Բացեք Visual Basic խմբագիրը ՝ սեղմելով Alt + F11: Անհրաժեշտության դեպքում ստեղծեք նոր մոդուլ (Մոդուլի կետը Տեղադրեք ընտրացանկում): Բացեք մոդուլներից կամ ձևերից մեկը: Ձևի վերահսկիչ ստեղծեք ձեր ձևի կառավարման համար, կամ պարզապես մոդուլին ավելացրեք ընթացակարգ: Օրինակ:
Ենթաթեստ ()
Վերջ Ենթ
Եթե դուք մշակում եք առանձին սկրիպտ (այսինքն, այն գործելու է Windows Script Host- ի ներքո), ապա տեքստային խմբագրիչում պարզապես ստեղծեք vbs ընդլայնմամբ ֆայլ:
Քայլ 2
Փաստաթղթում տեղադրված սցենարում ընթացակարգի սկզբում ավելացրեք փոփոխական հայտարարագրեր.
Աղոտ oWorkbook As Excel. Workbook
Dim oSheet As Excel. Worksheet
Առաջինը նախատեսված է Excel աշխատանքային գրքի օբյեկտի վրա հղում պահելու համար, իսկ երկրորդը `թերթիկի համար:
Քայլ 3
Նախաձեռնեք փոփոխականները օբյեկտի հղումներով: Vbs սցենարում ստեղծեք Excel հավելվածի օբյեկտ (սա կսկսի գործել Excel- ը որպես COM սերվեր):
Սահմանել oApplication = CreateObject ("Excel. Application"):
Փաստաթղթում տեղադրված սցենարում oApplication փոփոխականի փոխարեն կօգտագործվի Global Application օբյեկտը, որը վերաբերում է ընթացիկ կիրառման օբյեկտին: Ընտրեք գոյություն ունեցող կամ բացեք նոր Excel աշխատանքային գրքույկ: Օրինակ:
Սահմանել oWorkbook = Application. Workbooks (1)
Սահմանել oWorkbook = Application. Workbooks («Գիրք 1»)
Սահմանել oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Ստացեք հղում դեպի գրքի ցանկալի թերթը ՝
Սահմանել oSheet = oApplication. Sheets («թերթ 1»)
Քայլ 4
Գրեք տվյալները Excel- ին vba գրությունից: Օգտագործեք Բջիջների հավաքածուն, որը աշխատանքային գրքի թերթիկի օբյեկտի հատկությունն է, որը հիշատակվել է նախորդ քայլում, oSheet փոփոխականում: Լար մեկ բջիջում գրելու օրինակը կարող է նման լինել.
oSheet. Cells (1, 1) = "Լարը կգրվի A1 բջիջում"
Քայլ 5
Vbs սցենարում ավելացրեք ծածկագիրը ՝ տվյալները պահելու համար և անջատեք Excel հավելվածը.
o Աշխատանքային գիրք: Պահպանել
o Դիմում. Հայց
Քայլ 6
Պահեք և կատարեք սցենարը: Visual Basic խմբագրում սեղմեք Ctrl + S և այնուհետև տեղադրեք կուրսորը ընթացակարգի մարմնում և սեղմեք F5: Պահպանեք vbs գրիչը սկավառակում և այն գործարկեք որպես սովորական ֆայլ:
