急急急!!!!!!!excel中无法添加新的工作表

supercctv 2003-06-17 07:28:19
使用如下代码,运行通过,但是excel文件中就是不会添加新的工作表,为啥????
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString ExcelFileName="test.xls";
try
{
Ex = Variant::CreateObject("Excel.Application");
}
catch(...)
{
Application->MessageBox("无法启动Excel","错误",MB_ICONSTOP|MB_OK);
return;
}


Ex.OlePropertySet("Visible",true);
Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",ExcelFileName.c_str());
Wb=Ex.OlePropertyGet("ActiveWorkBook");
Wb.OlePropertyGet("worksheets").OleFunction("Add");
Wb.OleFunction("Save");
Wb.OleProcedure("Close");
Ex.OleFunction("Quit");
}
原来只有一个工作表kecheng
...全文
428 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
数据库及相关技术
创建于2007-08-02

1159

社区成员

C++ Builder 数据库及相关技术
申请成为版主
帖子事件
创建了帖子
2003-06-17 07:28
社区公告
暂无公告