奇怪：EXCEL操作在DEBUG状态下运行好好的，但在RELEASE状态下却报错
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Comobj.hpp"
#include "utilcls.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant ExcelApp;
ExcelApp = Variant::CreateObject ("Excel.Application");
ExcelApp.OlePropertySet("Visible",false);
Variant wb;
wb= ExcelApp.OlePropertyGet("Workbooks");
wb.Exec(Procedure("Add"));
wb=ExcelApp.OlePropertyGet("ActiveWorkbook");
Variant Sheet;
Sheet=wb.OlePropertyGet("ActiveSheet");
String aa="aaaa";
Sheet.PG("Cells", 3, 6).PS("Value", aa.c_str());
// Sheet.PG("Cells", 3, 6).PS("Value", aa);
wb.FN("SaveAs", "D:\\AAAA.XLS");
ExcelApp.FN ("Quit");
}
//---------------------------------------------------------------------------
在DEBUG 状态下运行正常，但在RELEASE状态下去报
‘未知名称’PROCESS STOP
问题点数：20、回复次数：3Top
1 楼ccrun（老妖)(www.ccrun.com）回复于 2005-11-02 10:05:30 得分 0
将
wb.Exec(Procedure("Add"));
换成
wb.OleFunction("Add");Top
2 楼zyy123zyy123（）回复于 2005-11-02 10:20:13 得分 0
老妖，谢了，怎么散分给你呀，我不知道怎么给你分
另外，有没有CB下操作EXCEL绘图的东东，请给点帮助ZHOUYI666888@SOHU。COM谢了Top
3 楼ccrun（老妖)(www.ccrun.com）回复于 2005-11-02 10:22:10 得分 0
这个页面的上方右侧有一行：
回复 | 收藏此页 | 专题 | 公告 | 管理 | 保存 | 关闭窗口
点击那个"管理"进去。
CB下操作EXCEL绘图一样可以通过OLE来进行。Top
