Выполнить макрос в excel документе

[WennY]

Доброго времени суток. Нужно программно (не суть даже важно, как. Хоть через cmd) "вживить" макрос в excel файл и выполнить. И если с последним пунктом более-менее понятно, то вот с вживлением - беда Пытаюсь это делать так:

var
 * Ex_WBook, Ex_WSheet :OleVariant;
begin
 * ExcelApplication1.Connect;

 * ExcelApplication1.Workbooks.Open('e:\list.xlsx',
 * EmptyParam,EmptyParam,EmptyParam,
 * EmptyParam,EmptyParam,EmptyParam,
 * EmptyParam,EmptyParam,EmptyParam,
 * EmptyParam,EmptyParam,EmptyParam,
 * EmptyParam,EmptyParam,0);

 * ExcelApplication1.modules.add(emptyparam,emptyparam,1);
 * with ExcelWorkbook1.vbproject.vbcomponents.item('module1').codemodule do
 * * *begin
 * * *addfromstring('sub macro1()'+#13+
 * * * * * * * * * *'dim ch as chartobject');
 * end;
end;

но на строке

with ExcelWorkbook1.vbproject.vbcomponents.item('module1').codemodule do

компилятор мне сообщает:

exception class EOleSysError with message 'Класс не зарегистрирован'

Что не хватает ему? Спасибо

[WennY]

Вопрос решен. Внедрить макрос в документ можно так:

DBF
Sub DBF()
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
oExcel.Application.Workbooks.Open ("C:\Users\WennY\Desktop\list.xlsx" )
oExcel.DisplayAlerts = False
oExcel.Application.DefaultFilePath = "C:\Users\WennY\Desktop\"
Code = "Sub CreateDBF()" & vbCrLf
Code = Code & "MsgBox ""test""" & vbCrLf
Code = Code & "End Sub" & vbCrLf
With oExcel.ActiveWorkbook.VBProject. _
VBComponents(1).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With
oExcel.ActiveWorkbook.Save
oExcel.Quit
End Sub