Контроллинг Excel книги из Access 2010 VBA

Question

У меня ситуация очень похожа на следующее сообщение:

Access query to excel 2010 to create a graph via vba

В моем случае, я экспортировать таблицу, но я хочу сделать намного больше для Excel файл.

Сначала я хочу переименовать вкладку на первом листе файла Excel, так как она экспортируется с именем фанковой таблицы. Итак, вместо «tblThisIsMyTable» я хотел бы изменить его на «MyTable» (добавьте переменную даты здесь) «

Во-вторых, мне нужно создать сводную таблицу и сделать копию сводной таблицы на другую вкладку, чтобы изменить один из параметров.

Мой вопрос: могу ли я записать макрос в Excel, чтобы выполнить основные шаги и удалить этот код в свой VBA Access?

Надеюсь, я был достаточно ясен и благодарю за любую помощь, которую вы можете предоставить.

Answer 1

Мой вопрос: могу ли я записать макрос в Excel, чтобы выполнить основные шаги и удалить этот код в мой Access VBA?

Да, абсолютно.

Из Access вам может потребоваться добавить ссылку на библиотеку Microsoft Excel.

Затем вам нужно внести некоторые изменения в «записанный» макрос, чтобы создать новый экземпляр Excel.Application и открыть нужный файл & лист. Например,

Sub OpenExcel() 
Dim xlApp as Excel.Application 
Dim xlWB as Excel.Workbook 
Dim xlSh as Excel.Worksheet 

Set xlApp = New Excel.Application 
Set xlWB = xlApp.Workbooks.Open("C:\Your filename.xlsx") '<modify as needed 
Set xlSH = xlWB.Sheets("Sheet Name") '<modify as needed 

'You can paste the recorded macro in here 
' 
' 
' 
' 
' 

xlWB.Save 
xlWB.Close 
xlApp.Quit 
Set xlApp = Nothing 

End Sub