用OLE控制Excel如何选定工作簿

[coffeedou]

如题

[我来看看CB]

WorkBook=mExcel_App.OlePropertyGet("ActiveWorkBook");
WorkBook.OlePropertyGet("Sheets",1).OleProcedure("Select");
Sheet1=WorkBook.OlePropertyGet("ActiveSheet");

[我来看看CB]

这些是定义

Variant mExcel_App;
Variant WorkBook,Sheet1;

try
{
mExcel_App=Variant::CreateObject("Excel.Application");
}
catch(...)
{
ShowMessage("不能创建Excel程序，请查看是否安装Excel!");
return false;
}

[7rainbow]

//工作薄名字
AnsiString sheesname;
sheesname= mExcel_App.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Name");