Microsoft корпорациясынын бардык офис тиркемелери автоматташтырууну колдойт. Алар COM серверлери катары иштей алышат жана документ камтылган же тышкы скрипттерден колдонулат. Ошентип, сиз vba скриптинен Excel документине маалыматтарды жаза аласыз.
Зарыл
- - орнотулган Microsoft Excel тиркемеси;
- - Visual Basic редактору / тексттик редактор.
Нускамалар
1 кадам
Vba кодун жайгаштыруу үчүн контейнер түзүңүз. Эгерде сценарий документке киргизиле турган болсо, анда тиешелүү файлды Microsoft Excelге жүктөп бериңиз. Alt + F11 басуу менен Visual Basic редакторун ачыңыз. Керек болсо, жаңы модуль түзүңүз (Вставить менюсундагы Модуль пункту). Модулдардын же формалардын бирин ачыңыз. Формаңызды көзөмөлдөө үчүн иштетүүчү түзүңүз же жөн гана модулга процедураны кошуңуз. Мисалы:
Sub test ()
End Sub
Эгер сиз өз алдынча скрипт иштеп жатсаңыз (башкача айтканда, ал Windows скрипт хостунун астында иштейт), анда жөн гана текст редакторунда vbs кеңейтүүсү менен файл түзүңүз.
2-кадам
Документке киргизилген сценарийге процедуранын башталышында өзгөрүлмө декларацияларды кошуңуз:
Дим oWorkbook катары Excel. Workbook
Күңүрт oSheet Excel. Worksheet
Биринчиси Excel жумушчу китебинин объектине шилтемени сактоо үчүн, экинчиси барак үчүн.
3-кадам
Объекттин шилтемелери менен өзгөрүлмө инициализация. VBS сценарийинде Excel тиркемесинин объектисин түзүңүз (бул Excelди COM сервери катары иштетет):
OApplication = CreateObject орнотуу ("Excel. Application").
Документте камтылган скриптте, учурдагы колдонмо объектисине шилтеме берген oApplication өзгөрмөсүнүн ордуна глобалдык Колдонмо объектиси колдонулат. Бар болгонун тандаңыз же жаңы Excel жумушчу китебин ачыңыз. Мисалы:
Set oWorkbook = Application. Workbooks (1)
Set oWorkbook = Application. Workbooks ("Book1")
OWorkbook = oApplication. Workbooks. Open орнотуу ("D: / vic / холбогдох / tmp / test.xls")
Китептин керектүү барагына шилтеме алыңыз:
Set oSheet = oApplication. Sheets ("Sheet1")
4-кадам
Excelге vba скриптинен маалыматтарды жазыңыз. Мурунку кадамда шилтеме берилген жумушчу китеп барагынын объектинин касиети болгон Уячалар жыйнагын, oSheet өзгөрмөсүнө колдонуңуз. Бир уячага сап жазуунун мисалы төмөнкүдөй болушу мүмкүн:
oSheet. Cells (1, 1) = "Сап A1 уячасына жазылат"
5-кадам
VBS сценарийинде, маалыматты сактоо үчүн кодду кошуп, Excel тиркемесин өчүрүңүз:
oWorkbook. Save
oApplication. Quit
6-кадам
Сценарийди сактап жана аткарыңыз. Visual Basic редакторунда Ctrl + S баскычтарын басып, андан кийин курсорду процедуранын тулку боюна коюп, F5 баскычын басыңыз. VBS сценарийин дискке сактап, андан кийин кадимки файл катары иштетип коюңуз.
