一句话就值500分，没人要吗？？(300分)

小弟调用excel内置对象时，它的方法需要参数，用宏(VBA)实现的代码为：

Sub 宏1()
Range("B2").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
End Sub

其意义为：在单元格"B2"上方和左方插入两个分页符号.
但是该死的 Add 方法有个 before 参数。
我的问题就是如何用delphi来传递这个 before 参数而实现以上代码的功能！
我出300分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=593679 200分 同一个问题

在delphi中：
...
..VPageBreaks.Add();
根据add函数中before的位置添加ActiveCell,其余参数位置可以添加EmptyParam.

add有4个参数，按照顺序应该分别是： Before, After, Count, Type。
在delphi中用add函数时（按照你的例子）：
.Add(ActiveCell,EmptyParam,EmptyParam,EmptyParam)
按照上面的写法就可以了。

哇上面都回答拉

用下面的代码一定可以，我已经测试过了
其中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;

whsunbin兄，谢谢，代码通过，分数少不了，能不能连
http://www.delphibbs.com/delphibbs/dispq.asp?lid=601156
一并解决调，多谢大家，共600分

whsunbin兄，我加250给你
http://www.delphibbs.com/delphibbs/dispq.asp?lid=593679 的200分 你向提问的兄弟要吧。

sunhood兄请进我的提问区，我好为你加分。谢谢！

多人接受答案了。