Как да получите достъп до VBA за създаване на електронна таблица в Excel

...

Запазете данни в електронна таблица на 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 Библиотека с обекти." Щракнете върху "OK."

Стъпка 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.