Создание таблицы Excel с помощью макросов с использованием Microsoft Access

Question

Хотя создание сотен электронных таблиц Excel с Office Access, безусловно, возможно, было бы здорово добавить макросы в созданные книги.

Я хотел бы добавить функции к объекту «ThisWorkbook» в проекте VBA для каждой электронной таблицы при генерации. Как бы это сделать?

Спасибо заранее!

Answer 1

В предположении, что макрос во всех создаваемых рабочих книгах одинаковы,

• создать шаблон, содержащий весь код VBA (и, возможно, постоянный текст, как заголовки, колонтитулы, определение диапазона печати и т.д. - то есть " все, кроме данных ")
• создать любую новую книгу из шаблона
• вставить свои данные в ВБ объекта
• сохранить как макрос включен лист (Excel 2007/2010)
• близко он

пример

Sub CreateWB() 
Dim WB As Workbook 

    Set WB = Workbooks.Add("MacroTemp.xltm") ' contains VBA, ActiveX, etc. 
    WB.Worksheets("Sheet1").[A1] = "co-cooo!" ' adding data 
    WB.SaveAs "MyGenWB", xlOpenXMLWorkbookMacroEnabled 
    WB.Close 
End Sub 

В Excel 2007/2010 не забудьте сохранить шаблон как макросъемки включен шаблон (* .xltm ").