Як створити таблицю в Excel з Access за допомогою VBA

Автор: Eugene Taylor
Дата Створення: 16 Серпень 2021
Дата Оновлення: 14 Грудень 2024
Anonim
Как создать таблицы в Microsoft Access за 8 минут
Відеоролик: Как создать таблицы в Microsoft Access за 8 минут

Зміст

Створення робочого листа 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). Натисніть "OK".

  3. Спочатку введіть у VBA наступний код, щоб створити нову підпроцедуру:


    Приватний Sub createSpreadSheet ()

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

    Dim newExcelApp As Excel.Application Dim newWbk Як Excel.Workbook Dim newWkSheet Як 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:

  9. Відредагуйте шлях на попередньому кроці і введіть каталог і ім'я файлу за вашим вибором.


  10. Введіть наступний код для завершення підпроцесу:

    End Sub

  11. Натисніть "F5", щоб запустити процедуру і створити новий аркуш Excel.