Microsoft корпорациясының барлық кеңсе қосымшалары автоматтандыруды қолдайды. Олар COM серверлері ретінде жұмыс істей алады және оларды құжатқа енгізілген немесе сыртқы сценарийлерден пайдалануға болады. Сонымен, сіз Excel құжатына vba сценарийінен деректер жаза аласыз.
Қажетті
- - Microsoft Excel қосымшасы орнатылды;
- - Visual Basic редакторы / мәтіндік редактор.
Нұсқаулық
1-қадам
Vba кодын орналастыру үшін контейнер жасаңыз. Егер сценарий құжатқа енгізілуі керек болса, тиісті файлды Microsoft Excel-ге жүктеңіз. Alt + F11 пернелер тіркесімін басу арқылы Visual Basic редакторын ашыңыз. Қажет болса, жаңа модуль жасаңыз (Вставка мәзіріндегі Модуль пункті). Модульдердің немесе формалардың бірін ашыңыз. Пішінді басқару үшін өңдеуші құрыңыз немесе модульге процедураны қосыңыз. Мысалға:
Қосымша тест ()
End Sub
Егер сіз дербес сценарий жасап жатсаңыз (яғни, ол Windows Script хостында жұмыс істейтін болса), тек мәтіндік редакторда vbs кеңейтімі бар файл жасаңыз.
2-қадам
Құжатқа енгізілген сценарийде процедураның басында айнымалы декларацияларды қосыңыз:
Dim oWorkbook ретінде Excel. Workbook
Dim oSheet ретінде Excel. Жұмыс парағы
Біріншісі Excel жұмыс кітабының сілтемесін сақтауға арналған, ал екіншісі параққа арналған.
3-қадам
Айнымалыларды объектілік сілтемелермен инициализациялаңыз. Vbs сценарийінде Excel бағдарламасының нысанын жасаңыз (бұл Excel-ді COM-сервер ретінде іске қосады):
OApplication = CreateObject орнатыңыз («Excel. Application»).
Құжатқа ендірілген сценарийде oApplication айнымалысының орнына ағымдағы қолданбалы нысанға сілтеме жасайтын ғаламдық Қолдану нысаны қолданылады. Барын таңдаңыз немесе жаңа Excel жұмыс кітабын ашыңыз. Мысалға:
OWorkbook = Application. Workbooks (1) орнатыңыз
OWorkbook = Application. Workbooks орнатыңыз («Кітап1»)
OWorkbook = oApplication. Workbooks. Open орнатыңыз («D: / vic / холбогдох / tmp / test.xls»)
Кітаптың қажетті парағына сілтеме алыңыз:
OSheet = oApplication. Sheets орнатыңыз («Sheet1»)
4-қадам
Excel-ге деректерді vba сценарийінен жазыңыз. Алдыңғы қадамда сілтеме жасалған жұмыс кітабының парағының қасиеті болып табылатын Ұяшықтар жиынын oSheet айнымалысына қолданыңыз. Жолды бір ұяшыққа жазудың мысалы келесідей болуы мүмкін:
oSheet. Cells (1, 1) = «Жол A1 ұяшығына жазылады»
5-қадам
VBS сценарийінде деректерді сақтау үшін кодты қосып, Excel бағдарламасын өшіріңіз:
oЖұмыс кітабы. Сақтау
o Қолдану. Шығу
6-қадам
Сценарийді сақтаңыз және орындаңыз. Visual Basic редакторында Ctrl + S пернелер тіркесімін басыңыз, содан кейін курсорды процедура денесіне орналастырыңыз және F5 пернесін басыңыз. Vbs сценарийін дискіге сақтаңыз, содан кейін оны кәдімгі файл ретінде іске қосыңыз.
