高手请进:有关Ole调用创建Excel的问题
clvqi 2003-07-15 06:19:36 问题:在我工程中打开Excel文件时抛出异常(就是下面这句话:app.OlePropertyGet("Workbooks")),但是拷贝到新的工程中一切运行正常。
源码如下:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ExcelOpr tmplFile;
tmplFile.open("C:\\Template.xls");
tmplFile.setCellValue("A1", "这儿是标题"); // 方法省略
tmplFile.saveAs("C:\\Template_bak.xls"); // 方法省略
}
class ExcelOpr{
public:
ExcelOpr{app = Variant::CreateObject("Excel.Application");}
void open(AnsiString fileName) {
wb = app.OlePropertyGet("Workbooks").OleFunction("Open",fileName);
sheet = app.OlePropertyGet("ActiveSheet");
}
public:
Variant app;
Variant wb;
Variant sheet;
}