#include "Comobj.hpp"
#define OPG OlePropertyGet
#define OPS OlePropertySet
#define OFN OleFunction
#define OPR OleProcedure
//-------------------------------
....
Variant ExcelApp,WorkBook1,Sheet1,Range1;
try
{
ExcelApp=CreateOleObject ("Excel.Application");
}
catch(...)
{
ShowMessage("运行Exel出错!请确认安装了Office!");
return;
}
ExcelApp.OPS("Visible",true);//打开不显示EXCEL表
ExcelApp.OPG("WorkBooks").OleFunction("Add"); //打开一个新工作簿
WorkBook1=ExcelApp.OPG("ActiveWorkBook");//选择当前工作簿
Sheet1=WorkBook1.OPG("ActiveSheet");//选定当前工作页面
Range1=Sheet1.OPG("Range","A1:A1");//选定要设置的单元格
//Range1.OPG("Borders").OPS("Weight",1);
#define OPG OlePropertyGet
#define OPS OlePropertySet
#define OFN OleFunction
#define OPR OleProcedure
//-------------------------------
....
Variant ExcelApp,WorkBook1,Sheet1,Range1;
try
{
ExcelApp=CreateOleObject ("Excel.Application");
}
catch(...)
{
ShowMessage("运行Exel出错!请确认安装了Office!");
return;
}
ExcelApp.OPS("Visible",true);//打开不显示EXCEL表
ExcelApp.OPG("WorkBooks").OleFunction("Add"); //打开一个新工作簿
WorkBook1=ExcelApp.OPG("ActiveWorkBook");//选择当前工作簿
Sheet1=WorkBook1.OPG("ActiveSheet");//选定当前工作页面
Range1=Sheet1.OPG("Range","A1:A1");//选定要设置的单元格
//Range1.OPG("Borders").OPS("Weight",1);
Sheet1.OPG("Hyperlinks").OFN("Add",Range1,"d:\\TDDOWNLOAD");//至此设定
录一个宏,将后将宏代码翻译成C++代码,这个过程并不难.