703
社区成员
发帖
与我相关
我的任务
分享
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
);