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

2003-06-17 07:28:19 607 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

QMT实盘避坑指南：从环境配置到策略部署的完整流程（含国金证券路径设置）本文是一份详尽的QMT实盘交易避坑指南，重点解析了从环境配置到策略部署的完整流程。针对国金证券QMT平台，文章深入剖析了核心架构、精准路径配置、关键参数解析、交易操作实战及异常处理，并提供了策略部署、监控与日志构建的完整方案，旨在帮助具备Python基础的开发者规避常见陷阱，实现稳定可靠的实盘交易。阅读详情

使用如下代码,运行通过,但是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

...全文