Как создать электронную таблицу в Excel из Access, используя VBA

Содержание

• направления
• направления

Создание листа Excel в Access может сэкономить ваше время, когда вам нужно экспортировать данные в лист Excel. Visual Basic для приложений (VBA) может быть мощным инструментом для автоматизации процессов в приложениях Microsoft Office. С VBA вы можете использовать объект приложения Microsoft Excel для создания электронной таблицы Excel из Access. Объект Excel является отправной точкой для остальной части объектной модели. Экспортируйте данные в Excel быстрее, сохраняя данные непосредственно на листе Excel.

направления

Сохраните данные на лист Excel с помощью VBA (Jupiterimages / Photos.com / Getty Images)

направления

1. Запустите Microsoft Office Access, нажмите «Пустая база данных» и нажмите кнопку «Создать», чтобы создать пустую базу данных. Перейдите на вкладку «Инструменты базы данных» и нажмите «Visual Basic», чтобы открыть окно Microsoft Visual Basic. Нажмите меню «Вставить» и нажмите «Модуль», чтобы вставить новый код модуля.

2. Нажмите на «Сервис» меню и нажмите «Ссылки». Проведите и установите флажок рядом с «Microsoft Excel» Библиотека объектов "(библиотека объектов Microsoft Excel). Нажмите «ОК».

3. Начните с ввода следующего кода в VBA для создания новой подпроцедуры:

   
   

   Частный Sub createSpreadSheet ()

4. Продолжайте вводить следующий код, чтобы создать три новые переменные объекта, которые будут использоваться для создания листа Excel:

   Dim newExcelApp As Excel.Application Dim newWbk As Excel.Workbook Dim newWkSheet As Excel.Worksheet

5. Добавьте следующий код для запуска Excel и отобразите его:

   Установите newExcelApp = Excel.Application newExcelApp.Visible = True

6. Введите следующий код, чтобы добавить новую рабочую книгу и лист:

   Установить newWbk = newExcelApp.Workbooks.Add Установить newWkSheet = newWbk.Worksheets (1)

7. Добавьте данные в новый лист, введя следующий код:

   newWkSheet.Cells (1, 1) .Value = "Новый рабочий лист ..."

8. Сохраните новую созданную книгу, введя следующий код:

   newWkSheet.SaveAs ("C: myworksheet.xlsx")

9. Отредактируйте путь на предыдущем шаге и введите каталог и имя файла по вашему выбору.

   
   

10. Введите следующий код, чтобы завершить процедуру:

    End Sub

11. Нажмите «F5», чтобы запустить процедуру и создать новый лист Excel.