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

Съдържание

• инструкции
• инструкции

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

инструкции

Запазете данните в работен лист на Excel с помощта на VBA (Jupiterimages / Photos.com / Getty Images)

инструкции

1. Стартирайте Microsoft Office Access, щракнете върху "Blank Database" и натиснете бутона "Create", за да създадете празна база данни. Кликнете върху раздела „Инструменти за бази данни“ и кликнете върху „Visual Basic“, за да отворите прозореца на Microsoft Visual Basic. Кликнете върху менюто "Insert" и натиснете "Module", за да вмъкнете нов модулен код.

2. Кликнете върху менюто "Tools" и кликнете върху "References". Плъзнете и поставете отметка в квадратчето до „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: myworksheet.xlsx")

9. Редактирайте пътя в предишната стъпка и въведете директорията и името на файла по ваш избор.

   
   

10. Въведете следния код, за да приключите подпроцедурата:

    Край Под

11. Натиснете "F5", за да стартирате процедурата и да създадете нов работен лист на Excel.