Запазете данни в електронна таблица на 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:
Затъмнете новото приложение на Excel като Excel. Приложение. Dim newWbk като Excel. Работна тетрадка. Затъмнете новия WkSheet като Excel. Работен лист
Стъпка 5
Добавете следния код, за да стартирате Excel и да го покажете:
Задайте newExcelApp = Excel. Приложение
ново приложение Excel. Видимо = Вярно
Стъпка 6
Въведете следното, за да добавите нова работна книга и работен лист:
Задайте newWbk = newExcelApp. Работни тетрадки. Добавете
Задайте newWkSheet = newWbk. Работни листове (1)
Стъпка 7
Добавете данни към новата си електронна таблица, като напишете следното:
новWkSheet. Клетки (1, 1). Стойност = "Нов работен лист..."
Стъпка 8
Запазете създадената нова работна книга, като въведете следния код:
новWkSheet. Save As ("C:\myworksheet.xlsx")
Стъпка 9
Редактирайте пътя в предишната стъпка и въведете пътя и името на файла по ваш избор.
Стъпка 10
Въведете следното, за да прекратите подпроцедурата:
Край под
Стъпка 11
Натиснете "F5", за да стартирате вашата процедура и да създадете нова електронна таблица на Excel.