ЯК Записатись дані в Excel з vba :: Програмне забезпечення

Всі офісні Додатки від Microsoft підтрімують автоматізацію. Смороду могут запускатіся як сервери COM и використовуват з Впровадження в документи або зовнішніх сценаріїв. Так, можна Записатись дані в Excel-документ з vba-скрипта.

Вам Знадоби

- Встановлення додаток Microsoft Excel;
- редактор Visual Basic / текстовий редактор.

Інструкція

Створіть контейнер для размещения vba-коду. Если скрипт повинен буті Впровадження в документ, завантажте відповідній файл в Microsoft Excel. Відкрійте редактор Visual Basic, натіснувші клавіші Alt + F11. Если звітність,, створіть новий модуль (пункт Module в меню Insert). Відкрійте один з модулів або форм. Створіть обробнік елементами управління форми або просто Дода процедуру в модуль. Наприклад:
Sub test ()
End Sub
Если розробляється самостійній скрипт (тобто ВІН буде працювати під управлінням Windows Script Host), то просто створіть файл з розширеного vbs в текстовому редакторі.

Під Впровадження в документ скрипт Дода оголошення змінніх в качан процедури:
Dim oWorkbook As Excel.Workbook
Dim oSheet As Excel.Worksheet

Перша з них призначила для Зберігання посилання на агентство об'єкт книги Excel, а друга - на лист.

Ініціалізуйте змінні посилання на агентство об'єкти. У vbs-скріпті створіть об'єкт докладання Excel (при Авторитети Excel буде запущених як COM-сервер):
Set oApplication = CreateObject ("Excel.Application").
У Впровадження в документ сценарії вместо змінної oApplication буде використовуват глобальний об'єкт Application, Який посілається на поточний об'єкт докладання. Віберіть існуючу або відкрійте нову книгу Excel. Наприклад:
Set oWorkbook = Application.Workbooks (1)
Set oWorkbook = Application.Workbooks ("Книга1")
Set oWorkbook = oApplication.Workbooks.Open ("D: vic relevant tmp test.xls")
Отрімаєте посилання на агентство Потрібний лист книги:
Set oSheet = oApplication.Sheets ("Лист1")

Запішіть дані в Excel з vba-сценарію. Використову колекцію Cells, яка є властівістю об'єкта аркуша книги, посилання на агентство Який булу отримай на попередня кроці, в змінну oSheet. Приклад запису рядка в одну клітинку может віглядаті так:
oSheet.Cells (1, 1) = "Рядок запишеться в клітинку A1"

У vbs-скріпті Дода код для Збереження даних и Завершення роботи програми Excel:
oWorkbook.Save
oApplication.Quit

Збережіть и виконан скрипт. У редакторі Visual Basic натісніть Ctrl + S, а потім помістіть курсор в Тіло процедури и натісніть F5. Сценарій vbs збережіть на диск, а потім запустіть як звичайний файл.