请问EXCEL超链接

请教EXCEL超链接
请教大侠，在EXCEL的 Sheet1的某单元格里设置超链接到Sheet2页，录制了宏，可是报错"发生意外"
语句是
Sheet1.OlePropertyGet("Hyperlinks").OleFunction("Add",Range1,"Sheet2");

请大侠指点。谢谢！
[解决办法]
OLE专业户来也！！！

Variant vExcelApp;
try
{
    vExcelApp = Variant::CreateObject("Excel.Application");
}
catch(...)
{
    MessageBox(0, "启动 Excel 出错, 可能是没有安装Excel.",
            "警告", MB_OK 
[解决办法]
 MB_ICONERROR);
    return;
}

// 显示Excel界面
vExcelApp.OlePropertySet("Visible", true);

String strXlsFile = "D:\\ccrun\\123.xls";
vExcelApp.OlePropertyGet("Workbooks").OleFunction("Open", WideString(strXlsFile));

// 操作第一个工作表
Variant vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook")
        .OlePropertyGet("Sheets", 1);

// 在Sheet1的B2单元格中建立超链接
vSheet.OlePropertyGet("Range", "B2").OleProcedure("Select");
Variant vSelect = vExcelApp.OlePropertyGet("Selection");

// Function Add(Anchor As Object, Address As String,
//   [SubAddress], [ScreenTip], [TextToDisplay]) As Object
vSheet.OlePropertyGet("Hyperlinks").OleFunction("Add",
        vSelect,         // Anchor
        "",              // Address
        "Sheet2!E3",     // SubAddress: 指向Sheet2的E3单元格
        "",              // ScreenTip
        "点击跳转到表二" // TextToDisplay
        );