如何动态的在excel中创建某个sheet和它的列名，以及如何重命名sheet？

[annkie]

请指教，如何创建某个sheet和它的列名，以及如何重命名sheet？

[runnerrunning]

我做过cell的
excel在bcb中鲜有研究
up...

[annkie]

增加sheet我找到代码了，可是增加列名呢？
艾，操作excel该做一个专题了，好多时候碰到这样的问题，却没有资料，自己摸索总是有限。

[zzhong2]

Variant my_excel,all_workbooks,my_workbook,my_worksheet;
Variant my_range;
AnsiString columname,residue,cellname,rangename;
int i,j=1;
int count;

try
{
my_excel=CreateOleObject("excel.Application");//启动Excel
}
catch(...)
{
MessageBox(GetFocus(),"无法启动Excel","警告",MB_OK|MB_ICONSTOP);
Abort();
}
all_workbooks=my_excel.OlePropertyGet("WorkBooks");
Procedure Open("Open");

// all_workbooks.Exec(Open<<SaveDialog1->FileName);//打开一个已存在的Excel文件
my_excel.OlePropertySet("Visible",(Variant)true); //使Excel启动后可见
my_workbook=all_workbooks.OleFunction("Add");//新建一个工作薄
my_workbook=my_excel.OlePropertyGet("ActiveWorkbook");
my_worksheet=my_workbook.OlePropertyGet("ActiveSheet");
my_worksheet.OlePropertyGet("Rows",2).OleProcedure("Insert");//插入一行

//根据DBGrid的表头输出Excel表头
for(i=0;i<DBGridEh1->FieldCount;++i)
{
my_excel.OlePropertyGet("Cells",1,(i+1)).OlePropertySet("Value",DBGridEh1->Columns->Items[i]->Title->Caption.c_str());
}
//输出表体
ADOQuery1->DisableControls();
ADOQuery1->First();
for(j=2;!ADOQuery1->Eof;++j)
{
for(i=0;i<DBGridEh1->FieldCount;++i)
{
//向表格添加数据
my_excel.OlePropertyGet("Cells",j,(i+1)).OlePropertySet("Value",DBGridEh1->Columns->Items[i]->Field->AsString.c_str());
}
ADOQuery1->Next();
}
ADOQuery1->EnableControls();

my_worksheet.OlePropertyGet("Range","A1:D3").OlePropertyGet("Interior").OlePropertySet("ColorIndex",15); //改表格颜色
my_worksheet.OlePropertyGet("Range","A1:A3").OleProcedure("Merge",0); //合并单元格
my_worksheet.OlePropertyGet("Range","A1:D1").OlePropertyGet("Columns").OleProcedure("autofit"); //设置自适应列宽
// my_worksheet.OlePropertyGet("Range","A1:D3").OleProcedure("Merge",1);
my_worksheet.OlePropertyGet("Range","A1:D3").OlePropertySet("HorizontalAlignment",3); //居中

MessageBox(this->Handle,"请按确定彻底关闭Excel","通知",MB_OK|MB_ICONEXCLAMATION|MB_APPLMODAL);
my_excel.OleFunction("Quit");

[annkie]

谢了！