Збережіть дані в електронній таблиці Excel за допомогою VBA.
Створення електронної таблиці Excel в Access може заощадити ваш час, коли вам потрібно експортувати дані до електронної таблиці Excel. Visual Basic для додатків (VBA) може бути потужним інструментом для автоматизації процесів у програмах Microsoft Office. За допомогою VBA ви можете використовувати об’єкт програми Microsoft Excel для створення електронної таблиці Excel з Access. Об’єкт програми Excel є точкою входу до решти об’єктної моделі. Експортуйте дані швидше в Excel, зберігаючи дані безпосередньо в електронній таблиці Excel.
Крок 1
Запустіть Microsoft Office Access, натисніть «Пуста база даних» і натисніть кнопку «Створити», щоб створити порожню базу даних. Натисніть вкладку «Інструменти для баз даних» та натисніть «Visual Basic», щоб відкрити вікно Microsoft Visual Basic. Натисніть меню «Вставка» та натисніть «Модуль», щоб вставити новий модуль коду.
Відео дня
Крок 2
Натисніть меню «Інструменти» та натисніть «Довідники». Прокрутіть униз і поставте прапорець біля «Microsoft Excel
Крок 3
Почніть з введення наступного коду VBA, щоб створити нову підпроцедуру:
Приватний підпорядок createSpreadSheet()
Крок 4
Продовжіть, ввівши наступний код, щоб створити три нові об’єкти змінних, які використовуватимуться для створення електронної таблиці Excel:
Зменшіть новийExcelApp як Excel. Застосування. Dim newWbk як Excel. Робочий зошит. Змінити новий WkSheet як Excel. Робочий лист
Крок 5
Додайте наступний код, щоб запустити Excel і відобразити його:
Встановіть newExcelApp = Excel. Застосування
новий ExcelApp. Видно = Правда
Крок 6
Введіть наступне, щоб додати нову книгу та аркуш:
Встановіть newWbk = newExcelApp. Робочі зошити. Додати
Встановіть newWkSheet = newWbk. Робочі аркуші (1)
Крок 7
Додайте дані до вашої нової електронної таблиці, ввівши наступне:
newWkSheet. Комірки (1, 1).Значення = "Новий аркуш..."
Крок 8
Збережіть нову книгу, створену, ввівши такий код:
newWkSheet. Зберегти як ("C:\myworksheet.xlsx")Крок 9
Відредагуйте шлях на попередньому кроці та введіть шлях і назву файлу на ваш вибір.
Крок 10
Введіть наступне, щоб завершити підпроцедуру:
Кінець суб
Крок 11
Натисніть «F5», щоб запустити процедуру та створити нову електронну таблицю Excel.
