如何用Delphi向Excel文件中插入宏(100分)

请大家帮帮我！

例子：

用下面的代码一定可以，我已经测试过了
其中ExcelApplication1，ExcelWorkbook1，ExcelWorksheet1
为Delphi中Servers页中的TExcelApplication，ExcelWorkbook，TExcelWorksheet控件
Procedure aaa;
Var
Cell1:OleVariant;
begin
//建立Excel连接
Try
if ExcelApplication1=nil then
ExcelApplication1:=TExcelApplication.Create(Self);
ExcelApplication1.Disconnect;
ExcelApplication1.Connect;//EXCEL应用程序
Except
MessageDlg(Excel没有安装',mtError, [mbOk], 0);
Exit;
End;
ExcelApplication1.Caption:=Application.Title;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接

Cell1:=ExcelWorksheet1.Cells.Item[2,2];
ExcelWorksheet1.VPageBreaks.Add(Cell1);
ExcelWorksheet1.HPageBreaks.Add(Cell1);
End;

我需要是在程序中如何创建一个宏请大家再帮帮忙;

var
LineNo: integer;
CM: CodeModule;
NewToolbar: CommandBar;
ToolbarItem: CommandBarControl;
begin
WBk.ConnectTo(Excel.Workbooks[1]);
CM := WBk.VBProject.VBComponents.Item(
'ThisWorkbook').Codemodule;

{ Insert the macro text }
LineNo:=1;
CM.InsertLines(LineNo + 1, 'Public Sub ShowSuccess');
CM.InsertLines(LineNo + 2, ' Msgbox("Made it!")');
CM.InsertLines(LineNo + 3, 'End Sub');

{ Create temporary toolbar - set last parameter to False
to make a permanent toolbar }
NewToolBar := Excel.CommandBars.Add(
'MyToolbar', msoBarTop, False, True);
OleVariant(NewToolbar).Visible := True;
ToolbarItem := NewToolbar.Controls.Add(
msoControlButton, EmptyParam,
EmptyParam, EmptyParam, True);
ToolbarItem.Set_TooltipText('Show success');

OleVariant(ToolbarItem).OnAction :=
'ThisWorkbook.ShowSuccess';
OleVariant(ToolbarItem).FaceID := 2;
------------------
这是我在网上看到过的一段代码，希望能有帮助

请问还有人回答这个问题吗我急！

对不起,我不知道![8D]

非常感谢yu_gao的提示！也非常感谢commandor,和阿毛的参与！
这个问题已经结束，有需要的朋友可以来信索取，
大富翁是一流的！人多力量大，共同努力！

对不起,我没做过．

to: wuxiaoyong
我也正在做类似的东西。可否向你（当然也包括其他讨论的高手）学习一下！你的东西
能发送我一份吗？zhang_yz@163.com
我想在word中加如动态表格和图表（数据发生变化），不知各位能否帮我一下！
在word中调用宏应该可以实现，有没有其他方式。

我现在也在做excel报表，请把你解决问题的方法发给我好吗？谢谢！！
little_hui@163.net