解决方法:
//第i个sheet中的第x行,第y列的单元格插入连接,显示字符为"sheet2!A2",连接到的地址为"sheet2!A2",鼠标移动到连接上,提示信息为"超链接"
控件对象.ActiveDocument.worksheets(i).Hyperlinks.Add(控件对象.ActiveDocument.Worksheets(i).Cells(1, 2), "", "sheet2!A2", "超链接", "sheet2!A2") ;

向指定的区域或图形添加超链接。返回 Hyperlink 对象。
expression.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
expression 必需。该表达式返回一个 Hyperlinks 对象。
Anchor Object 类型，必需。超链接的位置。可为 Range 对象或 Shape 对象。
Address String 类型，必需。超链接的地址。
SubAddress Variant 类型，可选。超链接的子地址。
ScreenTip Variant 类型，可选。当鼠标指针停留在超链接上时所显示的屏幕提示。
TextToDisplay Variant 类型，可选。要显示的超链接的文本。