如何在excel中使用联接？？？(50分)

delphi中我是用CreateOleObject来操作excel的，我想把sheet1 的A1,联接到sheet2,sheet1 的A2联接到sheet3,如何做？？

我在宏中是这样的，怎么转换为delphi呢？？
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet2!A1", TextToDisplay:="qqqq"

还有，最好不好用控件的方法，CreateOleObject来操作excel，有什么帮助吗？？


var
ExcelObj, Excel, WorkBook, Sheet: OleVariant;
begin
ExcelObj := CreateOleObject('Excel.Sheet');
Excel := ExcelObj.Application;
Excel.Visible := true ;
WorkBook := Excel.Workbooks.add ;
Sheet:= WorkBook.Sheets.add;
Sheet.Name:='系统总表';
sheet.range['A1'].select;
//sheet.Hyperlinks.Add(' Anchor:=Selection', 'Address:=''''','SubAddress:=' +WorkBook.Sheets[2].name);
Sheet.Hyperlinks.Add [' Anchor:=Selection', 'Address:=''''','SubAddress:=''Sheet2!A1'''];
end;

不成功，请高手指教

帮帮忙

var
ExcelObj, Excel, WorkBook, Sheet: OleVariant;
begin
ExcelObj := CreateOleObject('Excel.Sheet');
Excel := ExcelObj.Application;
Excel.Visible := true ;
WorkBook := Excel.Workbooks.add ;
Sheet:= WorkBook.Sheets.add;
Sheet.Name:='系统总表';
sheet.range['A1'].select;
sheet.Hyperlinks.Add(sheet.range['A1'],'','Sheet2!A1','','QQQQ');
end;

谢谢楼上， sheet.Hyperlinks.Add(sheet.range['A1'],'','Sheet2!A1','','QQQQ');
改为sheet.Hyperlinks.Add(sheet.range['A1'],'','Sheet2!A1','QQQQ');多了一个空参数！！
还有，请问你是怎么知道，如何查这类com对象的方法和参数的使用呢？？Msdn我都没有找到！！麻烦再告之一下，分数一定送上（不回也送上）

QuickSilver:

你的短信我看到了,vb中的宏我知道呀,怎么对应到delphi中了?,对应要注意什么呢?有什么
帮助吗?

接受答案了.