Сохраняйте данные в электронную таблицу 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:
Dim newExcelApp как Excel. Заявка. Dim newWbk как Excel. Рабочая тетрадь. Dim newWkSheet как Excel. Рабочий лист
Шаг 5
Добавьте следующий код, чтобы запустить Excel и отобразить его:
Установите newExcelApp = Excel. заявка
newExcelApp. Visible = True
ШАГ 6
Введите следующее, чтобы добавить новую книгу и рабочий лист:
Установите newWbk = newExcelApp. Рабочие тетради. Добавлять
Установите newWkSheet = newWbk. Рабочие листы (1)
Шаг 7
Добавьте данные в новую электронную таблицу, набрав следующее:
newWkSheet. Cells (1, 1) .Value = "Новый лист ..."
Шаг 8
Сохраните новую книгу, созданную, введя следующий код:
newWkSheet. Сохранить как ("C: \ myworksheet.xlsx")Шаг 9
Измените путь на предыдущем шаге и введите путь и имя файла по вашему выбору.
Шаг 10
Для завершения подпроцедуры введите следующее:
Конец подписки
Шаг 11
Нажмите «F5», чтобы запустить процедуру и создать новую электронную таблицу Excel.
