Microsoft-un bütün ofis tətbiqləri avtomatlaşdırmanı dəstəkləyir. COM serverləri kimi çalışa bilər və sənəd daxilində və ya xarici skriptlərdə istifadə edilə bilər. Beləliklə, bir vba skriptindən bir Excel sənədinə məlumat yaza bilərsiniz.
Zəruri
- - quraşdırılmış Microsoft Excel tətbiqi;
- - Visual Basic redaktoru / mətn redaktoru.
Təlimat
Addım 1
VBA kodunu yerləşdirmək üçün bir konteyner yaradın. Komut sənədinə daxil edilməlidirsə, müvafiq faylı Microsoft Excel-ə yükləyin. Alt + F11 düymələrini basaraq Visual Basic Redaktorunu açın. Lazım gələrsə, yeni bir modul yaradın (Taxmaq menyusunda Modul maddəsi). Modullardan və ya formalardan birini açın. Forma nəzarətiniz üçün işləyici yaradın və ya sadəcə modula prosedur əlavə edin. Misal üçün:
Alt test ()
Son Sub
Bağımsız bir skript hazırlayırsınızsa (yəni Windows Script Host altında işləyəcəksə), sadəcə mətn redaktorunda vbs uzantısı olan bir fayl yaradın.
Addım 2
Sənədə yerləşdirilmiş skriptdə prosedurun əvvəlinə dəyişən bəyannamələr əlavə edin:
Dim oWorkbook Excel. Workbook kimi
Excel. Worksheet kimi Dim oSheet
Birincisi, bir Excel iş kitabı obyektinə bir istinadın saxlanılması üçün, ikincisi bir vərəq üçün.
Addım 3
Dəyişənləri obyekt istinadları ilə başlatın. VBS skriptində bir Excel tətbiq obyekti yaradın (bu, Excel-i COM server olaraq işə salacaq):
OApplication = CreateObject seçin ("Excel. Application").
Sənədə yerləşdirilmiş skriptdə, cari tətbiq obyektinə istinad edən oApplication dəyişəninin əvəzinə qlobal Tətbiq obyekti istifadə ediləcək. Mövcud olanı seçin və ya yeni bir Excel iş kitabını açın. Misal üçün:
OWorkbook = Application. Workbooks seçin (1)
OWorkbook = Application. Workbooks seçin ("Kitab1")
OWorkbook = oApplication. Workbooks. Open seçin ("D: / vic / müvafiq / tmp / test.xls")
Kitabın istədiyiniz vərəqinə keçid əldə edin:
OSheet = oApplication. Sheets təyin edin ("Sheet1")
Addım 4
Vba skriptindən Excel-ə məlumat yazın. Əvvəlki addımda istinad edilən iş dəftəri vərəqi obyektinin xassəsi olan Hüceyrələr toplusunu oSheet dəyişəninə daxil edin. Bir hüceyrəyə simli yazma nümunəsi belə görünə bilər:
oSheet. Cells (1, 1) = "Sətir A1 xanasına yazılacaq"
Addım 5
VBS skriptində məlumatları saxlamaq və Excel tətbiqetməsini bağlamaq üçün kodu əlavə edin:
oİş dəftəri. Save
o tətbiqi. çıxın
Addım 6
Ssenarini saxla və icra et. Visual Basic Redaktorunda Ctrl + S düymələrini basın və sonra kursoru prosedurun gövdəsində yerləşdirin və F5 düyməsini basın. VBS skriptini diskdə saxlayın və sonra adi bir fayl kimi çalıştırın.
