Всички офис приложения от Microsoft поддържат автоматизация. Те могат да работят като COM сървъри и да се използват от вградени в документи или външни скриптове. И така, можете да пишете данни в документ на Excel от vba скрипт.
Необходимо
- - инсталирано приложение на Microsoft Excel;
- - Редактор на Visual Basic / текстов редактор.
Инструкции
Етап 1
Създайте контейнер за хостване на vba кода. Ако скриптът ще бъде вграден в документ, качете съответния файл в Microsoft Excel. Отворете редактора на Visual Basic, като натиснете Alt + F11. Ако е необходимо, създайте нов модул (Модул в менюто Вмъкване). Отворете един от модулите или формулярите. Създайте манипулатор за контрола на формуляра или просто добавете процедура към модул. Например:
Подтест ()
Край на под
Ако разработвате самостоятелен скрипт (т.е. той ще работи под Windows Script Host), тогава просто създайте файл с разширение vbs в текстов редактор.
Стъпка 2
В скрипта, вграден в документа, добавете декларации на променливи в началото на процедурата:
Dim oWorkbook As Excel. Workbook
Dim oSheet As Excel. Работен лист
Първият е за съхраняване на препратка към обект на работна книга на Excel, а вторият е за лист.
Стъпка 3
Инициализирайте променливите с препратки към обекти. В скрипта vbs създайте обект на приложение на Excel (това ще стартира Excel като COM сървър):
Задайте oApplication = CreateObject ("Excel. Application").
В скрипта, вграден в документа, ще се използва глобалният обект на приложението вместо променливата oApplication, която се отнася към текущия обект на приложение. Изберете съществуваща или отворете нова работна книга на Excel. Например:
Задайте oWorkbook = Application. Workbooks (1)
Задайте oWorkbook = Application. Workbooks ("Book1")
Задайте oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Вземете линк към желания лист на книгата:
Задайте oSheet = oApplication. Sheets ("Sheet1")
Стъпка 4
Напишете данни в Excel от vba скрипт. Използвайте колекцията Cells, която е свойство на обекта на работната книга, посочен в предишната стъпка, в променливата oSheet. Пример за писане на низ в една клетка може да изглежда така:
oSheet. Cells (1, 1) = "Низът ще бъде записан в клетка A1"
Стъпка 5
В скрипта vbs добавете кода, за да запазите данните и изключете приложението Excel:
oWorkbook. Save
oApplication. Qitit
Стъпка 6
Запазете и изпълнете скрипта. В редактора на Visual Basic натиснете Ctrl + S и след това позиционирайте курсора в тялото на процедурата и натиснете F5. Запазете vbs скрипта на диск и след това го стартирайте като обикновен файл.
